Eingabe wird ignoriert
29.05.2022 21:58:19
U
Ich habe einen Makro Code geschrieben, es kommt jedes Mal ein Inputbox in dem ich Zahlen eingebe. Durch die Eingabe werden Spalten ausgedruckt.
Blatt 1 = xxx Zahlen Blatt 2 = xlx zahlen etc.
Ich habe in dieser rheinfolgedie Zahlen eingegeben : 7, 50 .30, 30
Problem: bei Tour 1 passiert nichts, es wird leer ausgedruckt. das heißt die 7 wird nicht berücksichtigt
Tour 2 und Tour 3 mit 50 und 30 ist richtig ausgedruckt. dadurch das bei tour 1 nichts passiert und die 7 nicht berücksichtigt wird.
fängt es erst bei Tour 2 zu Zählen bzw. zu drucken.
und bei Tour 4 wird von 30 nur 20 berücksitgt.
also geht es nur bis KLts 100. die 17 Klts fehlen dadurch.
Die erste eingeben Zahl wird nicht berückstichtigt , weiß einer warum ? wäre echt für jede Hilfe dankbar.
Hier der Code:
Sub PickListPrint()
Dim Menge
Dim LfdMin
Dim LfdMax
Dim Tour
Dim TourI
Dim KLT
Dim VerbleibendeKLTS
Sheets("LSA").Select
' setzt Filter um ihn nachher löschen zu können
ActiveSheet.Range("A2:A1000").AutoFilter Field:=1, Criteria1:="" & LfdMin
' maximal 46 KLTs
ActiveSheet.Range("A2:S" & Ende).AutoFilter Field:=3, Criteria1:=" 1 Then
Selection.FillDown
End If
Columns("Q:Q").Select
Selection.EntireColumn.Hidden = True
Range("F1").Select
ActiveCell.FormulaR1C1 = "Delivery-List - Tour " & TourI
Selection.Font.Bold = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
'LfdMin = LfdMin + Menge
Sheets("MA").Select
ActiveSheet.Range("A2:S" & Ende).AutoFilter Field:=1, Criteria1:="" & LfdMin
Range("F1").Select
ActiveCell.FormulaR1C1 = "Pick-List - Tour " & TourI
Selection.Font.Bold = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
' WA 1.2 Exit of loon, if number of tours has been calculated to high
If LfdMax = KLT Then
GoTo EndPrint
End If
LfdMin = LfdMax
'Rechnet den Wert TourI eins hoch damti auf dem nächsten Druck die nächste Tour beschrieben wird
TourI = TourI + 1
'Rechnet die Verbleibenden KLTS minus die ausgedruckte menge
VerbleibendeKLTS = VerbleibendeKLTS - Menge
'wiederholt den Druckvorgang bis keine KLT mehr übrig sind
End If
Loop Until VerbleibendeKLTS