Office: Zeilen nach Wert durchsuchen und entsprechende Spalte löschen

Servus,
ich würde gerne meine Tabelle für jede Spalte von der zweiten bis zur letzten Zeile durchsuchen. Falls von Zeile 2 bis zur letzten Zeile nix drin steht, würde ich die entsprechende Spalte gern löschen. Die Position der Spalte ist dabei immer variabel und in der ersten zeile steht immer ein Header. somit scheidet die Funktion leere Spalten löschen ja schon aus oder?

Mit dem Code hab ich´s probiert:

'Löscht Spalten falls von der letzten bis zur zweiten Zeile kein Wert drin steht
Sub EmptyColumnsDelete_EN()
Dim lngLastRow As Long
Dim i As Integer
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
Application.ScreenUpdating = False
For i = lngLastRow To 2 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Columns(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Des scheitert wahrscheinlich dran, dass die Position der Spalte ja nicht ausgeben wird oder?
Vielleicht weiß jemand wie ich den Code anpassen muss oder hat ne Tipp.
Vielen Dank schon mal.

Gruß Manu

:)

 

Hallo Manu,

Zum Verständnis:
Falls von Zeile 2 bis zur letzten Zeile nix drin steht, würde ich die entsprechende Spalte gern löschen - also auch den Header - denn eine Spalte kann man nur ganz oder gar nicht löschen.

Das ist kein Problem:
Code:

 

Danke klappt super!
Gruß Manu