Thema Datum  Von Nutzer Rating
Antwort
Rot ListBoxen Datenübergabe
07.11.2018 15:09:19 weiti
NotSolved

Ansicht des Beitrags:
Von:
weiti		 Datum:
07.11.2018 15:09:19		 Views:
1270		 Rating:
     
Antwort:
  Ja
Thema:
ListBoxen Datenübergabe

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
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
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<?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>

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot ListBoxen Datenübergabe
07.11.2018 15:09:19 weiti
NotSolved