Hallo,
ich benötige mal wieder hilfe bei einem Makro ;-(
'Also, Nummer wird ermittelt mit
Nummer = blatt.Range("A65536").End(xlUp).Row
Nummer = Nummer + 1
Select Case blatt.Name
Case "Planzuordnung", Nummer = 4, "Gruppenzuordnung", "Datenblatt", "Titel 1", "Daten", "Muster"
'zeile = zeile + 1
'Nichts machen wenn.. und Nummer =4 /alles klappt nur wenn Nummer 4 ist löscht das Makro trotzdem ;-(( (Hab das ganze mit F8 geprüft Nummer wird richtig mit 4 ausgeworfen)
Case Else
blatt.Rows(Nummer & ":94").Delete Shift:=xlUp
'zeile = zeile + 1
End Select
WAs mache ich da wieder falsch?
Gruß Sonnenpeter