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.
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
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.
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?
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?