Habe nachstehendes Makro hier im Forum gefunden. Funktioniert auch gut.
Nun würde ich aber gerne mehrere Spalten löschen mit jeweils einem anderen Wort.
Wie kann ich das in 1 "Sub" schreiben?
Mein erster Versuch sah so aus:
Sub SpalteLoeschen()
Dim Such
Set Such = ActiveSheet.UsedRange.Find("Wort1")
If Not Such Is Nothing Then Such.EntireColumn.Delete
Dim Such
Set Such = ActiveSheet.UsedRange.Find("Wort2")
If Not Such Is Nothing Then Such.EntireColumn.Delete
End Sub
Könnt Ihr mir bitte weiterhelfen.