leeren Zeilen löschen und Inhalte hochschieben
Chris
ich benötige ein Makro, dass den Bereich A1:A10 auf leere Zellen untersucht, wenn gefunden, soll es den Inhalt dieser und die benachbarten zwei Zellen in derselben Reihe löschen. Ich habe mir folgendes Makro gebastelt, dass mir leider den gesamten Bereich löscht.....
Zusätzlich wäre es toll, wenn - nachdem die Inhalte gelöscht wurden - alle darunter liegenden Angaben (Gesamtbereich ist A1 bis D10) untereinander auflistet, d. h. hoch schiebt, so dass man keine leeren Zeilen dazwischen hat.
Ich hoffe das ist verständlich...hier mein Versuch, als VBA-Anfänger weiss ich leider nicht weiter.
Sub test()
Worksheets("Tabelle1").Select
Range("A1:A10").Select
For Each cell In Selection
If cell.Value = "a" Then
Range(Selection, Selection.Offset(0, 2)).ClearContents
End If
Next
End Sub