Hallo,
ich habe mir den folgenden Code zusammengebastelt. Hat auch funktioniert aber jertzt habe ich irgendetwas geändert ohne es zu merken.
Könnt ihr mir helfen??????
Private Sub CommandButton1_Click()
Dim ArrDruck() As String
Dim i As Integer
ArrDruck = Split("GmbH,Stuttgart,Kilometerberechnung,", ",")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next
ThisWorkbook.FollowHyperlink "P:\Projektordner\***hab die Namen hier gelöscht***\Zeichnungen"
'an dieser Stelle den entsprechenden Pfad einfügen
End Sub
es werden nochh alle entsprechenden Dokumente gedruckt aber beim sprung zum Ordner öffnen kommt der Laufzeitfehler 9 Index außerhalb des gültigen Bereichs?????
Ist bestimmt ganz einfach, sehe es aber nicht.....
Danke
ich habe mir den folgenden Code zusammengebastelt. Hat auch funktioniert aber jertzt habe ich irgendetwas geändert ohne es zu merken.
Könnt ihr mir helfen??????
Private Sub CommandButton1_Click()
Dim ArrDruck() As String
Dim i As Integer
ArrDruck = Split("GmbH,Stuttgart,Kilometerberechnung,", ",")
For i = 0 To UBound(ArrDruck)
ThisWorkbook.Sheets(ArrDruck(i)).PrintOut
Next
ThisWorkbook.FollowHyperlink "P:\Projektordner\***hab die Namen hier gelöscht***\Zeichnungen"
'an dieser Stelle den entsprechenden Pfad einfügen
End Sub
es werden nochh alle entsprechenden Dokumente gedruckt aber beim sprung zum Ordner öffnen kommt der Laufzeitfehler 9 Index außerhalb des gültigen Bereichs?????
Ist bestimmt ganz einfach, sehe es aber nicht.....
Danke
