Anzeige
Archiv - Navigation
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheets löschen

Worksheets löschen
17.06.2003 14:51:38
Alex
Hallo Leute,

wie löscht man alle Worksheets, die mit dem Namen Tabelle anfangen.

Wie man ein bestimmtes Worksheets lösch, wies ich, kann mein Problem trotzdem nicht lösen

Danke Alex

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Worksheets löschen
17.06.2003 14:55:47
Yvonne

Hallo Alex,

probier's mal hiermit.

Sub loeschen()
Dim sht As Worksheet
Application.DisplayAlerts = False
For Each sht In ActiveWorkbook.Sheets
If Left(sht.Name, 7) = "Tabelle" Then
sht.Delete
End If
Next sht
Application.DisplayAlerts = True

End Sub


Gruß, Yvonne

Re: Worksheets löschen
17.06.2003 14:56:03
ChrisL

Hi Alex

Gruss
Chris

Re: Worksheets löschen
17.06.2003 14:57:22
Mike E.

Hallo Alex,

Sub h()

For i = 1 To Worksheets.Count

If InStr(Worksheets(i).Name, "Tabelle") Then
Worksheets(i).Delete
i = i - 1
End If

Next i

End sub

Gruß
Mike

Re: Worksheets löschen
17.06.2003 15:00:20
L.Vira

Option Explicit
Sub WS()
Dim WS As Worksheet
Application.DisplayAlerts = False
For Each WS In Worksheets
If WS.Name Like "Tabelle*" Then
If Not Worksheets.Count = 1 Then
WS.Delete
End If
End If
Next
Application.DisplayAlerts = True
End Sub

Anzeige
Re: Worksheets löschen
17.06.2003 20:39:59
Alex

Hallo Leute,

es läuft, Danke

Alex

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige