Hallo,
zu folgendem Code benötige ich Hilfe:
Dim Counter As Integer
Dim n As Integer
For Counter = Range("ag3").Value To Range("ag4").Value
If Cells(Counter, 23) = 1 Then
Range("af2") = Cells(Counter, 22)
ActiveSheet.PrintOut Copies:=Int(Cells(Counter, 31) / 1)
End If
n = n - (Cells(Counter, 20) = 1)
Next Counter
Es werden Etiketten für Artikel über diese Schleife ausgedruckt.
Ein Artikel kann aus mehreren Etiketten bestehen.
Das habe ich über "ActiveSheet.PrintOut Copies:=Int(Cells(Counter, 31) / 1)" hinbekommen.
Aber nun soll noch eine fortlaufende Nummerierung auf die Etiketten, wenn ein Artikel eben aus mehreren Etiketten besteht (z.B. 1/3 , 2/3 , 3/3).
Die Anzahl der Einzeletiketten je Artikel steht in Spalte 31.
Danke für Eure Hilfe
Marcus