Begriff suchen, Zeile einfügen inhalt einfügen
04.08.2014 16:00:04
Syps
Da ich noch nicht sehr viel Ahnung von VBA habe und mich schon Tagelang mit diesem Code herumschalge, seid Ihr mal wieder meine letzte Hoffnung!
Ich habe eine Tabelle die sich mittels Button einfach erweitern lassen sollte. Das klappt bis jetzt auch schon super.
Jetzt zu meinem Problem:
Ich möchte dass in die neu eingefügte Zeile die Daten aus der Zeile welche oberhalb dem gefundem Eintrag "23aaa23" kopiert und einfügt.
Folgenden Code habe ich bis jetzt
Sub ew_2()
Cells.Find(what:="23aaa23", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Danke euch jetzt schon für eure Hilfe