wer kann helfen:
Private Sub CommandButton1_Click()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
End With
If MsgBox("Alles berechnet!" & Chr(13) & "Richtiges Papier eingelegt?" & Chr(13) & " _
Jetzt drucken?", vbYesNo) = vbNo Then
Exit Sub
Else
Range("H1") = 1
Dim Counter, n As Integer
Dim LoI As Long
Dim StWert As String
For Counter = Range("h6").Value To Range("h7").Value
Range("h3") = 224
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 1 Then
Range("H1") = Cells(Counter, 15)
For LoI = 1 To 1
Select Case LoI
Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 221
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 2 Then
Range("H1") = Cells(Counter, 15)
For LoI = 2 To 2
Select Case LoI
'Case 1: StWert = Cells(Counter, 22)
Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 221
Range("h5") = 1
If Counter 0 Then
If Cells(Counter, 16) = 3 Then
Range("H1") = Cells(Counter, 15)
For LoI = 3 To 3
Select Case LoI
'Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 222
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 4 Then
Range("H1") = Cells(Counter, 15)
For LoI = 4 To 4
Select Case LoI
'Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 223
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 5 Then
Range("H1") = Cells(Counter, 15)
For LoI = 5 To 5
Select Case LoI
'Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 225
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 6 Then
Range("H1") = Cells(Counter, 15)
For LoI = 6 To 6
Select Case LoI
Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
Case 6: StWert = Cells(Counter, 27)
'Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Range("h3") = 226
Range("h5") = ""
If Counter 0 Then
If Cells(Counter, 16) = 7 Then
Range("H1") = Cells(Counter, 15)
For LoI = 7 To 7
Select Case LoI
'Case 1: StWert = Cells(Counter, 22)
'Case 2: StWert = Cells(Counter, 23)
'Case 3: StWert = Cells(Counter, 24)
'Case 4: StWert = Cells(Counter, 25)
'Case 5: StWert = Cells(Counter, 26)
'Case 6: StWert = Cells(Counter, 27)
Case 7: StWert = Cells(Counter, 28)
End Select
ActiveSheet.PrintOut
Next LoI
End If
End If
Next Counter
MsgBox ("Das war's:" & " " & "Stapelanhänger gedruckt")
End If
End Sub
Mein Problem: Der Counter sollte in der For Counter = Range("h6").Value To Range("h7").Value Next Schleife bei jeder "Range("h3") = 221 bis 226" Auswahl aktualisiert werden da er sich je nach Wert (z.B. 221) ändert.
For Counter = Range("h6").Value To Range("h7").Value => h6 ist kkleinster Wert einer Auswahl und h7 ist kgrößter Wert und ist bei jeder Auswahl wie oben beschrieben veränderlich.
Ich hoffe ich hab's einigermaßen erklärt.