|
Moin in die nette Runde!
Wollte ein Makro schreiben mit dem die Zelle "M2" auf Inhalt geprüft wird (j oder n).
Wenn "n", soll die Zelle "H1" um den Wert 1 erhöht werden.
Wenn "j" soll das Tabellenblatt gedruckt werden und dann die Zelle "H1" erhöht werden.
Das Ganze soll enden, wenn die Zelle "H1" genauso groß ist wie Zelle "H10".
Klappt logischerweise nicht, finde aber irgendwie den Fehler nicht:
_________________
Sub DruckFragebogenBildungsurlaub()
' zum Tabellenblatt wechseln
Sheets("Fragebogen Bildungsurlaub").Select
With Worksheets("Fragebogen Bildungsurlaub")
If .Range("M2") = "n" Then
Do
If .Range("H1") <= .Range("H10") Then
' DruckMagazinblanko
Dim strPrinter As String
Const cstrPrinter As String = "\\RDS 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
___
Weiß jemand, wie ich das Makro verändern muss?
Liebe Grüße
Matthias
|