Ich möchte gerne mehrere Begriffe (in meinem Fall die Überschriften) in meiner Tablle suchen und jeweils davor eine neue Spalte einfügen. Bei einem bestimmten Begriff möchte ich einmalig zwei neue Spalten einfügen.
Mein VBA-Code:
Sub suchen()
Cells.Find(what:="Katze").Activate
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Mit dem von mir aufgezeichneten Code funktioniert mein Vorhaben nur, wenn die Spalte nicht befüllt ist, meine Spalten sind aber mit Text gefüllt ;-)Was muss ich an meinem Code ändern, dass nicht nur die erste Zeile meiner Spalte verrutscht, sondern der komplette Teil?