Blätter mit gleichem Index löschen
17.03.2006 09:09:05
Florian
ich möchte in meiner Excelmappe verschiedene Blätter mit gleichem Index löschen.
Ich hab es schon mal mit folgendem versucht:
Dim blattindex As String
Dim blattneu As String
blattindex = ActiveSheet.Name
blattindex = Replace(blattindex, "Tabelle1", "")
blattneu = "Tabelle1 " & blattindex
Sheets(blattneu).Activate
Aber Excel meckert immer an der Zeile rum
Sheets(blattneu).Activate
Sheets(blattneu).delete
funktioniert auch nicht.
Kann mir jemand helfen?
gruss Flo