ListBox_Change

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
CheckBox ListBox TextBox
Bild

Betrifft: ListBox_Change
von: Dirk
Geschrieben am: 01.12.2015 15:11:35

Hallo in's Forum,
ich habe folgendes Problem :
Ich fülle Combo- & Textboxen über ListBox_Change(). In Abhängigkeit des Inhaltes
einer somit gefüllten Combobox sollen 2 Checkboxen angesprochen werden (wenn Combo-
Box1="Firma", dann CheckBox2=True; wenn ComboBox1<>"Firma", dann CheckBox1=True.
Klappt soweit ganz gut, nur daß CheckBox1 (<>"Firma") immer erst beim zweiten ListBox_Change der Haken gesetzt wird.
Für mich ein unlösbares Problem, für Euch wahrscheinlich ein Klacks.
Vielen Dank im Voraus.

Private Sub ListBox1_Change()
On Error Resume Next
    If ListBox1.Tag <> "" Then Exit Sub
    ComboBox1 = ListBox1.List(ListBox1.ListIndex, 0)
    TB03 = ListBox1.List(ListBox1.ListIndex, 1)
    TB02 = ListBox1.List(ListBox1.ListIndex, 2)
    TB04 = ListBox1.List(ListBox1.ListIndex, 3)
    TB05 = ListBox1.List(ListBox1.ListIndex, 4)
    TB06 = ListBox1.List(ListBox1.ListIndex, 5)
    TB07 = ListBox1.List(ListBox1.ListIndex, 6)
    TB58 = ListBox1.List(ListBox1.ListIndex, 10)
    If ComboBox1.Value = "Firma" Then
    CB01.Value = False
    CB02.Value = True
    End If
    If ComboBox1.Value <> "Firma" Then
    CB01.Value = True
    CB02.Value = False
    End If
End Sub

Bild

Betrifft: AW: ListBox_Change
von: Rudi Maintaire
Geschrieben am: 01.12.2015 15:57:35
Hallo,
wann wird denn ListBox1.Tag gesetzt?
Setz doch einfach mal einen Haltepunkt vor
If ListBox1.Tag <> "" Then Exit Sub
Gruß
Rudi

Bild

Betrifft: AW: ListBox_Change
von: Dirk
Geschrieben am: 01.12.2015 16:20:49
Hallo Rudi,
vielen Dank für Deine Antwort. Stehe ein bischen "auf dem Schlauch".
Was meinst Du mit Haltepunkt ?
Beste Grüße
Dirk

Bild

Betrifft: AW: ListBox_Change
von: Dirk
Geschrieben am: 01.12.2015 18:14:25
Hallo Rudi,
hab's hingekriegt, indem ich in die Prozedur für
die ComboBox ein Change-Ereignis eigefügt habe.
Vielen Dank noch mal für Deine Unterstützung.
Beste Grüße
Dirk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Erstellen eines Deckblattes aus Datensatz"