VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Fehlermeldung über VBA erwirken	01.02.2017 13:50:40	Sebastian
Fehlermeldung über VBA erwirken	01.02.2017 14:19:39	Werner
Fehlermeldung über VBA erwirken	01.02.2017 15:31:02	Gast80854
Fehlermeldung über VBA erwirken	01.02.2017 16:39:24	Sebastian
Fehlermeldung über VBA erwirken	02.02.2017 06:42:36	Werner
Fehlermeldung über VBA erwirken	02.02.2017 09:25:38	Sebastian
Gerne u. Danke für die Rückmeldung	02.02.2017 10:01:09	Werner

Ansicht des Beitrags:

Von:
Werner

Datum:
02.02.2017 06:42:36

Views:
786

Rating:

Antwort:

Thema:
Fehlermeldung über VBA erwirken

Hallo Sebastian,

ich habe jetzt zusätzlich noch eine Prüfung drin, ob die Zellen C11 und E11 ausgefüllt sind. Denn zwei leere Zellen sind gleich somit würde das Makro auch laufen wenn in C11 und E11 keine Daten drin sind. Keine Ahnung ob das für dich notwendig ist. Wenn nicht den entsprechenden If - End If Block einfach löschen.

If Range("E4") = "" Then
    MsgBox "Mat No Fehlt"
    Exit Sub
End If

If Range("C11") = "" Or Range("E11") = "" Then 'wenn unnötig Block löschen
    MsgBox "Zellen C11 und E11 ausfüllen"
    Exit Sub
End If

If Range("C11") <> Range("E11") And Range("B22") = "" Then
    MsgBox "Begründung fehlt"
    Exit Sub
Else
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "O:\Neue_Transferpreise\" & ActiveSheet.Range("E4").Value & " - " & ActiveSheet.Range("H1").Value & ".pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
    MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("E4").Value & " - " & ActiveSheet.Range("H1").Value & ".pdf gespeichert.", , "OK"
End If

Gruß Werner

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Fehlermeldung über VBA erwirken	01.02.2017 13:50:40	Sebastian
Fehlermeldung über VBA erwirken	01.02.2017 14:19:39	Werner
Fehlermeldung über VBA erwirken	01.02.2017 15:31:02	Gast80854
Fehlermeldung über VBA erwirken	01.02.2017 16:39:24	Sebastian
Fehlermeldung über VBA erwirken	02.02.2017 06:42:36	Werner
Fehlermeldung über VBA erwirken	02.02.2017 09:25:38	Sebastian
Gerne u. Danke für die Rückmeldung	02.02.2017 10:01:09	Werner