Office: Listbox

karo.urban · 19. März 2007

Hi Leute,

folgendes Problem,

um zu einer ListBox Einträge hinzuzufügen gilt ja ListBox.AddItem "Eintrag",

aber wie kann ich das dynamisch gestalten, wenn ich eine Zeile aus einer Excel Tabelle einfügen möchte, Problem ist, dass das ein String ist, wie kann ich aber es so gestalten das ich die Zeile die ich einfügen möchte als Variable einfüge?

Danke

:)

R J · 21. März 2007

Hi Karo,

in etwa so :
Code:

Dim sWert$
swert = "ABC"
ListBox.AddItem swert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Demian · 21. März 2007

Moin,moin,

wenn du speziell auf Zellwerte in einer Spalte abzielst, geht das auch so:

Code:

Private Sub UserForm_Initialize()
Range("a2").Activate

For i = 1 To ActiveSheet.UsedRange.Rows.Count
ListBox1.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

range("a2").activate, weil ich dasvon ausgehe, dass die Spalten überschriften haben.

Gruß
Demian

User · 21. März 2007

Hallo zusammen,

Sorry, das ich mich da einmische.
.Select und .Activate sind 99.99% aller VBA -Anwendungen überflüssig, langsam und führen oft zu Fehlern.

Also ohne, gleiches Beispiel Listbox füllen mit Werten des aktiven Tabellenblattes von A2:bis zur ersten leeren Zelle in Spalte A
Code:

Private Sub UserForm_Initialize()
Dim lxRow As Long
lxRow = 2
ListBox1.Clear
Do While ActiveSheet.Cells(lxRow, 1).Text ""
ListBox1.AddItem ActiveSheet.Cells(lxRow, 1).Text
lxRow = lxRow + 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser · 21. März 2007

hiho

Option Explicit

'Private Sub UserForm_Initialize()
'Dim welche_zeile As Long
'Dim ws As Worksheet
'Dim x, i As Integer
'Set ws = Sheets(1) 'anpassen
''***************************
'welche_zeile = 2 'anpassen
''***************************
'x = ws.Range("A" & _
'welche_zeile & ":" & ws.Rows(welche_zeile).Find _
'("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address(0, 0))
'For i = 1 To Columns.Count
' On Error GoTo finisch
' Me.ComboBox1.AddItem x(1, i)
'Next
'finisch:
'Me.ComboBox1.ListIndex = 0
'End Sub

'besser
Private Sub UserForm_Initialize()
Dim welche_zeile As Long
Dim ws As Worksheet
Dim i As Integer
Set ws = Sheets(1) 'anpassen
'***************************
welche_zeile = 2 'anpassen
'***************************
For i = 1 To ws.Cells(welche_zeile, Columns.Count).End(xlToLeft).Column
If ws.Cells(welche_zeile, i) <> "" Then
Me.ComboBox1.AddItem ws.Cells(welche_zeile, i)
End If
Next
Me.ComboBox1.ListIndex = 0
End Sub

Code eingefügt mit
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

karo.urban · 22. März 2007

Danke, für die schnelle Antwort,

leider bleibt folgendes Problem, die Einträge einer Excel Zeile sollen auch in der Listbox in einer Zeile stehen,

Gruß
karo

User · 22. März 2007

wie kann eine Listbox eigentlich zurückgestzt werden?

gruß ta.

User · 22. März 2007

Hallo ta.

Guck den Code oben an:
ListBox.Clear

chris-kaiser · 22. März 2007

hiho

alles in einer Zeile ist noch einfacher
nutze Rowsource
statt additem

in den Eigenschaften der combo columncount(wieviele Einträge) auf gewünschten Wert einstellen, bzw. auch columnwith (breite der Anzeige in der Combo)

Code:

Beispiel für Listenfeld-Steuerelement sowie die Eigenschaften BoundColumn, ControlSource und RowSource

Im folgenden Beispiel wird ein Bereich von Tabellenblattzellen in einem Listenfeld-Steuerelement (ListBox) verwendet und, wenn der Benutzer eine Zeile in der Liste auswählt, der Zeilenindex in einer anderen Tabellenblattzelle angezeigt. Hierbei werden die Eigenschaften RowSource, BoundColumn und ControlSource eingesetzt.

Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Bereich Deklarationen eines Formulars. Das Formular muss ein Listenfeld-Steuerelement (ListBox) mit dem Namen ListBox1 enthalten. Geben Sie im Tabellenblatt Daten in den Zellen A1:E4 ein. Stellen Sie außerdem sicher, dass die Zelle A6 keine Daten enthält.

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e4"

ListBox1.ControlSource = "a6"
'Place the ListIndex into cell a6
ListBox1.BoundColumn = 0
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

karo.urban · 27. März 2007

Danke Chris, aber ...

ich muss jede Spalte individuell ansprechen, das ist leider nicht möglich mit RowSource, d.H. ich möchte als erste Zeile zB. die dritte Zeile aus meiner Excel Tabelle in meiner Listbox haben und dann noch die neunte als zweite in meiner Listbox, vom Prinzip war additem schon richtig jedoch müssten sie eben in einer Zeile angezeigt werden,

danke

Gruß karo

chris-kaiser · 27. März 2007

hallo karo

Hier ein Democode

Code:

Option Explicit
Private Sub UserForm_Initialize()
Dim i
Me.ComboBox1.Clear
Me.ComboBox1.ColumnCount = 3
Me.ComboBox1.ColumnWidths = "30 ; 30 ; 40"
For i = 0 To 10
Me.ComboBox1.AddItem i
Me.ComboBox1.List(i, 1) = i & i
Me.ComboBox1.List(i, 2) = "aha" & i
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dafür wird eine Userform und eine Combo benötigt
oder natürlich eine Listbox

Code:

Option Explicit
Private Sub UserForm_Initialize()
Dim i
Me.ListBox1.Clear
Me.ListBox1.ColumnCount = 3
Me.ListBox1.ColumnWidths = "30 ; 30 ; 40"
For i = 0 To 10
Me.ListBox1.AddItem i
Me.ListBox1.List(i, 1) = i & i
Me.ListBox1.List(i, 2) = "aha" & i
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Listbox

Listbox

Listbox

Listbox

Listbox

Listbox - Similar Threads - Listbox

Listbox wird nicht breiter, Schriftgrösse ändert sich

Listbox Sortierung

Suchfunktion für Listbox in Textbox

Listbox befüllen

Listbox füllen wenn zelle daneben leer

Ordnernamen, die Kriterien erfüllen in Listbox aufführen

Suchfunktion in Listbox