Frage : übertreffen - wenn Zelle leer ist, gesamte Spalte der Löschung

Hallo, lassen
I einen Verteilungsbogen innen übertreffen.

wenn überhaupt Zelle in Reihe 2 = 0, die ich dieses gesamte columnn.

Is löschen möchte mögliches dieses?
Sm17ch

Antwort : übertreffen - wenn Zelle leer ist, gesamte Spalte der Löschung

hth

Dave

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

VorKillTwo () Schwaches rng1 als Strecke Schwaches lngRow als lang Application.ScreenUpdating = falsch Einstellen rng1 = schneiden (ActiveSheet.UsedRange, Reihen (2)) Für lngRow = rng1.Columns.Count zu 1 Schritt -1 Wenn rng1.Cells (lngRow). Wert = „0“ dann rng1.Cells (lngRow) .EntireColumn.Delete Folgendes lngRow Application.ScreenUpdating = ausrichten en Enden-Unterseeboot