Liebe Excellenten,
wir Ihr aus meinem Problem sehen werdet,
bin ich alles andere als ein Makro-Spezialist...
Folgendes Problem:
Ich habe (nach langer Zeit) ein Makro
zusammengebastelt, das bei Eingabe von
Start und Endnummern Blätter ausdruckt.
Die Nummern sind Kundennummern.
Allerdings gibt es auch passive Kunden, die
ich nicht ausdrucken möchte. Diese Kunden haben
in der Zelle B10 ein "P", die aktiven Kunden
haben ein "A".
Zum Problem:
Wie kann ich in die nachfolgende IF-Struktur
noch folgende Zusätzliche Bedingung intgerieren:
Wenn in Zelle B10 ein "A" drinsteht, dann weiter (also ausdrucken)
wenn nicht, dann die nächste Nummer aufrufen.
Ich habe versucht die IF-Struktur mit einem "and"
zu erweitern, aber das geht nicht (bei mir).
Meine bisherige Struktur(Auszug):
For i = Von To bis
Range("B8").Value = i
If Not IsError(Range("B9"))
---&gt Hier müsste rein "und wenn in B10 ein "A" steht, dann
Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
Ich freue mich auf Eure Vorschläge.
Heinz