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"
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.
Viele Grüße Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
30.07.2023, 12:09 (Dieser Beitrag wurde zuletzt bearbeitet: 30.07.2023, 12:24 von 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
30.07.2023, 12:41 (Dieser Beitrag wurde zuletzt bearbeitet: 30.07.2023, 12:44 von 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!