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