Wenn eine Zelle leer ist, ganze Spalte löschen

[jannik.e97]

Guten Morgen zusammen,

ich nehme mir seit gestern das Leben mit einem Makro. Zugegeben, ich bin ein blutiger Anfänger was Makro´s angeht. Ich hoffe jemand hat eine Lösung für mich. Die Idee ist eigentlich relativ simpel, nur die Umsetzung kompliziert.

Folgendes Problem stellt sich mir:

Siehe Bild: ich würde gerne, wenn in Spalte H, kein Text steht, die komplette Zeile löschen und natürlich nach oben verschieben. Wenn etwas in Spalte H steht, dann soll diese Zeile auch bestehen bleiben. Würde das Makro gerne auf einen Button legen.

Ich hoffe jemand hat eine Idee und bestenfalls auch den Code für mich?

   

Vielen Dank vorab an alle.

[HubertK]

Hei,

damit sollte es gehen, nicht getestet, weil es keine Beispieldatei gibt.

PHP-Code:

Option Explicit

Sub Löschen()
    Dim lZeile As Long
    For lZeile = 9 To 4 Step -1
        If Cells(lZeile, "H") = "" Then
            Rows(lZeile).Delete Shift:=xlUp
        End If
    Next lZeile
End Sub 


[Elex]

Hallo

Bereich(Range) anpassen.

Code:

Public Sub test()
Range("H4:H20").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Gruß Elex

[jannik.e97]

Perfekt. Funktioniert super. Ich danke Euch!