Ich möchte gerne wenn ich in B3:B12 einen doppelklick mache, das dieser Wert in B2 eingetragen wird.
Könnte mir dazu bitte jemand helfen ?
Gruß
Heinz
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B3:B12")) Is Nothing Then
Range("B2").Value = Target.Value
End If
End Sub
Gruß Matthias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B3:B12")) Is Nothing Then
Range("B2").Value = Target.Value
Cancel = True
End If
End Sub
Gruß von Luschi
aus klein-Paris