Habe in unteren Code 2 Fehler
Bitte um Hilfe
1.Fehler:Application.Run"Test" Könnte man diese Zeile nicht anders schreiben ?
Denn wenn die Mappe unter einen anderen Namen gespeichert wird,läuft
dieser Code nicht mehr.
2.Fehler: Sheets Activitate ist das richtig eingefügt ?
Kommt auch immer in Debug Fehler.
Private Sub CommandButton4_Click()
'---Stunden Zählen -----
Dim blatt As Worksheet
For Each blatt In Sheets(Array("Holzmann H.", "Bindreiter E.", "Horvath St."))
Sheets(blatt.Name).Activate
Application.Run "test.xls!Stunden_zählen"
Next blatt
Sheets("Schichtkalender").activate
End Sub
Könnte mir Bitte jemand weiterhelfen ?
Danke Heinz