Abfrage von Pflichtfeldern
11.03.2016 10:54:32
phlp
Hallo zusammen,
ich möchte einen Button mit dem ich meine Exceltabelle in ein PDF umwandeln kann, allerdings soll das nur passieren wenn bestimmte Pflichtfelder ausgefüllt sind.
Ich bin so weit gekommen, dass alles funktioniert wenn alle Pflichtfelder ausgefüllt sind. Wenn eins oder mehrere Pflichtfelder nicht ausgefüllt sind dann wird trotzdem das PDF Dokument geöffnet. Genau das möchte ich aber nicht :D
Lösung ist sicherlich total einfach, aber ich bin bisher nicht drauf gekommen.
Hier noch der Code:
Private Sub CommandButton3_Click()
Dim cell As Range
For Each cell In Range("Pflichtfeld")
If cell.Value = "" Then
cell.Select
MsgBox "Ein Pflichtfeld wurde nicht ausgefüllt!", vbExclamation
End If
Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"1234" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub