Weiter habe ich in dem Sheet 48 CommandButtons (cmdT1 bis cmdT48). Nun sollen, je nach dem welcher Button (cmdT1 bis cmdT48) angeklickt wird, die Werte in die zugehörigen Sheets (T1 bis T48) in die nächste freie Zeile kopiert werden.
Gelöst habe ich dies mit folgendem Code:
Sub cmdT1()
Sheets("Bestellung").Select
Range("C29:F29").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("T1").Select
Range("A1:D1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,SkipBlanks _
:=False, Transpose:=False
Sheets("Bestellung").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Nur muss ich nach dieser Methode den Code 48x kopieren und anpassen. Damit wird das Ganze nicht unbedingt übersichtlicher.
Kann mir jemand helfen, wie dies eventuell einfacher geht?
Vielen Dank im Voraus für Eure Mühe
Rainer