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
Hallo,
wo hättest du die Spielerei denn gern? Auf einem Tabellenblatt oder auf einem UserForm?
Hallo,
hier mal ein Beispiel mit "
OptionButton":
[
attachment=48978]
Ein
Mann/Frau/Divers/OderWasAuchImmerNochKommt kann das sicher auf Kontrollkästchen umschreiben (
ich würde bei OptionButton bleiben).
Hallo,
ich hatte das anders verstanden:
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"
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.
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
Hallo,
worauf bezieht sich das? Der Quelltext von mir ist es ja offenbar nicht. Zeige mal deine aktuelle Datei.
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!