Hallo Zusammen,
wenn ich den Code abspielen lasse kommt die Fehlermeldung "ungültiger Bezeichner".
Die Word Dokumente habe ich oben schon deklariert, falls sich jemand wundern sollte.
Die Fehlermeldung zeigt mir Bmark1 als ungültigen Bezeichner, allerdings weiß ich nicht wie ich das ganze beheben kann.
a = a + 1 'Hier wird a pro Arbeitsschritt eines Dokuments um den Wert 1 erhöht, wichtig füt den Ladebalken.
Dim Bmark1 As String
Dim BText As String
BText = "Überstunden"
Bmark1 = "Textmark1"
Doc2.Open
If Worksheets("übersicht").Range("T3") = "X" Then
Bmark1.Visible = True
Else
Bmark1.Visible = False
Doc2.SaveAs Ziel2
Doc2.Close
DoEvents
Ladebalken.Label.Width = a * b
Ladebalken.Caption = "Dokumente werden erstellt... " & a & "/" & y
Danke und Gruß
Raptor