Wie kann ich bei folgendem Code die If Zeile so umstellen, dass die Parameter im Array nicht gelöscht werden sondern die Begriffe welchesich nicht im Array befinden.
Sub Ueberflüssig()
Dim rngFind As Range, arSearch As Variant, i%
arSearch = Array("Betrag", "Valutadatum")
'das sind Spaltenüberschriften, die ünerwünscht sind
For i = 0 To UBound(arSearch)
Set rngFind = Rows(1).Find(arSearch(i), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not rngFind Is Nothing Then rngFind.EntireColumn.Delete
Next
End Sub
|