Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zur IF Verschachtelung
15.04.2019 16:09:40 Phil
NotSolved
15.04.2019 17:42:38 Gast39335
NotSolved
15.04.2019 17:49:15 Gast47388
NotSolved
15.04.2019 21:30:24 Gast58624
NotSolved
17.04.2019 12:10:25 Holger
NotSolved
18.04.2019 13:56:19 Gast35854
NotSolved

Ansicht des Beitrags:
Von:
Phil
Datum:
15.04.2019 16:09:40
Views:
58
Rating: Antwort:
  Ja
Thema:
Frage zur IF Verschachtelung

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Frage zur IF Verschachtelung
15.04.2019 16:09:40 Phil
NotSolved
15.04.2019 17:42:38 Gast39335
NotSolved
15.04.2019 17:49:15 Gast47388
NotSolved
15.04.2019 21:30:24 Gast58624
NotSolved
17.04.2019 12:10:25 Holger
NotSolved
18.04.2019 13:56:19 Gast35854
NotSolved