Ich habe den folgenden Code Hier aus dem Forum (von mir schon leicht abgeändert!).
Private Sub CommandButton1_Click()
Dim Quell As Range
Dim r As Range
Range("C4,D4,E4,G4,I4,K4,M4,N4,O4,V4").Select
For Each Quell In Selection
Quell.Copy
Quell.Offset(19, 0).PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub
Wie kann ich das so abändern, dass er mir in die Zeile C23 - C29 bei klick die o. a. Zellen kopiert?
Danke im voraus für Eure Hilfe!
Gruß, Mike
PS:
Nach Lösung dieses Problems möchte ich einen weiteren schritt gehen und bei "Worksheet_SelectionChange" dann bei klick in
b4 = Range("C4,D4,E4,G4,I4,K4,M4,N4,O4,V4").Select in die nächste frei Zelle ab c23 zu kopieren,
b5 = Range("C5,D5,E5,G5,I5,K5,M5,N5,O5,V5").Select in die nächste frei Zelle ab c23 (in c24) zu kopieren,
b6
b7
b8
b9
b10 usw.
Vieleicht hat ja auch dazu schon jemand eine Idee?