Rowsource liefert nur einen Eintrag in Combobox

[kraehenseele]

Hallo zusammen,
ich habe eine Userform mit 3 Comboboxen die ich über Rowsource fülle oder besser möchte.


ich hänge an der simplen Syntax


Eingabemaske.CoBo_Ort.RowSource = "Tabelle3!B2:B" & Cells(Rows.Count, 2).End(xlUp).Row

das liefert mir in der UF genau einen Eintrag in der Box, obwohl ListRows auf 8 steht.

Google brachte mehrere Ergebnisse zu dem Thema aber immer mit dem Code wie oben oder ähnlich. Mal mit Klammern oder mit .Adress anstelle von .Row.
Nach etlichen Stunden rumprobieren ohne Erfolg streich ich die Segel und vertrau au die Profis.

Ich fürchte zwar wenn mir jemand den Fehler verrät, das ich mich in die Ecke stelle und schäme. Trotz mehrfachem rumprobieren wills nicht klappen.

Frohe Ostern

Gruß Micha

Ps: der Rest funktioniert so wie gewollt, ist zwar mit Sicherheit etwas ungelenk geschrieben der Code, falls da jemand noch Verbesserungsideen hat ich lerne gerne dazu.

[Steffl]

Hallo Micha,

da fehlt der Verweis auf das Tabellenblatt

Code:

Private Sub UserForm_Activate()
    Dim r As Long
    
    
        With ThisWorkbook.Worksheets("Tabelle1")
        r = .Cells(Rows.Count, "A").End(xlUp).Row
        Eingabemaske.TeBo_Lfd = .Cells(r, "A") + 1
    
    End With
        
        Eingabemaske.TeBo_Anwender = Sheets("Tabelle3").Range("A2").Value
        
        With Worksheets("Tabelle3")
            Eingabemaske.CoBo_Ort.RowSource = "Tabelle3!B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row
            Eingabemaske.CoBo_Strasse.RowSource = "Tabelle3!C2:C" & .Cells(.Rows.Count, 3).End(xlUp).Row
            Eingabemaske.CoBo_Mitarbeiter.RowSource = "Tabelle3!D2:D" & .Cells(.Rows.Count, 4).End(xlUp).Row
        End With
End Sub

[kraehenseele]

Hallo Stefan,
erstmal vielen Dank für die schnelle Antwort am Feiertag  :19:

leider bleibt es bei with auch nur bei einem Eintrag in der Combobox, hast du noch eine Idee?

Gruß Micha

[schauan]

Hallo Micha,

das muss aber funktionieren.

   

[Kuwer]

Hallo Micha,

Stefan hat Dir doch schon eine Komplettlösung gepostet. Das Makro kopieren und bei Dir einfügen darfst Du selber!

Gruß Uwe

[kraehenseele]

Hallo zusammen,

ich hab es ja probiert bringt aber bei mir keine Änderung und ich kann mir keinen Reim drauf machen.
Eigentlich müßte es funktionieren aber er zeigt mir nach wie vor nur 1 an. Ich hatte schon mal die Einstellung der Comboboxen im Sinn aber für mich müßte es so richtig sein.

Frohe Ostern und schöne Grüße Micha

[schauan]

Hallöchen,

Ich glaube, da muss man mal in die Datei schauen

[Steffl]

Hallo Micha,

hast du den Code in deine Datei reinkopiert oder nur die Codezeilen ergänzt und falls ergänzt, hast Du beachtet, dass ich vor den Cells und end Rows.Count einen Punkt gesetzt habe?

[kraehenseele]

Hallo Stefan
hab ich natürich nicht beachtet grmpf grml mit Brille wär das nicht passiert, sorry.

Code reinkopiert und alles ist gut, vielen Dank.

Aber zum besseren Verständnis und zur Vermeidung der Fehler beim nächsten ma, hab ich noch 2 Fragen.

Warum das with Worksheets das definier ich doch schon in der Rowsource ?
und warum die Punkte oder besser was bewirken sie außer das der Code damit funkrioniert  :19: 

Habe den Code schon mehrfach so benutzt und es funktionierte, hab ich es da auch schon falsch gemacht und nur Glück gehabt das Excel mitdenkt?

Vielen Dank nochmal

Micha

[Klaus-Dieter]

Hallo,

die Punkte bewirken in Zusammenarbeit mit der With-Anweisung, dass du nicht überall den Blattbezug reinschreiben musst.