Anzeige in ComboBox unvollständig

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() letztezeile = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row For Umlauf = 2 To letztezeile ' nur wenn die laufende Zelle in Spalte 12 nicht leer ist If Sheets("Tabelle1").Cells(Umlauf, 12) "" Then lbFlugroute.AddItem N = lbFlugroute.ListCount - 1 lbFlugroute.List(N, 0) = Sheets("Tabelle1").Cells(Umlauf, 12) 'Spalte"L" lbFlugroute.List(N, 1) = Sheets("Tabelle1").Cells(Umlauf, 14) 'Spalte"N" End If Next End Sub

Hallo Reiner,
wenn ich deine Erinnerung helfen kann, handelte es sich um ein Listbox und nicht um eine ComboBox.
Du kannst in der ComboBox mit den Eigenschaft TextColumn bewirken, dass entweder die erste oder die zweite Spalte gezeigt wird aber nicht beide.
Es liegt daran, dass eine ComboBox eine Editierung der Eintrag erlauben kann. Bei einem zwei-spaltigen Eintrag kann es nicht gehen.
Ein Listbox wiederum, listet nur. Und kann daher mehrere Spalten auflisten.
Un andere in UserForm_Initialize den


letztezeile = ActiveSheet.Cells(Rows.Count, 12).End(xlUp).Row


letztezeile = Worksheets("Tabelle1").Cells(99999, 12).End(xlUp).Row

Rows.Count ist kontextlos.
Und ActiveSheet ist nicht genau genug, um zuverlässig zu sein.
VG
Yal

Hallo Reiner,
ja, in dem Beispiel werden die Einträge in eine einzige String zusammengefasst, sodass der Combobox damit zurecht kommt.
Dann ist die Mehrspaltigkeit in der CB nicht mehr notwendig.
Wenn Du keine eigene Eingabe in dieser Auswahlfenster vorhast, würde ich auf dem Listbox umstellen. So kannst Du leichter die getrennte Start- und Zielort handeln.
In dem "Ein-String-CB" muss Du den Eintrag am Komma splitten und glätten (VBA: Trim)


Option Explicit
Private Sub UserForm_Initialize()
Dim Z As Range
With Worksheets("Tabelle1")
For Each Z In .Range(.Range("L2"), .Range("L99999").End(xlUp)).Cells
If (Z.Value & Z.Offset(0, 2))  "" Then
frmUF1.cboFlugroute.AddItem Z.Value & ",   " & Z.Offset(0, 2).Value
End If
Next
Me.cboFlugroute.Value = Me.cboFlugroute.Column(0, 0)
End With
End Sub
Private Sub cboFlugroute_Change()
Dim Start As String
Dim Ziel As String
Start = Trim(Split(Me.cboFlugroute.List(Me.cboFlugroute.ListIndex), ",")(0))
Ziel = Trim(Split(Me.cboFlugroute.List(Me.cboFlugroute.ListIndex), ",")(1))
MsgBox "Start: """ & Start & """" & vbCr & "Ziel: """ & Ziel & """"
End Sub

Die Leerzeilen sortierst Du mit einem "nicht-leer"-Test auf Lx & Nx aus.
VG
Yal

Beliebteste Forumthreads (12 Monate)

Anzeige in ComboBox unvollständig

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzeige in ComboBox unvollständig

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread