Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform, combobox füllen in abhängigkeit von

Forumthread: Userform, combobox füllen in abhängigkeit von

Userform, combobox füllen in abhängigkeit von
12.01.2018 16:00:57
Jörg
Hallo Forum,
in einer Tabelle (wird laufend erweitert) habe ich zeilenweise Datensätze stehen, bei denen es vorkommen kann, daß in einzelnen Zellen der Spalte J kein Wert steht.
Wie kann eine Combobox diese Zellen anzeigen mit dem Wert der in der Zeile in Spalte B steht?
Wenn der User auf diesen Wert klickt will ich ihm alle Werte in der Userform entsprechend anzeigen und er kann den fehlenden Wert nachtragen.
Im voraus besten Dank,
ciao Jörg
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 17:30:10
fcs
Hallo Jörg,
hier ein Beispiel für das Füllen einer Combobox/Listbox mit Kriterien 
'Beispiel Combobox oder Listbox füllen, wenn Kriterium erfüllt
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim Zeile As Long, Zeile_L As Long
Dim varB, varZellAdr
Set wks = ActiveSheet  'ggf. anpassen
With wks
'letzte Zeile in Spalte B mit Inhalt
Zeile_L = .Cells(.Rows.Count, 2).End(xlUp).Row
Me.ComboBox1.Clear
For Zeile = 2 To Zeile_L
If .Cells(Zeile, 10) = "" Then
varB = .Cells(Zeile, 2).Value
varZellAdr = .Cells(Zeile, 10).Address(False, False, xlA1)
With Me.ComboBox1
.AddItem varZellAdr
.List(.ListCount - 1, 1) = varB
End With
End If
Next
End With
End Sub

In deinem Fall ist es wahrscheinlich zweckmäßiger eine 2-Spaltige Listbox statt einer Combobox für die Anzeige/Auswahl zu verwenden.
Gruß
Franz
Anzeige
AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 18:05:29
Jörg
Hallo Franz,
leider erhalte ich beim Einfügen des Codes einen Laufzeitfehler: "Nicht näher bezeichneter Fehler".
Kannst Du Dir den Code bitte nochmal anschauen?
Mit einem zweispaltigen Listfeld habe ich noch nicht gearbeitet, wie würde der Code dafür lauten?
Und wo finde ich es in der Toolsammlung um es in der Userform einzuzeichnen?
Schon mal besten Dank,
ciao Jörg
Anzeige
AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 18:19:57
Jörg
Hallo Franz,
der Fehler lag bei mir, es war eine kopierte Combobox, wo in RowSource noch etwas drin stand.
Jetzt funktioniert es, allerdings zeigt er nicht den Inhalt von Spalte B sondern die leere Zelladresse.
Könntest Du so nett sein und mir hier noch helfen?
Danke, ciao Jörg
AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 19:48:05
Werner
Hallo Jörg,
schon mal versucht hier von 10 (J) auf 2 (B) zu ändern? 
varZellAdr = .Cells(Zeile, 10).Address(False, False, xlA1)
Gruß Werner
Anzeige
AW: Userform, combobox füllen in abhängigkeit von
12.01.2018 22:40:22
Jörg
Hallo Werner,
Danke, ich hab es zwischenzeitlich mit .AddItem varB gelöst.
Von der zweispaltigen Liste lass ich jetzt die Finger, wird sonst zu kompliziert.
Ciao Jörg
AW: Userform, combobox füllen in abhängigkeit von
13.01.2018 10:14:19
fcs
Hallo Jörg,
2-spaltige (mehr-spaltige) Listbox/Combobox:
Über die Eigenschaft "ColumnsCount" stellst du ein wie viele Datenspalten die Box haben soll.
Über die Eigenschaft "BoundColumn" legst du fest, aus welcher Spalte die Value-Eigenschaft der Box übernommen werden soll.
Bei Comboboxen kannst du zusätzlich über "TextColumn" festlegen über welche Spalte die Auswahl eines Wertes erfolgen soll. Dieser wird dann auch angezeigt.
Wie eine mehrspaltige Box mit Daten via AddItem gefüttert wird siehst du ja im Beispiel. Erst per AddItem die 1. Spalte füllen, dann List-Eigenschaft für die weiteren Spalten füllen, wobei hier die Zählung der Spalten bei 0 beginnt.
Falls du mehr als 10 Spalten in der Box haben möchtest, dann funktioniert die AddItem-Methode nicht mehr, dann muss man mit einem Daten-Array und der Eigenschaft "List" der Box arbeiten.
Gruß
Franz
Anzeige
;

Forumthreads zu verwandten Themen

Dropdownliste leeren und neu befüllen
Alex

Hi
Folgendes Problem habe ich. Ich will abhängig vom Eintrag in einer anderen Comandbox
den Eintrag in "dieser Comandbox" festlegen,einmalig funktioniert das auch jedoch wenn ich in der ersten Box die Auswahl ändere fügt er nur den Eintrag hinzu.
Select Case cmbrbt Case "KUKA" cmbty...
28.11.2012 11:56:22
Thread-ID: 1288410
2 Beiträge
Dropdownliste und Autoausfüllen
Michael

Hallo !
Wahrscheinlich schon hundertemal angefragt, aber leider habe ich die richtige Lösung noch nicht gefunden.
Ich habe eine kleine Tabelle (Ex-Geraete) diverse Geräte aufgeführt.
Nun möchte ich auf dem Sheet "Startseite" die Liste ausgefüllt haben, wobei ich die Felder:
Her...
04.01.2013 09:27:47
Thread-ID: 1292843
6 Beiträge
Anzeige
Autoausfüllen mit Werten aus Liste VBA
Alex

Guten Morgen Leute!
Ich benötige mal wieder eure Hilfe.
Um die Arbeitsabläufe bei mir zeitl. zu optimieren habe ich folgende Vorstellung:
In einem Sheet - welches Namentlich bezeichnet ist - (z.B. "Namen")
sind von Zelle A1 bis ... Namen aufgelistet.
Diese Namen sollen nun p...
06.02.2013 08:02:16
Thread-ID: 1297868
3 Beiträge
Anzeige
VBA Automatisches Listefüllen
Fabi

Hallo,
hoffe hier kann mir jemand weiterhelfen.
Und zwar habe ich einen Makro geschrieben bzw. aufgenommen.
Nun muss ich an mehreren Stellen die Felder bis nach Unten ausfüllen. (z.B. Zelle F-J soweit ausfüllen wie es die Zelle E ist).
Hatte es jetzt erst so probiert:
Select...
12.08.2013 08:58:30
Thread-ID: 1326473
5 Beiträge
Anzeige
VBA Wert aus DropDown Listen in anderem Feld
Tobias

Hallo,
für folgende Funktion komme ich nicht zur richtigen Lösung:
Ich habe in den Zellen C1, C2, C3, C4, C5 jeweils eine Auswahlliste. Nun Soll wenn ein Wert in C1 vorhanden ist, dieser in E1 angezeigt werden. Soweit so gut :-)
Wenn nun aber ein Wert in C1 und C2 steht, soll der We...
28.11.2013 11:48:47
Thread-ID: 1340365
5 Beiträge
VBA-Userform: Gestaffelte Dropdown Liste
Jendrik

Hallo zusammen,
ich bin gerade dabei mir ein Excel Tool zu basteln, mit dem es möglich sein soll, den Gesamt Status von Projekten zu überblicken.
Hinter diesem Link findet ihr einen beispielhaften Aufbau: https://www.herber.de/bbs/user/100475.xlsx
Der Aufbau kurz erklärt:
Es gib...
29.09.2015 13:58:53
Thread-ID: 1449947
2 Beiträge
Dropdownliste Name auswählen und Felder ausfüllen.
Oliver

Guten Tag Liebe Excel-Community,
Ich habe eine Dropdownliste (Nicht mit vba erzeugt)und diese liest mir Daten aus einem anderen Blatt "Lizenzen_2014" ein. Ich arbeite zur Zeit auf dem Blatt Vorlagen.
Nun zu meinem Problem:
Ich möchte via Dropdownliste(Blatt""Vorlagen"D72") den Namen...
15.01.2016 13:12:31
Thread-ID: 1469102
11 Beiträge
VBA Userform ComboBox Werte aus jeder Tabelle
Chris

Hey Leute,
undzwar muss ich mit einem Formular Werte angezeigt bekommen, die auf verschiedenen Tabellenblättern, jedoch in der selben Zelle sind. Das heißt ich bräuchte eine Anweisung die jede Tabelle in der Datei durchläuft und den Wert dann raus nimmt. Leider fällt mir dazu überhaupt nich...
11.10.2016 12:32:28
Thread-ID: 1519071
3 Beiträge
Diagramm mit 3 unabhängigen Dropdownlisten füllen
Marco

Guten Abend Leute, ich habe eine brennende Frage, ich möchte ein Diagramm mit 3 Dropdownlisten die unabhängig von einander sind beliebige Werte aussuchen und diese dann in einem Diagramm anzeigen lassen. Ich habe zur Veranschaulichung eine Beispiel Datei hochgeladen. Ich habe leider Probleme mi...
29.06.2017 02:20:03
Thread-ID: 1566396
7 Beiträge
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:18:38
Thread-ID: 1585664
4 Beiträge
Anzeige
VBA: Liste über Userform nacheinander füllen
Dominic

Guten Morgen liebes Forum,
ich habe aktuell eine Userform mit der eine Tabelle nach und nach mit dem Inhalt gefüllt wird.
Dies habe ich so umgesetzt: Dim lrow1 As Integer Dim lrow2 As Integer lrow1 = Sheets("DB").Cells(Sheets("DB").Rows.Count, 25).End(xlUp).Row + 1 With Sheets("DB") .C...
13.10.2017 09:21:43
Thread-ID: 1585666
2 Beiträge
Per VBA Kopieren und aus Liste befüllen
Lukas

Hallo an alle
Vielleicht wäre jemand so nett und könnte mir helfen, Programmieren ist nicht gerade meine Stärke. Ich möchte per VBA ein Muster für kleine Kärtchen, aus einem Tabellenblatt in ein neues Tabellenblatt untereinander Kopieren. Und mit Daten aus einer Liste befüllen. Es ist sic...
27.11.2017 16:04:20
Thread-ID: 1593970
15 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Combobox in Userform in Excel VBA füllen

Schritt-für-Schritt-Anleitung

  1. Öffne Deine Excel-Datei und gehe zum VBA-Editor (drücke ALT + F11).

  2. Füge eine Userform hinzu: Klicke im Projektfenster mit der rechten Maustaste auf dein Projekt, wähle Einfügen und dann UserForm.

  3. Füge eine Combobox hinzu: Ziehe die Combobox aus der Toolbox auf die Userform.

  4. Füge den folgenden Code in das Code-Fenster der Userform ein:

    Private Sub UserForm_Initialize()
   Dim wks As Worksheet
   Dim Zeile As Long, Zeile_L As Long
   Dim varB

   Set wks = ActiveSheet  'Aktives Blatt verwenden
   With wks
       'Letzte Zeile in Spalte B mit Inhalt
       Zeile_L = .Cells(.Rows.Count, 2).End(xlUp).Row
       Me.ComboBox1.Clear
       For Zeile = 2 To Zeile_L
           If .Cells(Zeile, 10) = "" Then
               varB = .Cells(Zeile, 2).Value
               Me.ComboBox1.AddItem varB  'Fülle die Combobox
           End If
       Next
   End With
End Sub

  5. Schließe den VBA-Editor und teste die Userform.

Häufige Fehler und Lösungen

  • Laufzeitfehler: "Nicht näher bezeichneter Fehler": Dieser Fehler kann auftreten, wenn Du eine Combobox kopiert hast, die noch eine RowSource hat. Stelle sicher, dass die RowSource leer ist.

  • Leere Zelladresse statt Wert der Spalte B: Achte darauf, dass Du die richtige Zelle in der Combobox hinzufügst. Verwende Me.ComboBox1.AddItem varB um den Wert aus Spalte B hinzuzufügen.

Alternative Methoden

  • Verwendung einer Listbox: Wenn Du mehrere Spalten anzeigen möchtest, kannst Du anstelle einer Combobox eine Listbox verwenden. Setze die ColumnCount-Eigenschaft, um die Anzahl der Spalten zu definieren, und benutze die AddItem-Methode, um die Werte hinzuzufügen.

  • Daten aus einer externen Quelle: Du kannst auch Daten aus einer Datenbank oder einer anderen Excel-Datei abrufen, um die Combobox zu füllen. Hierzu solltest Du die ADO- oder DAO-Bibliothek verwenden.

Praktische Beispiele

Hier ist ein Beispiel, wie man eine Combobox in einer Userform mit Werten aus einer Excel-Tabelle füllt:

Private Sub UserForm_Initialize()
    Dim wks As Worksheet
    Dim Zeile As Long, Zeile_L As Long
    Dim varB

    Set wks = ThisWorkbook.Worksheets("Daten")  'Blattname anpassen
    Zeile_L = wks.Cells(wks.Rows.Count, 2).End(xlUp).Row
    Me.ComboBox1.Clear

    For Zeile = 2 To Zeile_L
        If wks.Cells(Zeile, 10).Value = "" Then
            varB = wks.Cells(Zeile, 2).Value
            Me.ComboBox1.AddItem varB
        End If
    Next Zeile
End Sub

Tipps für Profis

  • Spalten zählen: Wenn Du eine mehrspaltige Combobox oder Listbox verwendest, stelle sicher, dass Du die ColumnCount- und BoundColumn-Eigenschaften korrekt setzt, um die Daten richtig darzustellen.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungen in Deinem Code, um Laufzeitfehler zu vermeiden. Beispielsweise kannst Du On Error Resume Next verwenden, um Fehler zu ignorieren und den Code fortzusetzen.

FAQ: Häufige Fragen

1. Wie kann ich die Combobox mit einer Dropdown-Liste füllen? Du kannst die Combobox in einer Userform mithilfe des UserForm_Initialize-Ereignisses füllen, indem Du die gewünschten Werte mit der AddItem-Methode hinzufügst.

2. Was ist der Unterschied zwischen einer Combobox und einer Listbox? Eine Combobox ist ein Dropdown-Feld, das dem Benutzer ermöglicht, einen Wert auszuwählen, während eine Listbox mehrere Werte gleichzeitig anzeigt und die Auswahl von mehreren Werten ermöglicht.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige