Tabellenblatt löschen per VBA ???

Forumthread: Tabellenblatt löschen per VBA ?

Tabellenblatt löschen per VBA ?

08.11.2004 14:36:05

Birgit

Tag zusammen!
Habe folgende Frage:
Per Makro sollen allen Tabellenblätter gelöscht werden, bis auf das aktivierte.
Wie macht man soetwas ?
Gruß
Birgit

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt löschen per VBA ?

08.11.2004 14:45:39

Rolf
AW: Tabellenblatt löschen per VBA ?

XULE

AW: Tabellenblatt löschen per VBA ?

08.11.2004 14:45:39

Rolf

Hallo Birgit,
versuch's mal mit folgendem Makro
fG
Rolf


Sub blätter_löschen()
Dim sh As Worksheet, actSh As Worksheet
Set actSh = ActiveSheet
For Each sh In Worksheets
If Not sh.Name = actSh.Name Then sh.Delete
Next
End Sub

AW: Tabellenblatt löschen per VBA ?

XULE

Public Sub lösch()
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Sheets
If ws.Name <> ActiveSheet.Name Then
ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

Tabellenblatt löschen per VBA ???

Forumthread: Tabellenblatt löschen per VBA ?

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread