Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox mit mehreren Spalten füllen!

Forumthread: Combobox mit mehreren Spalten füllen!

Combobox mit mehreren Spalten füllen!
16.03.2005 16:18:05
Holger
Hallo,
ich möchte eine Combobox mit mehereren Spalten füllen. Ich habe den ColumnCount schon auf drei gestellt, aber es kommt ein Fehler:
Eigenschaft Column konnte nicht abgerufen werden. Index des Eigenschaftsfeldes ungültig.
Folgenden Code habe ich benutzt:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Blatt = Workbooks("KoBuSys.xls").Sheets("Kalkulation")
Blatt.KalkulationsnrNeu.Clear
Blatt.KalkulationsnrAlt.Clear
Blatt.Kalkulationsnrlöschen.Clear
con.Open strcon
rs.Open "Select * from tbl_KalkulationÜbersicht", con, adOpenStatic, adLockReadOnly
With rs
Do Until .EOF
If !Kalkuliert = True Then
Blatt.KalkulationsnrAlt.Column(1).AddItem !Kalkulationsnr
Blatt.KalkulationsnrAlt.Column(2).AddItem !Stadt
Blatt.KalkulationsnrAlt.Column(3).AddItem !Objekt
End If
.MoveNext
Loop
.Close
End With
con.Close
Blatt.KalkulationsnrNeu.Value = "Kalkulationsnummer"
Blatt.KalkulationsnrAlt.Value = "Kalkulationsnummer"
Blatt.Kalkulationsnrlöschen.Value = "Kalkulationsnummer"
Wichtig ist einfach nur die Zeilen mit AddItem. Was muss ich ändern damit er die Werte in die Combobox richtig rein schreibt.
Danke im vorraus
Holger Wächter
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox mit mehreren Spalten füllen!
16.03.2005 17:22:41
Nepumuk
Hallo Holger,
so geht's:


With Blatt.KalkulationsnrAlt
    .AddItem !Kalkulationsnr
    .List(.ListCount - 1, 1) = !Stadt
    .List(.ListCount - 1, 2) = !Objekt
End With


Gruß
Nepumuk
Anzeige
AW: Combobox mit mehreren Spalten füllen!
16.03.2005 17:23:43
Domke,
Hallo Holger,
willst Du wirklich eine auf dem Arbeitsblatt befindliche Combobox direkt befüllen? Das klingt interessant, ich dachte die Combobox bezieht ihre Daten immer aus einem Bereich einer Tabelle.
Wenn meine Annahme richtig ist, muss Du die Daten in den Bereich (Zellen) schreiben, aus dem die Combobox ihre Daten bezieht!
Gruß
Frank.
PS: Wo bzw. wie gibt man Comboboxen auf einem Arbeitsblatt einen Namen?
Anzeige
AW: Combobox mit mehreren Spalten füllen!
16.03.2005 20:48:08
Holger
Danke Nepumuk, das hat geklappt.
Du kannst auch den Zellbezug oder den ListFillRange rausnehmen aus der Combobox und mit dem Befehl "Additem" die Combobox so füllen, wie Du es möchtest. Das geht natürlich nur mit VBA - Programmierung.
Den Namen einer Combobox änderst Du indem Du mit Rechtsklick auf Eigenschaften gehst und anstatt Combobox1 einen beliebigen Namen wählst. Das ist sinvoll um bei späterer Programmierung mit VBA die richtige Combobox zu wählen, da man ja dann nicht mehr weis, wofür Combobox1 ComboBox2 u.s.w. war.
Eine Frage habe ich hier noch, kann man das sich zu öffnende Fenster der Combobox breiter gestalten als die Combobox. Die Combobox soll also immer die gleiche grösse haben, aber das sich öffnende Fenster soll so gross sein, wie der grösste reingeschriebene Datensatz.
MfG
Holger Wächter
Anzeige
AW: Combobox mit mehreren Spalten füllen!
16.03.2005 21:22:17
Nepumuk
Hallo Holger,
wenn die maximale Breite des Eintrags schon bekannt ist, kannst du das über die Eigenschaft ColumnWidths so einstellen, dass dieser reinpasst. Wenn nicht, dann wird es schwierig. Die leichtere Variante ist, eine Proportionalschrift wie Courier zu verwenden, da alle Zeichen die selbe Breite haben. Du suchst den Eintrag mit den meisten Zeichen und passt die Spaltenbreite daran an. Die schwierigere wäre, du verwendest weiter die Standardschrift Tahoma. Dann musst du über eine Tabelle in der die Breite jedes Zeichens gespeichert ist, die Gesamtbreite des jedes Eintrags ermitteln und dann die Spalte an den breitesten anpassen. Ich habe zwei solche Tabellen mal gemacht, die sind aber für Arial normal und Arial fett mit denen ich die Breite von Ausdrucken in ein vorgegebenes Formular steuere.
Gruß
Nepumuk
Anzeige
AW: Combobox mit mehreren Spalten füllen!
17.03.2005 00:00:30
Holger
Hallo Nepumuk,
ich kann zwar die Breite mit ColumnWidths ändern aber dann öffnet sich die Combobox in der Breite wie die Combobox selber und es erscheint ein Scrollbalken nach rechts und links. Ich möchte aber, dass die Combobox sich komplett in der eingestellten Breite ohne Scrollbalken öffnet. Geht das?
Die Tabelle würde mich Interessieren. Könntest Du mir die zukommen lassen?
Danke schon mal
MfG
Holger Wächter
Anzeige
AW: Combobox mit mehreren Spalten füllen!
17.03.2005 05:41:07
Nepumuk
Hallo Holger,
die Liste der ComboBox kann nicht breiter werden wie die Box selbst.
Die Stringbreitenbrechnung:


Private Function fncBreite_n(strText As String) As Single 'Arial Normalschrift neu
    Dim intIndex As Integer
    For intIndex = 1 To Len(strText)
        Select Case Asc(Mid(strText, intIndex, 1))
            Case 39: fncBreite_n = fncBreite_n + 0.29
            Case 33, 73, 120, 105, 106, 108, 124, 130, 145, 146, 161, 166, 204 To 207, 236 To 239: fncBreite_n = fncBreite_n + 0.44
            Case 32, 40, 41, 44 To 47, 58, 59, 91 To 93, 96, 114, 116, 123, 125, 132, 136, 139, 147, 148, 152, 155, 160, 168, 170, 173, 178 To 180, 183 To 185: fncBreite_n = fncBreite_n + 0.58
            Case 34, 42, 94, 118, 149, 176, 186: fncBreite_n = fncBreite_n + 0.73
            Case 74: fncBreite_n = fncBreite_n + 0.92
            Case 63: fncBreite_n = fncBreite_n + 1.1
            Case 43, 60, 61, 62, 70, 126, 172, 191, 215: fncBreite_n = fncBreite_n + 1.22
            Case 38, 65 To 69, 72, 75, 78, 80, 82, 83, 85, 86, 89, 119, 138, 159, 192 To 197, 199 To 203, 208, 209, 217 To 223: fncBreite_n = fncBreite_n + 1.38
            Case 71, 77, 79, 81, 109, 127, 129, 141, 143, 144, 157, 169, 174, 188 To 190, 210 To 214, 216: fncBreite_n = fncBreite_n + 1.57
            Case 37, 64, 87, 133, 140, 151, 153, 156, 198, 230: fncBreite_n = fncBreite_n + 1.83
            Case 137: fncBreite_n = fncBreite_n + 2.2
            Case Else: fncBreite_n = fncBreite_n + 1
        End Select
    Next
    fncBreite_n = fncBreite_n * 7.3
End Function
Public Sub test1()
    Debug.Print Round(fncBreite_n("Nepumuk"), 0)
End Sub


Gruß
Nepumuk
Anzeige
AW: Combobox mit mehreren Spalten füllen!
17.03.2005 10:21:25
Holger
Danke, Du hast mir sehr geholfen.
MfG
Holger Wächter
;

Forumthreads zu verwandten Themen

mehrere Spalten ausfüllen und zwei Makros durchlau
Sophia
Hi,
kann hier jemand mir helfen?
ich möchte zwei Makros durchlaufen lassen,aber es funktioniert nicht.
1. automatisch ausfüllen, für Spalten A,F,G,H,I
2.Zeilen färben
kann bitte jemand die Makros kurz schauen und die Fehler korrigieren?
Besten Dank!
Gruß
Sophia
h...
25.05.2015 08:44:40
Thread-ID: 1427613
3 Beiträge
Anzeige
Dynamischer Bereich für Dropdown, mehrere Spalten
Gaby

Hallo
Ich bin am Ende meines Lateins mit folgender Aufgabe:
Im Tabellenblatt "Angebotsinfos" habe ich in der Spalte J die Firma und ab Spalte K bis Z sind Personennamen aufgeführt, jedoch je nach Firma nur einen Namen (also Spalten L bis Z sind leer) oder eben mehrere (Anzahl unterschi...
18.07.2015 13:16:55
Thread-ID: 1437175
35 Beiträge
Anzeige
Per Dropdown Zeilen und Spalten befüllen
NickO2

Liebe Excel-Gemeinde,
ich würde mich freuen, wenn mir jemand bzgl. der folgenden Problemstellung einen Tipp geben könnte:
Ich suche nach einer möglichst unkomplizierten Möglichkeit, mehrere Zeilen und Spalten
z.B. F2:I4
per Dropdown-Auswahl (z.B. Alternative A und Alternative...
20.12.2015 21:16:51
Thread-ID: 1465308
4 Beiträge
Mehrere spalten aus Listbox füllen
Kevin

Hallo, ich brauche eure hilfe.
Ich habe eine Userform darin enthalten ist eine Listbox mit Daten drin sprich U = Urlaub, nun möchte ich ab der makierten zelle per eingabe in eine textbox +3 das er die nächsten 3 zellen auch mit U= Urlaub füllt.
ich hoffe man versteht wie ist es meine
12.02.2018 01:11:25
Thread-ID: 1608270
3 Beiträge
Dropdownmenü mehrere Spalten
Ritterkokusnuss1997

Guten Abend zusammen,
leider stecke ich etwas fest.
Ich möchte gerne aus einer Tabelle mit folgenden Spalten:
Typ | Spielername | Bewertung |
Gold| Mertens | 85 |
Gold| Reus | 85 |
1if | Reus | 86 |
Ich würde gerne zunächst den...
27.12.2018 18:19:01
Thread-ID: 1664709
2 Beiträge
DropDown-Mehrfachauswahl in mehreren Spalten
HaLo_94

Hallo Excel-Freunde,
ich arbeite an einer Projektplanung und möchte in zwei Spalten entsprechende Personen so auswählen können, dass auch mehrere Personen in einer Zelle aufgelistet werden können (getrennt durch "+") und diese auch alphabetisch sortiert werden. Außerdem soll die Auswahl der...
22.05.2019 12:47:33
Thread-ID: 1694022
2 Beiträge
Dropdown-Liste aus mehreren Spalten erstellen
Mixam

Guten Tag,
ich habe vor einiger Zeit hier bereits die Frage gestellt und auch von Werner einen relativ guten Ansatz erhalten. Nun hat sich aber leider mein Arbeitsblatt verändert und ich kriege es nicht hin die Lösung an mein neues Problem anzupassen.
Es geht um folgendes:
Ich habe...
24.01.2020 11:02:37
Thread-ID: 1736211
2 Beiträge
Anzeige
Dropdown-Liste aus mehreren Spalten erstellen
Mixam

Guten Tag,
ich habe vor einiger Zeit hier bereits die Frage gestellt und auch von Werner einen relativ guten Ansatz erhalten. Nun hat sich aber leider mein Arbeitsblatt verändert und ich kriege es nicht hin die Lösung an mein neues Problem anzupassen.
Es geht um folgendes:
Ich habe...
24.01.2020 11:12:44
Thread-ID: 1736217
7 Beiträge
Dropdown über mehrere Spalten
Stephan
Hallo zusammen. Ich habe ein Problem. In Spalte A steht ein Auswahlfeld Lager. Dort kann ich mittels dropdown verschiedene Lagerstellen aus dem Tabellenblatt «Masterdatas» auswählen.
Nun möchte ich in der Spalte C2-F2 die Kundeninformationen mittels eines dropdown aufbereiten lassen, je nachdem...
30.11.2021 08:51:09
Thread-ID: 1859179
18 Beiträge
Anzeige
DropDown bestehend aus mehreren Spalten
Caro
Hallo zusammen,
ich habe schon eine weile gesucht, aber irgendwie noch nicht die passende Hilfe gefunden. Deswegen wende ich mich jetzt doch direkt an euch Profis. Ich habe eine Tabelle in der ich Projekten die jeweiligen Verantwortlichen zuorrnen will. Nun soll in der Spalte Projekt nur die Pro...
08.04.2022 07:50:22
Thread-ID: 1878853
10 Beiträge
Dropdownmenü auswählen mehrere spaltendaten einfügen
Stefan
Hallo,

Ich bin neu hier und wenig Kenntnis in excel, aber wenn man nicht anfängt dann kann es nie was werden.

Mein Problem besteht darin.
Ich möchte ein dropdown Menü in dem ich Frühschicht, Mittelschicht spätschicht auswählen kann. Und nach der Auswahl in der nächsten spalte2...
27.09.2024 19:56:58
Thread-ID: 1992334
6 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 mit mehreren Spalten füllen

Schritt-für-Schritt-Anleitung

  1. Vorbereitung der Combobox: Stelle sicher, dass die ColumnCount-Eigenschaft Deiner Combobox auf 3 gesetzt ist. Dies ermöglicht es, mehrere Spalten in der Dropdown-Liste anzuzeigen.

  2. VBA-Code einfügen: Verwende folgenden VBA-Code, um die Combobox mit Werten zu befüllen:

    Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set Blatt = Workbooks("KoBuSys.xls").Sheets("Kalkulation")
Blatt.KalkulationsnrAlt.Clear

con.Open strcon
rs.Open "Select * from tbl_KalkulationÜbersicht", con, adOpenStatic, adLockReadOnly

With rs
   Do Until .EOF
       If !Kalkuliert = True Then
           Blatt.KalkulationsnrAlt.AddItem !Kalkulationsnr
           Blatt.KalkulationsnrAlt.List(Blatt.KalkulationsnrAlt.ListCount - 1, 1) = !Stadt
           Blatt.KalkulationsnrAlt.List(Blatt.KalkulationsnrAlt.ListCount - 1, 2) = !Objekt
       End If
       .MoveNext
   Loop
   .Close
End With
con.Close

  3. Zellbezug festlegen: Optional kannst Du den Zellbezug oder den ListFillRange aus der Combobox entfernen, um die Werte individuell über AddItem hinzuzufügen, was eine flexiblere Handhabung ermöglicht.

Häufige Fehler und Lösungen

  • Fehler bei der Column-Eigenschaft: Wenn Du die Fehlermeldung "Eigenschaft Column konnte nicht abgerufen werden" erhältst, stelle sicher, dass Du die AddItem-Methode korrekt verwendet hast, wie im obigen Code gezeigt.

  • Scrollbalken erscheinen: Wenn beim Öffnen der Combobox Scrollbalken angezeigt werden, kann dies an der Breite der Combobox liegen. Überprüfe die ColumnWidths-Eigenschaft und passe die Breite an.

Alternative Methoden

Falls Du nicht mit VBA arbeiten möchtest, kannst Du die Combobox auch über einen Zellbereich füllen. Gehe dazu auf die Eigenschaften der Combobox und setze den ListFillRange auf den entsprechenden Zellbereich in Deinem Arbeitsblatt. Dies ist eine einfache Methode, um die Combobox mit Werten zu füllen, allerdings kannst Du damit keine individuellen Anpassungen vornehmen.

Praktische Beispiele

  1. Kalkulationsnummern füllen: Um verschiedene Kalkulationsnummern mit Städten und Objekten zu füllen, kannst Du den oben genannten VBA-Code nutzen. Achte darauf, dass die Datenbank richtig verbunden ist.

  2. Daten aus Excel-Tabellen: Wenn Du Daten aus einer Excel-Tabelle in die Combobox einfüllen möchtest, kannst Du die ListFillRange-Eigenschaft verwenden, um eine Liste zu erstellen, die automatisch aktualisiert wird.

Tipps für Profis

  • Benennung der Combobox: Ändere den Namen Deiner Combobox über die Eigenschaften, um die Programmierung zu erleichtern. Vermeide generische Namen wie ComboBox1.

  • Spaltenbreite anpassen: Benutze die ColumnWidths-Eigenschaft, um die Breite der Spalten an die längsten Einträge anzupassen. Dies verbessert die Benutzererfahrung.

  • Proportionale Schriftart verwenden: Um die Lesbarkeit zu verbessern und die Breite der Einträge besser zu steuern, kannst Du eine proportionale Schriftart wie Courier New verwenden.

FAQ: Häufige Fragen

1. Wie kann ich die Breite der Dropdown-Liste anpassen?
Die Dropdown-Liste kann nicht breiter sein als die Combobox selbst. Stelle sicher, dass die ColumnWidths so eingestellt sind, dass die Einträge passen.

2. Ist es möglich, die Combobox ohne VBA zu füllen?
Ja, Du kannst die Combobox auch über den ListFillRange befüllen, indem Du einen Zellbereich in Deinem Excel-Arbeitsblatt angibst. Dies erfordert jedoch keine individuelle Programmierung.

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