Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zweite If

Zweite If
03.01.2006 22:13:58
Heinz
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zweite If
03.01.2006 22:22:50
Ramses
Hallo
For i = Von To bis
Range("B8").Value = i
If Not IsError(Range("B9")) And Range("B10")= "A" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
Gruss Rainer
AW: Zweite If
03.01.2006 22:23:29
Josef
Hallo Heinz!

If Not IsError(Range("B9")) And Range("B10") = "A" Then

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Josef /Ramses. Es funkt-vielen Dank oT
06.01.2006 22:51:06
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige