Habe mit dem code schon mal angefangen und komme nicht weiter. Ich möchte die Markieten zellen oder zelle kopieren und die inhalte nach einen anderen tabellenblatt mit über einem comanndoButton übertragen.
Anbei den unfertigen Code:
Private Sub CommandButton1_Click()
Sheets("Rech_WinterABO").Activate
Sheets("Rech_WinterABO").Range("K19:K31").Select
Selection.ClearContents
Sheets("Tab_Winterbuchung").Activate
'Ab hier weiß ich nicht mehr weiter eventuell ActiveCell.copy oder so
Sheets("Rech_WinterABO").Activate
Sheets("Rech_WinterABO").Range("K19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Danke und Gruß Achim H.