Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If then im Makro Teil 2

If then im Makro Teil 2
22.05.2006 22:43:32
AVD
Mein Problem ist;
Wenn im Feld F5 in der Tabelle1 ein "WAHR" steht möchte ich, daß der nachfolgende Druckbefehl ausgelöst wird. Das funktioniert. Wenn jedoch ein "FALSCH" drin steht wird auch gedruckt, und zwar die komplette Tabelle1.
Es soll jedoch nicht gedruckt werden.
Was muss ich nun machen.
Danke
Alex

Sub Druck_GBV_A()
' Antrag_UV_Badener_Blanko_Kombi_erda Makro
' Makro am 30.08.2001 von Alex aufgezeichnet
Sheets("Tabelle1").Select
If Range("F5") Then _
Sheets("Geschäftsbesorgungsvertrag").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=2, _
Collate:=True
Sheets("Tabelle1").Select
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If then im Makro Teil 2
22.05.2006 22:52:29
Erich
Hallo Alex,
in deinem Code wirkt das "If" nur auf die Zeile danach mit dem Select. Es müsste so gehen:
Sub Druck_GBV_A()
' Antrag_UV_Badener_Blanko_Kombi_erda Makro
' Makro am 30.08.2001 von Alex aufgezeichnet
Sheets("Tabelle1").Select
If Range("F5") Then
Sheets("Geschäftsbesorgungsvertrag").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=2, _
Collate:=True
Sheets("Tabelle1").Select
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: If then im Makro Teil 2
22.05.2006 23:09:41
AVD
Hallo Erich,
jetzt ist alles perfekt. Super.
Vielen Dank ich freue mich.
Gruß
Alex
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige