For Schleife mit Bedingung
06.05.2004 10:41:20
Robert
ich hatte die Frage schon mal gepostet, aber weil ich auf
die Rückfrage nicht gleich antworten konnte ist die Frage "versandet".
Ich habe eine Tabelle mit ca. 3000 Kunden
(Kundennummer in A und Abverkaufsdaten in den Spalten dahinter).
Auf einem anderen Auswertblatt habe ich mit Formeln ein Abfrageformular erstellt, das bei der Eingabe der Kundennummer mit den aktuellen Abverkaufsdaten gefüllt wird.
Mein Wunsch: Ich habe eine kleine "For-Schleife" geschrieben, um die
Daten mehrerer Kunden am Stück auszudrucken.
Sub Kunden_ausdrucken()
Dim von As Integer
Dim bis As Integer
von = Application.InputBox("Kundennummer: Von")
bis = Application.InputBox("Kundennummer: Bis")
For i = von To bis
Range("C2").Value = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub
Aber leider sind die Kundennummern (4-stellig) nicht vollzählig, das heißt es
sind Lücken drin.
Wenn ich also die Kunden 1100 bis 1200 ausdrucken will, gibt es auch Nummern,
die nicht belegt sind.
Wie kann ich per VBA überprüfen, ob die Nummer vorhanden ist und nur dann
den Ausdruck "anschieben" bzw. die Nummer überspringen, die in der Kundentabelle nicht enthalten sind.
Ich freue mich auf Eure Lösungen.
Robert