Hallo,
inerhalb meiner Tabelle will ich in Spalte G den Text ... finden.
Zuerst wähle ich Spalte G aus, dann suchen des Textes.
Nun ist die Zelle mit dem Text Aktiviert, und dann das problem:
mit Selection.Rows.Insert ... Zeile einfügen geht nicht. Er fügt immer eine Spalte ein !!!
Hier der Code
Worksheets("test").Columns("G:G").Select
Selection.Find(What:="MIDRO TEE 22.5 GR", After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext _
, MatchCase:=False).Activate

Selection.Rows.Insert Shift:=xlDown
Was mach ich falsch?
Joachim