mein Problem ist folgendes:
ich würde gern unter einem bestimmten datensatz, der vorher gesucht werden muss, zwei Zeilen einfügen.
Danke im voraus
Gruß
Claudia
Sub einfügen()
Dim z As Range
Set z = Range("A:A").Find(What:="c", LookAt:=xlWhole) 'suche nach "c" in Spalte A
If z Is Nothing Then Exit Sub ' nicht gefunden
z.Offset(1, 0).EntireRow.Insert
z.Offset(1, 0).EntireRow.Insert
End Sub