Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combo-Box

Forumthread: Combo-Box

Combo-Box
07.12.2019 16:33:54
Salih
Hallo,
ich möchte eine Combo-Box so füllen, dass in ihr die Zellinhalte aus zwei Spalten stehen, z.B:
Spalte A----------Spalte B
Person-----------------1
Person---------------- 2
Person-----------------3
In der Combo-Box soll nun zur Auswahl stehen:
Person1
Person2
Person3
Ist so etwas möglich?
Als nur ein Zellinhalt erforderlich war, habe ich es mit dem hier gemacht:
UserForm1.ComboBox1.List = Sheets("Sheet1").Cells(1, 1).Resize(lastrow).Value
Vielen Dank im voraus.
Gruß
Salih
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
nimm eine ListBox ... owT
07.12.2019 16:36:48
Matthias
AW: Combo-Box
07.12.2019 16:42:23
Nepumuk
Hallo,
liegen die beiden Spalten nebeneinander?
Gruß
Nepumuk
AW: Combo-Box
07.12.2019 16:43:52
Hajo_Zi
Hallo Salih,
Option Explicit
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Tabelle1!A1:B5"
ComboBox1.ColumnCount = 2
End Sub

Anzeige
AW: Combo-Box
07.12.2019 16:52:41
Nepumuk
Hallo nochmal,
vergiss meine Frage, stand ja in deiner. Also:
Private Sub UserForm_Initialize()
    Dim avntValues As Variant
    Dim ialngIndex As Long
    With Worksheets("Sheet1")
        avntValues = .Range(.Cells(1, 1), .Cells(.Rows.Count, 2).End(xlUp)).Value2
    End With
    For ialngIndex = LBound(avntValues) To UBound(avntValues)
        Call ComboBox1.AddItem(avntValues(ialngIndex, 1) & CStr(avntValues(ialngIndex, 2)))
    Next
End Sub

Gruß
Nepumuk
Anzeige
;

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