Hallo zusammen,

ich suche eine Lösung für folgendes Problem. Ich habe per Auswahlbutton die Möglichkeit Zeilen unterhalb eines bestimmten Begriffs (hier "Sachanlagen") einzufügen. Gleichzeitg wird in der neu eingefügten Zeile "neuer SV" automatisch in die Zelle geschrieben:

Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(Wiederholungen, 1) = "Sachanlagen" Then
Rows(Wiederholungen + 1).Insert Shift:=x1Down
Rows(Wiederholungen + 1).Select
ActiveCell.FormulaR1C1 = "neuer SV
End If
Next
End Sub

Meine Frage: Wie bekomme ich in der neu eingefügte Zeile in einer anderen, weiter rechts liegenden Zelle einen automatischen Eintrag. Das o.g. Makro funktioniert bei mir ohne diese besondere Anforderung, weil der Befehl Rows(Wiederholungen + 1).Select automatisch die erste Zelle in der neuen Zeile auswählt. Wie aber komme ich weiter nach rechts im Sinne einer Auswahl z.B. Range("b10").Select, nur dass die Bezeichnung der Zelle nicht fix sein darf, sondern von der eingefügten Zeile abhängig sein muss.

Danke im Voraus für eure Hilfe!!!!