Teilbereich Aktualisierung und WennFehler Makro
14.06.2018 13:16:34
Patrick
ich stehe vor 2 Problemen an denen ich alleine schon am verzweifeln bin.
1. Ich habe eine Tabelle in der per Makro die Bildschirmaktualisierung ausgeschaltet ist. Nun habe ich aber einen Teilbereich in meiner Tabelle (C13 : D18) in dem der Nutzer Materialien mit Anteilen eintragen soll. In Zeile 19 wird dann angegeben welche Summe die Anteile der eingegebenen Materialien aktuell ergeben.
Leider durch die ausgeschaltete Bildschirmaktualisierung berechnet er die Summe erst nach Klicken des Buttons.
Meine Frage ist nun, kann man per Excel Funktion oder VBA-Programmierung für den Teilbereich C13 : D19 die Aktualisierung einschalten? Oder muss man das mit einem Workaround machen?
2. Ich habe in der oben bereits genannten Tabelle einen weiteren Button der aus der Tabelle ein PDF erstellt, nun bräuchte ich hierbei eine Möglichkeit diese Erstellung zu verhindern wenn ein Fehler vorhanden ist in Spalte H auf einem anderen Tabellenblatt (Hier befindet sich ein Fehlerdetektor).
In Excel gibt es ja die Funktion WennFehler, ich suche also quasi nach einer Abfrage nach dem Aufbau WennFehler dann Exit, ansonsten PDF erstellen.
Der Code für den PDF Button ist:
Code:
Sub PDF_erstellen()
' PDF_erstellen Makro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:Users" & Environ("Username") & "Desktop" & Cells(2, 3) & "_vom_" & Day(Now) & "_" & _
_
Month(Now) & "_" & Year(Now) & "_" & Hour(Now) & "_" & Minute(Now) & ".pdf", Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Grüße,
Patrick