kurze Anpassung
04.10.2017 13:30:48
Nadine
ich bin auf diesen Code gestoßen, der soweit auch funktioniert:
Sub SpaltenLoeschen()
Dim Spalte As Integer
Dim letztespalte As Integer
With Tabelle1
letztespalte = .UsedRange.Columns.Count
For Spalte = letztespalte To 1 Step -1
If .Cells(5, Spalte).Value = "" Then
.Columns(Spalte).Delete
End If
Next Spalte
End With
End Sub
Er durchsucht jede Spalte und löscht jede Spalte in dem die 5. Zeile leer ist.
Kann man den Code so verändern, dass das Makro nicht nur die 5. Zelle betrachtet,
sondern die Spalte nur löscht, wenn ab der 5. Zeile die gesamte Spalte leer ist?
Vielen lieben Dank und freundliche Grüße
Nadine
Anzeige