Bei deinem Code zeigt er Syntaxfehler an. Jetzt wollte ich es so machen:
Sub Ueberschriften()
With Tabelle1
.Range("A1:B1").Value = ""
.Range("D1:K1").Value = ""
.Range("M1:N1").Value = ""
.Range("Q1").Value = ""
End With
End Sub
Sub SpaltenLoeschen()
Dim Spalte As Integer
Dim SpalteMax As Integer
With Tabelle1
SpalteMax = .UsedRange.Columns.Count
For Spalte = SpalteMax To 1 Step -1
If .Cells(1, Spalte).Value = " " Then
.Columns(Spalte).Delete
End If
Next Spalte
End With
End Sub
Aber er löscht die Spalten nicht. Kannst du mir dazu einen Tipp geben?
|