Zeile kopieren
15.11.2013 11:38:47
Fabian
Ich versuche mich seit neuem ein bisschen mit VBA.
Nur ich komme bei folgendem nicht mehr weiter:
Sub ew_2()
Cells.Find(What:="23aaa23", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Ich möchte eigentlich, dass nicht nur eine Zelle oberhalb des gefunden eingefügt wird sondern eine ganze Zeile.
Heisst: Begriff suchen - wenn gefunden Zeile oberhalb einfügen.
Ich hoffe Ihr könnt mir helfen!
Anzeige