Office 2003: Makro durch Wenn-Dann starten

[chainle]

Hallo,

Kurz zur Thematik:
In A3 wird ein Wert eingegeben.
B,C und D3 werden über SVERWEIS gefüllt:
Anschließend wird alles in E8:G12 zusammengeführt und soll dann automatisch ausgedruckt werden.
A3 wird anschließend wider gelöscht/zurückgesetzt.

Nach der Eingabe in A3 und anschließendem Betätigen von ENTER läuft alles von selbst bis zur nächsten Eingabe durch.
Dies sollte durch die Wenn-Dann in F2 ausgelöst werden.


Ich habe nun folgendes Problem:
Es funktioniert eigentlich alles, wenn ich manuell auf "Makro starten" klicke bzw den "CommandButton1" betätige.

Allerdings wird das Makro durch die Wenn-Dann-Abfrage in F2 nicht gestartet. Komischerweise läuft allerdings alles ohne Fehler durch und die MessageBox erscheint auch. Allerdings wird der Druckvorgang nicht gestartet und A3 nicht gelöscht.

Wer hat mir hierzu eine Lösung parat?

Vielen Dank im Voraus.

Michael

[maninweb]

Hallo chainle...

probiere es mal wie folgt. Den Code in das Codemodul der Tabelle legen, also da wo CommandButton1_Click drin ist.
Ausserdem müsstest Du die Formel anpassen: F2 =WENN(A3>100;"Druckt";"warte auf EAN")

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.  
3.   Select Case Target.Address
4.  
5.     Case "$A$3"
6.    
7.       If Target.Value > 100 Then
8.      
9.         Application.ActivePrinter = "PDFCreator auf Ne00:"
10.         ActiveSheet.PageSetup.PrintArea = "$E$8:$G$12"
11.         ActiveSheet.PrintOut
12.         ActiveSheet.PageSetup.PrintArea = False
13.        
14.         Application.EnableEvents = False
15.        
16.         Target.ClearContents
17.        
18.         Application.EnableEvents = True
19.        
20.       End If
21.      
22.     Case Else
23.    
24.   End Select
25.  
26. End Sub
27.  

Gruß

[chainle]

Vielen Dank, das war die Lösung :-)