Bitte Code vereinfachen
16.01.2006 11:22:27
Heinz
Ich habe den unteren Code mittels Recorder aufgezeichnet.
Funkt.auch,aber könnte man das ganze nicht einfacher machen.
Speziell mit Run "Test" und "Select".
Könnte mir Bitte jemand dabei helfen.
Gruß Heinz
Private Sub CommandButton4_Click()
'---Stunden Zählen -----
Sheets("Bindreiter E.").Select
Application.Run "test.xls!Stunden_zählen"
Sheets("Zimmermann E.").Select
ActiveWindow.SmallScroll ToRight:=16
Application.Run "test.xls!Stunden_zählen"
Sheets("Horvath St.").Select
ActiveWindow.SmallScroll ToRight:=16
Application.Run "test.xls!Stunden_zählen"
Sheets("Holzmann H.").Select
ActiveWindow.SmallScroll ToRight:=16
Application.Run "test.xls!Stunden_zählen"
End Sub