Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: chainle am April 15, 2013, 01:17:16 Vormittag

Titel: Office 2003: Makro durch Wenn-Dann starten
Beitrag von: chainle am April 15, 2013, 01:17:16 Vormittag
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
Titel: Antw:Office 2003: Makro durch Wenn-Dann starten
Beitrag von: maninweb am April 15, 2013, 08:24:18 Vormittag
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ß
Titel: Antw:Office 2003: Makro durch Wenn-Dann starten
Beitrag von: chainle am April 15, 2013, 09:50:19 Vormittag
Vielen Dank, das war die Lösung :-)