Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1880to1884
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
Inhaltsverzeichnis

ComboBox-Ansicht mit Komma

ComboBox-Ansicht mit Komma
27.04.2022 14:10:37
Ron
Hallo,
ich möchte gern die ausgelesene Tabelle in der ComboBox optisch mit Strich und Komma getrennt haben,
so: (1 - Name, Vorname).
Kann jemand helfen
https://www.herber.de/bbs/user/152702.xlsm
Danke!
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox-Ansicht mit Komma
27.04.2022 14:40:03
Daniel
Hi
Füge der Tabelle eine Hilfsspalte hinzu, in welcher du die Texte in einer Spalte zusammenfügst:
=A2&" - "&B2&", " & C2
Verwende dann diese Spalte für die Combobox.
Gruß Daniel
AW: ComboBox-Ansicht mit Komma
27.04.2022 14:43:40
Ron
Hallo Daniel,
leider kann ich an der Tabelle keine Änderungen vornehmen.
Gibt es unter VBA keine Möglichkeit?
Gruß
AW: ComboBox-Ansicht mit Komma
27.04.2022 15:15:50
GerdL
Hallo Ron!

Sub schaltfläche()
Dim z As Long
With UserForm1
.ComboBox1.Clear
.ComboBox1.ColumnCount = 1
For z = 2 To Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Row
.ComboBox1.AddItem Tabelle1.Cells(z, 1) & " - " & Tabelle1.Cells(z, 2) & ", " & Tabelle1.Cells(z, 3)
Next
.ComboBox1.ListIndex = 0
.Show
End With
End Sub
Gruß Gerd
Anzeige
AW: ComboBox-Ansicht mit Komma
27.04.2022 17:35:46
Nepumuk
Hallo Ron,
so ok?

Private Sub UserForm_Initialize()
Dim objDataObject As DataObject
Dim strText As String
Dim avntInput As Variant, avntOutput As Variant, avntRow As Variant
Dim ialngRow As Long
Call Tabelle1.Range("abc").Columns("A:B").Copy
Set objDataObject = New DataObject
Call objDataObject.GetFromClipboard
strText = objDataObject.GetText
Set objDataObject = Nothing
Application.CutCopyMode = False
strText = Left$(strText, Len(strText) - 2)
avntInput = Split(strText, vbCrLf)
ReDim avntOutput(LBound(avntInput) To UBound(avntInput), 2)
With ComboBox1
.ColumnCount = 3   'Anzahl Spalten
.ColumnWidths = "20;10;50"  'Spaltenbreite
For ialngRow = LBound(avntInput) To UBound(avntInput)
avntRow = Split(avntInput(ialngRow), vbTab)
avntOutput(ialngRow, 0) = avntRow(0)
avntOutput(ialngRow, 1) = "-"
avntOutput(ialngRow, 2) = avntRow(1)
Next
.List = avntOutput
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: ComboBox-Ansicht mit Komma
28.04.2022 07:48:31
Ron
Hallo,
doch zu aufwendig.
Vielen Dank!
Gruß

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige