Hi,
ändere den Code im Hauptformular wie folgt:
If Not Intersect(Target.Cells(1), Range("K8:K100")) Is Nothing Or _
Not Intersect(Target.Cells(1), Range("L8:L100")) Is Nothing Or _
Not Intersect(Target.Cells(1), Range("O8:O100")) Is Nothing Then
' Zeile ermitteln in welcher in B8:B100 Rechnungsbuch der Inhalt aus Eingabezeile Spalte B steht
varZeile = Application.Match(Cells(Target.Cells(1).Row, 2), Worksheets("Rechnungsbuch").Range("B8:B100"), 0)
' Zeile konnte ermittelt werden dann in Rechnungsbuch Eingabe eintragen
If IsNumeric(varZeile) Then
Application.EnableEvents = False
Worksheets("Rechnungsbuch").Cells(Target.Cells(1).Row, Target.Cells(1).Column) = Target
Application.EnableEvents = True
End If
End If
Im Rechnungsbuch ist der Code derselbe, nur musst du "Rechnungsbuch" logischerweise durch "Hauptformular" ersetzen.
Bis später, Karin