Druck mit Makro in Excel
15.05.2008 12:27:00
Marcus
habe folgendene Frage:
Im folgenden Ablauf werden sogenannte Stapelanhänger mit Stückzahlen und andernen Hinweisen zu einem Produkt automatisch aus einer Liste gedruckt.
Wenn die Stückzahl ( steht in "Cells(Counter, 14)" ) größer 50 ist, soll ein zweiter Stapelanhänger ( auch größer zwei, je nach Stückzahl, Teilung immer durch 50 ) automatisch gedruckt werden.
Private Sub CommandButton1_Click()
Range("H1").Select
Range("H1") = 1
msgbox ("Weiter")
Dim Counter, n As Integer
For Counter = 1 To 520
Worksheets("Stapel auto").Cells(Counter, 9).Value = Counter
If Cells(Counter, 10) = 1 Then
Range("H1") = Cells(Counter, 9)
ActiveSheet.PrintOut
End If
n = n - (Cells(Counter, 10) = 1)
Next Counter
msgbox ("Das war's:" & " " & n & " " & "Stapelanhänger gedruckt")
End Sub
Wer hat eine Idee?
Danke
Marcus Leu