Hallo,
vielen Dank für Deine Hilfe!
Habe das Ganze etwas umgebaut, nun sieht es so aus:
_____________________
Sub DruckFragebogenBildungsurlaub()
' zum Tabellenblatt wechseln
Sheets("Fragebogen Bildungsurlaub").Select
With Worksheets("Fragebogen Bildungsurlaub")
If LCase$(.Range("M2")).Value = "n" Then
.Range("H1").Value = .Range("H1").Value + 1
Do
If .Range("H1") <= .Range("H10") Then
' DruckMagazinblanko
Dim strPrinter As String
Const cstrPrinter As String = "\\Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter
.Range("H1") = .Range("H1") + 1
Else
Exit Do
End If
Loop
End If
End With
' zum Tabellenblatt Zusammenfassung Bildungsurlaub wechseln
Sheets("Zusammenfassung Bildungsurlaub").Select
' DruckMagazinblanko
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
End Sub
________________
Für den Bereich "LCase$" kommt die Fehlermeldung: Ungültiger Bezeichner.
Das Skript soll ja
Inhalt M2 prüfen.
Wenn M2 = "n", dann H1 um eins erhöhen und die Prüfung wiederholen.
Wenn M2 = "j", dann das aktuelle Dokument drucken und dann H1 um 1 erhöhen und erneut prüfen.
immer so weiter, bis H1 => H10
Vielleicht ist es möglich die Änderung in das Skript zu schreiben?
Vielleicht habe ich eine Änderung auch an der falschen Stelle eingefügt?
Liebe Grüße
Matthias
|