Mahlzeit,
hier mal eine Kreation die ich mir bis jetzt zusammengebastelt habe, vielleicht ist damit verständlicher woraus ich hinaus möchte:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("S9:S109")) Is Nothing Then
Cancel = True
Range("O9") = Target.Value
End If
If Not Intersect(Target, Range("R9:R109")) Is Nothing Then
Cancel = True
Range("N9") = Target.Value
End If
If Not Intersect(Target, Range("Q9:Q109")) Is Nothing Then
Cancel = True
Range("M9") = Target.Value
End If
End Sub
Hierbei muss ich jede Zelle einzeln anklicken um in die gewünschte Zelle zu kopieren, das ist jetzt so die Holzhammermethode und wäre natürlich viel eleganter wenn ich nur aus S9 bis S109 auswählen könnte.
Wie geschrieben, bin ich für jede Hilfe dankbar.
Gruss, Jost