Hallo zusammen,
der folgende Code soll verhindern, dass in den Tabellen Planzuordnung" Or "Gruppenzuordnung" Or "Datenblatt" Or "Titel 1" _
Or "Daten" Or "Muster" Zeilen gelöscht werden.
For Each blatt In Sheets
Sheets("Inhaltsverzeichnis").Cells(zeile, 2).Value = blatt.Name
Nummer = blatt.Range("A65536").End(xlUp).Row
Sheets("Inhaltsverzeichnis").Cells(zeile, 3) = Nummer
Nummer = Nummer + 1
If blatt.Name = "Planzuordnung" Or "Gruppenzuordnung" Or "Datenblatt" Or "Titel 1" _
Or "Daten" Or "Muster" Then
Next blatt
Else
Nummer = Nummer + 1
blatt.Rows(Nummer & ":94").Delete Shift:=xlUp
zeile = zeile + 1
Next blatt
Funzt aber leider nicht ;-(((
Fehlermeldung "Next ohne For"
Nun ja, was habe ich wieder verkehrt gemacht?
Gruß Sonnenpeter