Sub Spalten_einfügen()
Dim Anz_Module, i As Integer
Dim Zelle As Range
Anz_Module = Worksheets("Test1").Range("B1")
Worksheets("Test").Activate
'Existierende Anzahl an Spalten Löschen
For i = 1 To 6
For Each Zelle In ActiveSheet.Range("A2:Z2")
If Zelle.Value = "Leistung BHKW Modul " & i & " (in %)" Or Zelle.Value = "el. Wirkungsgrad BHKW Modul " & i & " (in %)" Or Zelle.Value = "th. Wirkungsgrad BHKW Modul " & i & " (in %)" Then
Columns(Zelle.Column).Delete
'An dieser Stelle soll Zelle wieder eine Spalte zurückspringen, da sonst die "Überschrift" nicht überprüft wird, die wegen Delete eine Spalte nach links gerutscht ist
End If
Next Zelle
Next i |