Sub Deletecoloumnsifnumerically()

Dim Spalte As Integer

Dim SpalteMax As Integer

With Tabelle5

SpalteMax = .UsedRange.Columns.Count

For Spalte = SpalteMax To 1 Step -1

If IsNumeric(.Cells(1, Spalte).Value) = True Then

.Columns(Spalte).Delete

End If

Next Spalte

End With

End Sub