Hallo Leute,

ich hänge hier an einem komischen Problem

Ich habe ein Formular mit drei ListBoxen die ich über eine xml befülle und dann eine Vorauswall treffe, wen nun auf einen Button geklickt wird, öffnet sich nun testweiße eine MsgBox in der die ausgewällten Elemente der List Boxen ausgegeben werden.

Nun habe ich aber das Problem, wenn man die Vorauswall nicht abändert, die Daten nicht richtig übernommen werden.

https://picload.org/view/dcodcprr/unbenannt1.jpg.html

https://picload.org/view/dcodcprg/unbenannt2.jpg.html

UserForm

Private Sub UserForm_Initialize()
    Debug.Print vbCr; vbCr; vbCr; vbCr; vbCr; vbCr
    Debug.Print "-- Start -- " & Format(Time, "hh:nn:ss")
    Dim XDoc As Object
    Set XDoc = CreateObject("MSXML2.DOMDocument")
    
    XDoc.async = False: XDoc.validateOnParse = False
    XDoc.Load ("MMSupport.xml")
     
    Set lists = XDoc.DocumentElement
    
    For Each listNode In lists.ChildNodes
        For Each fieldNode In listNode.ChildNodes
            Select Case listNode.BaseName
                Case "ListSystem":  Me.ListSy.AddItem fieldNode.text
                Case "ListReason":  Me.ListRe.AddItem fieldNode.text
                Case "ListTime":    Me.ListTi.AddItem fieldNode.text
                Case Else
            End Select
        Next fieldNode
    Next listNode
    Set XDoc = Nothing
End Sub
Private Sub ButtonSend_Click()
Dim error As String
error = "ListSystem: " & Me.ListSy.ListIndex & vbTab & " | " & Me.ListSy.text & vbCr
error = error & "ListReason: " & Me.ListRe.ListIndex & vbTab & " | " & Me.ListRe.text & vbCr
error = error & "ListTime: " & Me.ListTi.ListIndex & vbTab & " | " & Me.ListTi.text & vbCr

If Me.ListSy.ListIndex < 0 Then
    error = "- a System / Topic" & vbCr
End If
If Me.ListRe.ListIndex < 0 Then
    error = error & "- a Reason" & vbCr
End If
If Me.ListTi.ListIndex < 0 Then
    error = error & "- a Ticket Time" & vbCr
End If

If error <> "" Then
    MsgBox "please select" & vbCr & error
End If
End Sub

Makro Öffnen

Sub MMSupport_01_OpenForm()
    Dim FORM As Object
    Set FORM = MM_Support_v2

    With FORM
        'Default Settings System/Topic
        .ListSy.Selected(0) = True  '0= SWAT
        'Default Settings Reason
        .ListRe.Selected(2) = True  '2= Training/Support
        'Default Settings Time
        .ListTi.Selected(0) = True    '0= 5 min
            
        'Default Settings Time
        .OpShow.Value = False       ' Show True/False
        .OpSend.Value = True        ' Send True/False
        .OpDelete.Value = True      ' Delete True/False   !!! Delete Emails automatically from Inbox
        'MM_Support Öffnen
        .Show
    End With
End Sub

XML File

<?xml version="1.0" encoding="utf-8"?>
<DistributionLists>
    <ListSystem>
		<wert>Others1</wert>
		<wert>Others2</wert>
		<wert>Others3</wert>
		<wert>Others4</wert>
		<wert>Others5</wert>
		<wert>Others6</wert>
		<wert>Others7</wert>
		<wert>Others8</wert>
		<wert>Others9</wert>
		<wert>Others</wert>
    </ListSystem>
    <ListReason>
		<wert>OOthers1</wert>
		<wert>OOthers2</wert>
		<wert>OOthers3</wert>
		<wert>OOthers4</wert>
		<wert>OOthers5</wert>
		<wert>OOthers6</wert>
		<wert>OOthers7</wert>
		<wert>OOthers8</wert>
		<wert>OOthers9</wert>
		<wert>OOthers</wert>
    </ListReason>
    <ListTime>
		<wert>5 min</wert>
		<wert>5-15 min</wert>
		<wert>15-30 min</wert>
		<wert>30-60 min</wert>
		<wert>1-4 h</wert>
		<wert>4-8 h</wert>
		<wert>> 1 day</wert>
    </ListTime>
</DistributionLists>