Guten Tag,
ich möchte gerne die Zelle I1 prüfen.
Wenn sie größer als I7 ist soll die Seite gedruckt werden und die Zelle I1 um den Faktor "1" erhöht werden.
Anschließend erfolgt wieder die Prüfung.
Wenn die Zelle I1 dann genauso hoch ist wie I7 soll das Makro abgebrochen werden und in das Tabellenblatt "Dokumentendruck" gewechselt werden.
XXX
Hier der Code:
Sub NamensschilderDruckenAlle()
Dim intcounter As Integer
' zum Tabellenblatt Namensschilder wechseln
Sheets("Namensschilder").Select
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'wenn Zelle I1 <= I7
If Cells(1, 1).Value <= Cells(9, 1) Then
'drucke das Blatt auf dem Blanko-Drucker
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
ActivePrinter:=cstrPrinter, Collate:=True
'Zähle dann I1 um 1 nach oben
intcounter = Range("I1").Value
Range("I1") = intcounter + 1
Else
' zum Tabellenblatt Dokumentendruck wechseln
Sheets("Dokumentendruck").Select
End If
End Sub
XXXX
Irgendwie klappt es nicht :-)
Vielleicht hast Du eine Idee?
Liebe Grüße aus Hannover
Matthias
|