If then im Makro Teil 2

Forumthread: If then im Makro Teil 2
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: If then im Makro Teil 2

23.05.2006 00: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

AW: If then im Makro Teil 2

23.05.2006 00:52:29

Erich
AW: If then im Makro Teil 2

23.05.2006 01:09:41

AVD

AW: If then im Makro Teil 2

23.05.2006 00: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