Zelle finden, Spalte einfügen
04.03.2014 08:48:50
Mia
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
Was muss ich an meinem Code ändern, dass nicht nur die erste Zeile meiner Spalte verrutscht, sondern der komplette Teil?
Anzeige