Mein Problem ist, daß ich ca. 50 Buttons für 50 Zeilen benötige.
Gruß,
Christoph
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
MsgBox "Test" 'hier deine berechnungen
Cancel = True 'damit nicht in die Zellbearbeitung gesprungen wird
End If
End Sub