Zeilen löschen, wenn E leer ist
12.03.2017 13:06:48
Kyra
Hallo Liebe Foren-Mitglieder,
ich möchte gerne die Ergebnisse aus Spalten A bis D löschen, wenn Spalte E leer ist.
Ich habe bereits ein Makro, welches für Spalte A gut funktioniert:
Sub loesch_PNR()
Dim letzteE As Long
Dim letzteA As Long
letzteE = Range("E65536").End(xlUp).Row
letzteA = Range("A65536").End(xlUp).Row
Range(Cells(letzteE + 1, 1), Cells(letzteA, 1)).ClearContents
End Sub
Leider weiß ich nicht, wie ich Spalten B-D in das Makro integrieren kann. Bisher steuer ich alle Spalten einzeln an :-(
Hat jemand eine Idee, wie ich das Makro erweitern kann um alle Spalten gleichzeitig anzusteuern?
Liebe Grüße
Kyra
Anzeige