Ich möchte einne Zelle anklicken zum Beispiel C1 und dieser Wert soll in Zelle A1 erscheinen.
beim nächsten anklicken z.B. C2 soll der Wert in A2 erscheinen und so weiter.
Ist dies möglich ?
Es geht um Autorennen (Runden)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo SHIT
Application.EnableEvents = False
If IsEmpty([a1]) Then
[a1] = Target.Cells(1)
Else
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Cells(1)
End If
SHIT:
Application.EnableEvents = True
End Sub
mfg KurtPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Cancel = True: Target.Offset(, -2) = Target.Value
End Sub
Gruß GerdPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then Target.Offset(0, -2) = Target.Value
Cancel = True
End Sub
Gruß aus dem SauerlandPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column 3 Then Exit Sub
On Error GoTo SHIT
Application.EnableEvents = False
If IsEmpty([a1]) Then
[a1] = Target.Cells(1)
Else
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Target.Cells(1)
End If
SHIT:
Application.EnableEvents = True
End Sub