Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bitte Hilfe VBA Combobox
#1
Hallo, guten Abend,

ich verwende seit sehr langer Zeit das erste mal wieder eine Combobox, ich hab jetzt 3 Stunden herumgespielt, kann aber den Fehler nicht finden. Ehrlich gesagt verzweifle ich gerade ein bisschen.

Sinn soll sein, aus dem Tabellenblatt "Settings" eine Tabelle auszulesen mit 3 Spalten, wo die Anzahl der Zellen automatisch gezählt wird und der letzte Wert automatisch gefunden wird. Diese Tabelle soll dann eine Combobox mit den Werten aus den 3 Spalten und der automatisch ermittelten letzten Zelle erstellen und in einem Dropdown anzeigen, wo ich auch drinnen suchen kann.

Wenn das mal funktioniert, möchte ich noch 2 Buttons einfügen "Auswahl bestätigen" und "Abbrechen".

Bitte um eure Hilfe!


Hier der Code:


Code:
Sub Sprachauswahl()

Dim letzteZeile As Byte
Dim iZelle As Byte

Dim wks1 As Worksheet

Set wks1 = Worksheets("Settings")

letzteZeile = wks1.Range("A" & Rows.Count).End(xlUp).Row

Dim Sprachauswahlbox As Object
With Sprachauswahlbox
    .ColumnCount = 3
    For iZelle = 1 To letzteZeile
        Sprachauswahlbox.AddItem wks1.Cells(iZelle, 1)
        Sprachauswahlbox.AddItem wks1.Cells(iZelle, 2)
        Sprachauswahlbox.AddItem wks1.Cells(iZelle, 3)

    Next iZelle
    .List = Sprachauswahlbox

End With


Sprachauswahlbox = fmStyleDropDownList

End Sub
Antworten Top
#2
Hallo,
Sub Sprachauswahl()

Dim letzteZeile As Long
Dim iZelle As Long
Dim wks1 As Worksheet
Dim Sprachauswahlbox As MSForms.ComboBox

Set wks1 = Worksheets("Settings")
Set Sprachauswahlbox = wks1.OLEObjects("ComboBox1").Object '< Name anpassen

letzteZeile = wks1.Range("A" & Rows.Count).End(xlUp).Row

With Sprachauswahlbox
.Clear
.ColumnCount = 3
.Style = fmStyleDropDownList
For iZelle = 1 To letzteZeile
.AddItem wks1.Cells(iZelle, 1)
.List(.ListCount - 1, 1) = wks1.Cells(iZelle, 2)
.List(.ListCount - 1, 2) = wks1.Cells(iZelle, 3)
Next iZelle
If .ListCount Then .ListIndex = iZelle - 2
End With

End Sub
Gruß Uwe
Antworten Top
#3
Hallo Uwe,

zuerst herzlichen Dank für die Antwort!

Leider bekomme ich da noch eine Fehlermeldung, so sieht mein Code aus:

Code:
Sub Language_Choice()

Dim letzteZeile As Long
Dim iZelle As Long
Dim wks_settings As Worksheet
Dim Sprachauswahlbox As MSForms.combobox ---------> Warum wird bei mir das combobox immer klein geschrieben wenn ich Enter drücke? Ist das zufällig das Problem
Set wks_settings = Worksheets("Settings")
Set Sprachauswahlbox = wks_settings.OLEObjects("ComboBox1").Object 'Name anpassen ---> diese Zeile wird gelb markiert bei der Fehlermeldung

letzteZeile = wks_settings.Range("A" & Rows.Count).End(xlUp).Row

With Sprachauswahlbox
    .Clear
    .ColumnCount = 3
    .Style = fmStyleDropDownCombo
    For iZelle = 1 To letzteZeile
        .AddItem wks_settings.Cells(iZelle, 1)
        .List(.ListCount - 1, 1) = wks_settings.Cells(iZelle, 2)
        .List(.ListCount - 1, 2) = wks_settings.Cells(iZelle, 3)
    Next iZelle
    If .ListCount Then .ListIndex = iZelle - 2
End With
   
End Sub

Fehlermeldung: 
Laufzeitfehler 1004
Die Methode 'OLEObjects' für das Objekt '_Worksheet ist fehlgeschlagen

Bitte nochmal um Hilfe Sad
Antworten Top
#4
Hallo,

(08.10.2020, 21:02)excellover123 schrieb: Bitte nochmal um Hilfe Sad

Ohne Datei ist mir das bei Deiner dürftigen Beschreibung nicht möglich.

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • excellover123
Antworten Top
#5
Hallöchen,

Zitat:Ohne Datei ist mir das bei Deiner dürftigen Beschreibung nicht möglich.

Seh ich auch so. Man kann nur raten, ... z.B., dass Deine Combobox nicht mehr Combobox1 heißt (wobei der Text der Fehlermeldung 1004 etwas anders ist) oder ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • excellover123
Antworten Top
#6
Entschuldigt bitte meine späte Antwort, wir hatten ein paar harte Tage (Baby krank, wir Eltern krank, Großeltern krank...).

Das Problem hat sich mittlerweile gelöst, ich hab einen anderen Weg genommen und zwar ganz einfach ein Zellendropdown im Excel selbst. Ist vielleicht nicht so eine edle Lösung, aber reicht für meine Zwecke aus.

Danke trotzdem für Eure Zeit!
[-] Folgende(r) 1 Nutzer sagt Danke an excellover123 für diesen Beitrag:
  • Kuwer
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste