Thema Datum  Von Nutzer Rating
Antwort
Rot ComboBoxes während der Laufzeit dynamisch erstellen und befüllen
30.06.2015 10:23:02 weserblümchen
Solved
01.07.2015 16:46:43 weserblümchen
NotSolved

Ansicht des Beitrags:
Von:
weserblümchen
Datum:
30.06.2015 10:23:02
Views:
2016
Rating: Antwort:
 Nein
Thema:
ComboBoxes während der Laufzeit dynamisch erstellen und befüllen

Hallo liebe Community,

Leider konnte ich bis jetzt nicht wirklich eine Antwort auf meine Probleme finden, deshalb versuche ich es jetzt hier..

In meinem Projekt bin ich gerade dran, ComboBoxes, je nach Bedarf, während der Laufzeit einzufügen. Das klappt bis jetzt auch ganz gut:

Ich habe jetzt nur 2 Probleme:

1. Wie bekomme ich die "benannt", sprich, ich möchte sie ja befüllen und dann später die Auswahl auslesen? Daten dafür liegen in einem Tabellenblatt..

Damit bin ich dann auch schon beim 2. Problem: Die Auswahl in der ersten Box entscheidet über die Werte in der zweiten. Wenn in der ersten Box also ausgewählt wird, dass nach Lieferanten gefiltet werden soll, sollen in der zweiten nur die Namen der Lieferanten auswählbar sein.

 

Private Sub CommandButton1_Click()
    Dim counter As Integer
        counter = Sheets("Daten").Range("F1").Value
    Dim combo1 As MSForms.ComboBox
    Dim combo2 As MSForms.ComboBox
    Dim anzahl As Integer
        anzahl = Sheets("Daten").Range("F2").Value
    
    Set combo1 = Me.MultiPage1.Pages("Page1").Controls.Add("Forms.ComboBox.1")  
            .Left = 20                                 ' ... Position linke Seite
            .Top = counter                                    ' ... Oberkante
            .Width = 210                            ' ... Breite
        End With                                        
    
    Set combo2 = Me.MultiPage1.Pages("Page1").Controls.Add("Forms.ComboBox.1")     
            .Left = 260                                 ' ... Position linke Seite
            .Top = counter                                    ' ... Oberkante
            .Width = 210                                  ' ... Breite
        End With                                        
    Sheets("Daten").Range("F1").Value = counter + 30    
    Sheets("Daten").Range("F2").Value = anzahl + 1
End Sub

 

Das ist der Code meines Buttons, wobei der Counter dafür genutzt wird, dass die Boxes schön untereinander liegen und anzahl für die Anzahl der Reihen der Comboboxes, dachte, wenn man die irgendwie in einer Schleife befüllt, könnte das sinnvoll sein. Ich bin noch Anfänger und stehe jetzt komplett auf dem Schlauch, ich hoffe, ihr könnt mir helfen!

Liebe Grüße,
weserblümchen


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
Rot ComboBoxes während der Laufzeit dynamisch erstellen und befüllen
30.06.2015 10:23:02 weserblümchen
Solved
01.07.2015 16:46:43 weserblümchen
NotSolved