Thema Datum  Von Nutzer Rating
Antwort
29.03.2022 19:15:37 elias
NotSolved
29.03.2022 22:02:19 ralf_b
NotSolved
30.03.2022 12:05:19 Gast89485
NotSolved
30.03.2022 17:37:43 ralf_b
NotSolved
30.03.2022 17:54:47 ralf_b
*****
Solved
Blau VBA Excel: TreeView mit ComboBox verknüpfen
31.03.2022 11:46:58 elias
NotSolved
31.03.2022 19:20:53 ralf_b
*****
Solved

Ansicht des Beitrags:
Von:
elias
Datum:
31.03.2022 11:46:58
Views:
183
Rating: Antwort:
  Ja
Thema:
VBA Excel: TreeView mit ComboBox verknüpfen

Moin Ralf, 

erstmal vielen Danke für deine Antwort, ich habe das ganze Alternativ so dargestellt: 

 

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

 Dim ListValues(2, 1) As Variant
    ListValues(0, 0) = "Case 1"
    ListValues(0, 1) = "A"
    
    ListValues(1, 0) = "Case 2"
    ListValues(1, 1) = "B"
    
    ListValues(2, 0) = "Case 4"
    ListValues(2, 1) = "D"
    

 Dim ListValues2(2, 1) As Variant
    ListValues2(0, 0) = "Case 1"
    ListValues2(0, 1) = "A"
    
    ListValues2(1, 0) = "Case 3"
    ListValues(1, 1) = "C"
    
    ListValues2(2, 0) = "Case 5"
    ListValues2(2, 1) = "E"
    
    With ComboBox1
    .Clear
    Select Case Node.Key
       Case "A"
        .List = ListValues
        
       Case "B"
       .List = ListValues2
      End Select
    End With
    
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Value = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)

End Sub

Ich habe nun zwei Probleme: 

  •  1. Sobald ich den Unterpunkt SubItem1 anklicke, werden mir meine Elemente aus der ComboBox nicht mehr angezeigt. Eine Lösung wäre die Keys vom Child Knoten mit anzugeben. Allerdings muss es eine einfachere und schönere Lösung geben. Ich habs mit "node.parent" ausprobiert, aber ohne Erfolg
  • 2. Ich habe zwei Listen erstellt für meine ComboBox, weil ich am Ende in einer TextBox den Index als Buchstaben ausgeben möchte, funktioniert auch soweit gut, aber sobald ich eine Auswahl getroffen habe und dann doch wechseln möchte, wirft er mir den Error Code 381 aus. 

Hast du da vielleicht eine Ahnung? 

Liebe Grüße 


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:

 
 

  • 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
29.03.2022 19:15:37 elias
NotSolved
29.03.2022 22:02:19 ralf_b
NotSolved
30.03.2022 12:05:19 Gast89485
NotSolved
30.03.2022 17:37:43 ralf_b
NotSolved
30.03.2022 17:54:47 ralf_b
*****
Solved
Blau VBA Excel: TreeView mit ComboBox verknüpfen
31.03.2022 11:46:58 elias
NotSolved
31.03.2022 19:20:53 ralf_b
*****
Solved