wie kann ich erreichen, dass per Mausklick auf eine Zelle des Zellbereichs G8:G11 in die Zelle der Spalte H (gleiche Zeile) ein 'x' eingetragen wird.
Beispiel: Mausklick auf Zelle G8: in Zelle H8 ein x
Vielen Dank für eure Unterstützung.
mfg
Fritz
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Or Target.Address = "$G$9" Or Target.Address = "$G$10" Then
Range("H8") = Range("G8")
Range("H9") = Range("G9")
Range("H10") = Range("G10")
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Or Target.Address = "$G$9" Or Target.Address = "$G$10" Then
Range("H8") = "X"
Range("H9") = "X"
Cancel = True
End If
End Sub
Sollte es so?Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$G$8" Then
Range("H8") = Range("G8")
Cancel = True
ElseIf Target.Address = "$G$9" Then
Range("H9") = Range("G9")
Cancel = True
ElseIf Target.Address = "$G$10" Then
Range("H10") = Range("G10")
Cancel = True
End If
End Sub
Gruß Hajo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("G8:G11"), Target) Is Nothing Then
Target.Offset(, 1) = "x"
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("G8:G11"), Target) Is Nothing Then
Range("H8:H11").ClearContents
Target.Offset(, 1) = "x"
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set Target=Intersect(Target, Range("G8:G100"))
If Target Is Nothing Then
Exit Sub
Else
Target.OFFSET(0,1) = "X"
Cancel = True
End If
End Sub
Du musst natürlich noch G8:G100 Deinen Bedürfnissen anpassen.