Hallo Zusammen.

Ich habe ein Script welches verschiedene Textfelder bzw. ComboBoxen auf Inhalt abfrägt und anschliessend, sofern alle inhalt besitzen, diese per Bookmarks in ein Formular schreibt. Nun ist mein Problem, das der Inhalt dennoch ins Dokument reingeschrieben wird, obwohl gewisse Felder noch leer sind. Ich bekomme zwar die MsgBox, aber danach wird der Text der anderen Felder dennoch weitergeleitet.

Was mache ich falsch?

Viele Grüsse

Phil

Private Sub cmdErstellen_Click()

Dim lngZaehler As Long
Dim blnSelected As Boolean
Dim pStr As String
Dim bmRange As Word.Range
Dim i As Integer

If cboDD = "" Then
    MsgBox "Tag auswählen", 0, "Fehler"
    Else
    If cboMM = "" Then
        MsgBox "Monat auswählen", 0, "Fehler"
        Else
        If cboVerantwortlicher = "" Then
            MsgBox "Verantwortlicher auswählen", 0, "Fehler"
            Else
            If cboH = "" Then
                MsgBox "Stunde auswählen", 0, "Fehler"
                Else
                If cboM = "" Then
                    MsgBox "Minute auswählen", 0, "Fehler"
                    Else
                    If cboOrt = "" Then
                        MsgBox "Ort auswählen", 0, "Fehler"
                        Else
                        If txtVorbereitung = "" Then
                            If MsgBox("Sicher das nichts vorbereitet werden muss?", 4, "Frage") = vbNo Then
                                MsgBox "Bitte Vorbereitung eintragen!", 0, "Hinweis"
                                Else
                            End If
                            Else
                            If HatAuswahl(lboLeiter) Then
                                MsgBox "Mind. 1 Leiter muss ausgewählt werden!"
                                Else
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

Transport:

Set bmRange = ActiveDocument.Bookmarks("bmDatum").Range
bmRange.Text = Me.cboDD.value & "." & Me.cboMM.value & "." & Me.cboYY.value

Set bmRange = ActiveDocument.Bookmarks("bmVerantwortlicher").Range
bmRange.Text = Me.cboVerantwortlicher.value

Set bmRange = ActiveDocument.Bookmarks("bmZeit").Range
bmRange.Text = Me.cboH.value & ":" & Me.cboM.value
                    
Set bmRange = ActiveDocument.Bookmarks("bmOrt").Range
bmRange.Text = Me.cboOrt.value

Set bmRange = ActiveDocument.Bookmarks("bmVorbereitung").Range
bmRange.Text = Me.txtVorbereitung.value

With lboLeiter
For i = 0 To lboLeiter.ListCount - 1
If lboLeiter.Selected(i) = True Then
pStr = pStr & ", " & lboLeiter.List(i)
End If
Next i
End With
                    
Set bmRange = ActiveDocument.Bookmarks("bmLeiter").Range
bmRange = pStr


End Sub