Im Netz habe ich schon einen Ansatz dazu gefunden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B24")) Is Nothing Then
Range("C2").Value = Target.Value
End If
End Sub
Problem dabei ist, dass bei dieser VBA 1.) nur eine Zelle kopiert wird und 2.) die kopierte Zelle nur in C2 eingefügt wird.
Ich ich möchte aber mehrere Zellen anklicken (bspw. B2, B5; B12 & B18) und diese dann in C2, C3, C4, C5 etc. untereinander einfügen.
Könnt ihr mir da helfen ?
Gruß
Thomas