ComboBox Kontrollkästchen

[Andyle]

Hallo an alle hier im Forum!

Ich habe 3 ComboBoxen:

Aufträge / Aufträge_offen / Aufträge_erledigt

Dazu möchte ich 3 Kontrollkästchen setzen.

Kontrollkästchen "Alle" soll ComboBox "Aufträge" zeigen
Kontrollkästchen "Offen" soll ComboBox "Aufträge_offen" zeigen
Kontrollkästchen "Erledigt" soll ComboBox "Aufträge_erledigt" zeigen

Also je nach Kontrollkästchen die entsprechende ComboBox-Auswahl an der gleichen Stelle.

ComboBoxen mit dem Inhalt habe ich hinbekommen, mit der Zuordnung der Kontrollkästchen irgendwie nicht.

Danke für Eure Unterstützung

[Klaus-Dieter]

Hallo,


wo hättest du die Spielerei denn gern? Auf einem Tabellenblatt oder auf einem UserForm?

[Andyle]

Auf einem UserForm!

[Case]

Hallo,  

hier mal ein Beispiel mit "OptionButton":

  UF_UserForm_OptionButton_Anzeige_ComboBox.xlsb (Größe: 17,7 KB / Downloads: 7)

Ein Mann/Frau/Divers/OderWasAuchImmerNochKommt  kann das sicher auf Kontrollkästchen umschreiben (ich würde bei OptionButton bleiben).

[Klaus-Dieter]

Hallo,

ich hatte das anders verstanden:

[Andyle]

So in der Art von Klaus-Dieter!

Mein Code, der aber ein Fehler hat!

Code:

Private Sub oballe_Aufträge_Click()
    cobAuftrag.Visible = True
    coboffen.Visible = False
    coberledigt.Visible = False
    Label1.Caption = "Aufträge"
End Sub

Private Sub oboffene_Aufträge_Click()
    cobAuftrag.Visible = False
    coboffen.Visible = True
    coberledigt.Visible = False
    Label1.Caption = "Aufträge_offen"  'Hier scheint der Fehler zu sein! Laufzeitfehler
End Sub

Private Sub oberledigte_Aufträge_Click()
    cobAuftrag.Visible = False
    coboffen.Visible = False
    coberledigt.Visible = True
    Label1.Caption = "Aufträge_erledigt"
End Sub

Private Sub Bearbeiten_Initialize()
    Dim varLabArr As Variant
    Dim intAnz As Integer
    varLabArr = Array("Aufträge", "Aufträge_offen", "Aufträge_erledigt")
    Label1.Caption = "Aufträge"
    cobAuftrag.Visible = True
    coboffen.Visible = False
    coberledigt.Visible = False
    cobAuftrag.Top = 30
    cobAuftrag.Left = 168
    coboffen.Top = 30
    coboffen.Left = 168
    coberledigt.Top = 30
    coberledigt.Left = 168
    cobAuftrag.List = Tabelle4([Aufträge]).Value
    coboffen.List = Tabelle4([Aufträge_offen]).Value
    coberledigt.List = Tabelle4([Aufträge_erledigt]).Value
    oballe_Aufträge.Value = True
End Sub

Gibt es denn keine Möglichkeit, je nach ausgewählten Kontrollkästchen nur den Inhalt von "cobAuftrag" anzupassen?

Es gibt ja Listen "Aufträge", "Aufträge_offen", "Aufträge_erledigt"

[Klaus-Dieter]

Hallo,

habe das noch mal optimiert, es macht ja keinen Sinn mit drei Kombinationsfeldern zu arbeiten, man kann bei einem die Inhalte tauschen. Die Inhaltslisten können bearbeitet und auch erweitert werden, das wird automatisch übernommen.

[Andyle]

Irgendwie will er noch nicht"

Beim Start der UserForm sind "alle Aufträge" leer. Erst beim umschalten der kontrollkästchen und zurück auf alle geht es.
Auch das Label1 zeigt beim UserForm öffnen nicht Aufträge sondern Label1 an.

Hier mal mein gesamter Code der Anzeige:

Code:

Private Sub oballe_Aufträge_Click()
    cobAuftrag.RowSource = "Aufträge"
    Label1.Caption = "Aufträge"
End Sub

Private Sub oboffene_Aufträge_Click()
    cobAuftrag.RowSource = "Aufträge_offen"
    Label1.Caption = "Aufträge_offen"
End Sub

Private Sub oberledigte_Aufträge_Click()
    cobAuftrag.RowSource = "Aufträge_erledigt"
    Label1.Caption = "Aufträge_erledigt"
End Sub

Private Sub Bearbeiten_Initialize()
    Dim varLabArr As Variant
    Dim intAnz As Integer
    Label1.Caption = "alle Aufträge"
    cobAuftrag.RowSource = "Aufträge"
    oballe_Aufträge.Value = True
End Sub



Private Sub cobAuftrag_Click() 'Daten Kunden in Boxen anzeigen

Dim lngSuch
Dim i As Integer
Dim LRow As Long
Dim rngC As Range

'cobAuftrag = ""

LRow = Cells(Rows.Count, 1).End(xlUp).Row
lngSuch = Me.cobAuftrag.Value

Set rngC = Range("D4:D" & LRow).Find(lngSuch, _
   Range("D" & LRow), xlValues)

With Bearbeiten
   If Not rngC Is Nothing Then
      .txtKW = Cells(rngC.Row, 2)
      .txtDatum = Cells(rngC.Row, 3)
      .txtDestination = Cells(rngC.Row, 5)
      .txtProdukt = Cells(rngC.Row, 6)
      .txtMenge = Cells(rngC.Row, 7)
      .txtCharge = Cells(rngC.Row, 8)
      .txtFremd = Cells(rngC.Row, 9)
      .txtLkw = Cells(rngC.Row, 10)
      .txtContainer = Cells(rngC.Row, 11)
      .txtPlombennummer = Cells(rngC.Row, 12)
      .txtZollplombe = Cells(rngC.Row, 13)
      .txtSchiff = Cells(rngC.Row, 14)
      .txtEta = Cells(rngC.Row, 15)
      .txtStatus = Cells(rngC.Row, 16)
      .txtW_Container = Cells(rngC.Row, 17)
      .txtInfo = Cells(rngC.Row, 18)
      .txtVersandstatus = Cells(rngC.Row, 19)
     
     
   Else
      MsgBox "Auftragsnummer " & """" & lngSuch & """" & " wurde nicht gefunden!"
   End If
End With
End Sub

[Klaus-Dieter]

Hallo,

worauf bezieht sich das? Der Quelltext von mir ist es ja offenbar nicht. Zeige mal deine aktuelle Datei.

[Andyle]

Hat sich erledigt!
Vielen Dank für Eure Hilfe!

Private Sub UserForm_Initialize() 'Hier war der Fehler! Hatte Bearbeiten drin, da das userForm Bearbeiten heist.
    Dim varLabArr As Variant
    Dim intAnz As Integer
    cobAuftrag.RowSource = "Aufträge"
    Label1.Caption = "Alle Aufträge auflisten"
    oballe_Aufträge.Value = True
End Sub

---

@ Klaus-Dieter

Dein Code ist doch oberhalb!

Der restliche Code ist, wenn im cobAuftrag etwas ausgewählt, dann alle Felder mit Daten aus der Tabelle füllen!