Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Links zu Excel-Dialogen

ComboBox ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige