Sub loeschen()
Dim intSpalte As Integer
Application.ScreenUpdating = False
For intSpalte = 1 To 256
If Application.WorksheetFunction.CountBlank(Columns(intSpalte)) = 65536 Then Columns(intSpalte).Delete
Next
Application.ScreenUpdating = True
End Sub
Sub loeschen()
Dim intSpalte As Integer
Application.ScreenUpdating = False
For intSpalte = 256 To 1 Step -1
If Application.WorksheetFunction.CountBlank(Columns(intSpalte)) = 65536 Then Columns(intSpalte).Delete
Next
Application.ScreenUpdating = True
End Sub
Sub Spalten_weg()
Dim s As Integer
Application.ScreenUpdating = False
For s = 256 To 1 Step -1
If Application.CountA(Columns(s)) = 0 Then Columns(s).Delete
Next
Application.ScreenUpdating = True
End Sub