kann ich Deinen Code auch nur auf eine Spalte begrenzen? Er funktioniert zwar tadellos, aber man muss ja einige Zellen noch ausfüllen. Und wenn man da einen Doppelklick macht (was für viele Menschen ganz normal ist, um in Windows was machen zu wollen :-(...), dann landet man nun immer auf dem Rechnungssheet. Am besten die Reihe 20 ("F") und dann die Zeilennummer übertragen...
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
Cancel = True
If Cells(.Row, 20) "" Then
MsgBox "Für diese Buchung existiert bereits eine Rechnung. Neue Rechnung nicht möglich!"
Else
Worksheets("Tabelle2").Range("A3").Value = .Row
Worksheets("Tabelle2").Activate
End If
End With
End Sub
Grüße
Sonja