Schleife: Spalten löschen

Question

Datensätze werden spaltenweise eingetragen:
Zeile 1 leere Zellen oder Text
Zeile 2 Datum

Für statistische Auswertung müssen am Monatesende Spalten mit Text in Zeile 1 gelöscht werden bis in Zeile 2 die erste leere Zelle kommt

Bitte um Hilfe

Answer 1

hi all ^^

ein Beispiel

gruss nighty

Sub SPdelete()
Columns("A:" & Chr(64 + ActiveSheet.Rows("2:2").End(xlToRight).Column)).Delete Shift:=xlToLeft
End Sub