An Anton
07.12.2006 11:20:03
DieterG
ich muß Dich leider noch mal um Hilfe bitten.
Ich habe in Deiner Lösung eine "kleine Änderung" vorgenommen.
Aus Like "G" hab ich "E" gemacht.
Um nicht die Spalten-Überschriften in Zeile 1 zu löschen, soll das Makro erst ab Zeile 2 greifen!
Sub E_löschen()
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
For L = ZL To 1 Step -1 'Schleife bis zur ersten Zeile
If Cells(L, 6).Value <> "E" Then Rows(L).Delete
Next L
End Sub
Danke nochmal
Gruß Dieter
Anzeige