Blätter je nach Namen löschen



Excel-Version: Versionsunabhängig
nach unten

Betrifft: Blätter je nach Namen löschen
von: Paddy
Geschrieben am: 23.05.2002 - 10:32:51

Hi Leute,
ich habe in einer Arbeitsmappe über ein Makro verschiedene Tabellen in eigene Sheets eingefügt. Diese Sheets beginnen immer mit "Dia-".
Meine Frage lautet, wie ich über

for i=1 to worksheets.count

bestimmen kann, dass das aktive Blatt, sofern es mit "Dia-" anfängt, gelöscht werden soll?

Ist wahrscheinlich eine simple Variable.
Wäre für Eure Hilfe sehr dankbar.

Gruß, Paddy


nach oben   nach unten

Re: Blätter je nach Namen löschen
von: Timo
Geschrieben am: 23.05.2002 - 10:44:03

Hi!

Versuchs mal so:


For i = 1 To Worksheets.Count
If Left(Worksheets(i).Name, 4) = "Dia-" Then
Application.DisplayAlerts = False
Worksheets(i).Delete
Application.DisplayAlerts = True
End If
Next i

Gruss
Timo

nach oben   nach unten

Re: Blätter je nach Namen löschen
von: Udo Ri-Hü
Geschrieben am: 23.05.2002 - 10:57:27

Sub Blaetter_loeschen()
Application.DisplayAlerts = False
n = Worksheets.Count
i = 1
Do While i <= n
If Sheets(i).Name Like "Dia-*" Then
Sheets(i).Delete
i = i - 1
n = n - 1
End If
i = i + 1
Loop
Application.DisplayAlerts = True
End Sub

For...next ist meiner Ansicht nach nicht so gut, weil sich die Anzahl der Blätter ändert, die Schleife aber nicht neu initialisiert wird.

Gruss
Udo


nach oben   nach unten

Re: Blätter je nach Namen löschen
von: Timo
Geschrieben am: 23.05.2002 - 11:03:23

Hallo Udo, du hast natürlich recht, For To ist nicht so clever, ausser man macht es so:
For Worksheets.Count To 1 Step -1

Da hatte ich wohl nicht ganz zuende gedacht...

Gruss
Timo

nach oben   nach unten

Danke!!!!!!
von: Paddy
Geschrieben am: 23.05.2002 - 11:03:53

Timo, Udo,
Ihr seid die besten.

Konnt die Infos nebenbei noch für zwei, drei andere Sachen gebrauchen.

Gruß Paddy


nach oben   nach unten

Re: Blätter je nach Namen löschen
von: Paddy
Geschrieben am: 23.05.2002 - 11:05:43

Hi Timo,
nochmal danke.
hatte den fehler mit einer on error-rettungsanweisung ausgebügelt.
dann hat's geklappt.

Paddy


nach oben   nach unten

Freut mich! :) /o.T
von: Timo
Geschrieben am: 23.05.2002 - 11:10:27

o.T

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Einzelne Zellen schützen?"