kleines Makro - Zeilen löschen - Excel

Question

Wie könnte ein kleines Makro für Excel aussehen:

"Lösche alle Zeilen AUSSER Zeile 1,56,66,76,86,96" ?

Bedankt!

Answer 1

Hallo,

versuch es mal so:

Sub löschen()

Dim zeile As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

For zeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1

If zeile <> 1 And zeile <> 56 And zeile <> 66 And zeile <> 76 And zeile <> 86 And zeile <> 96 Then
'Zeile wird gelöscht
ActiveSheet.Rows(zeile).Delete Shift:=xlUp
End If

Next zeile

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub

Gruß

M.O.