CommandButton kopieren & ins nächste Arbeitsblatt
26.11.2018 06:54:10
Werner
ich habe im Arbeitsblatt "Stammdaten" einige CommandButton und die möchte ich Kopieren und in das Areitsblatt "Gehaltsabrechnung" einfügen.
Unter "Gehaltsabrechnung" steht schon eine andere Zuweisungen.
Ich hoffe, ich habe mich verständlich ausgedrückt.
Danke & Grüße aus dem hohen Norden.
die Button haben folgende funktionen:
Private Sub Azeit_cmd_Click()
Sheets("Arbeitszeitübersicht").Select
End Sub
Private Sub Hinweis_cmd_Click()
Sheets("Anleitung").Select
End Sub
Private Sub Jan_cmd_Click()
Sheets("Jan").Select
aktualisieren "Jan", "Januar"
End Sub
Private Sub Feb_cmd_Click()
Sheets("Feb").Select
aktualisieren "Feb", "Februar"
End Sub
Private Sub JLohn_cmd_Click()
Sheets("Lohnkonto").Select
End Sub
Private Sub Mrz_cmd_Click()
Sheets("März").Select
aktualisieren "März", "März"
End Sub
Private Sub April_cmd_Click()
Sheets("April").Select
aktualisieren "April", "April"
End Sub
Private Sub Mai_cmd_Click()
Sheets("Mai").Select
aktualisieren "Mai", "Mai"
End Sub
Private Sub Juni_cmd_Click()
Sheets("Juni").Select
aktualisieren "Juni", "Juni"
End Sub
Private Sub Juli_cmd_Click()
Sheets("Juli").Select
aktualisieren "Juli", "Juli"
End Sub
Private Sub Aug_cmd_Click()
Sheets("Aug").Select
aktualisieren "Aug", "August"
End Sub
Private Sub Sep_cmd_Click()
Sheets("Sep").Select
aktualisieren "Sep", "September"
End Sub
Private Sub Okt_cmd_Click()
Sheets("Okt").Select
aktualisieren "Okt", "Oktober"
End Sub
Private Sub Nov_cmd_Click()
Sheets("Nov").Select
aktualisieren "Nov", "November"
End Sub
Private Sub Dez_cmd_Click()
Sheets("Dez").Select
aktualisieren "Dez", "Dezember"
End Sub
Private Sub Kalender_cmd_Click()
Sheets("Kalender").Select
End Sub
Werner