Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1584to1588
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

Listbox mit 7 Spalten füllen

Listbox mit 7 Spalten füllen
23.10.2017 23:14:44
Bernd
Hallo zusammen,
Komm gerade nicht weiter und zwar fügt der nachfolgende Code in die Listbox die gefilterten Daten aus der Tabelle ein aber nur die erste Spalte. Wo liegt mein Fehler?
Private Sub ComboBox1_Change()
Dim lZeile As Integer
lZeile = 1
With ListBox1
.Clear
Do Until Range("C" & lZeile).Value = ""
If ComboBox1.Text = Range("C" & lZeile).Value Then
ListBox1.AddItem Range("A" & lZeile).Value
End If
lZeile = lZeile + 1
Loop
.ColumnCount = 7
End With
End Sub
Private Sub UserForm_Initialize()
Dim oDic As Object
Dim lngZeile As Long, meAr As Variant
Dim wks As Worksheet
Set wks = Sheets("Kürzel")
Set oDic = CreateObject("Scripting.Dictionary")
With wks
meAr = .Range("C2", .Cells(.Rows.Count, 3).End(xlUp))
End With
For lngZeile = 1 To UBound(meAr)
oDic(meAr(lngZeile, 1)) = 0
Next
ComboBox1.List = oDic.keys
Set oDic = Nothing
Dim tblDepot As Worksheet
Dim strName As String
Set tblDepot = Worksheets("Order")
'Beschriftungen für die Bezeichnungsfelder aus Tabelle holen
With frm_Kaufen
.Label1.Caption = tblDepot.Cells(1, 1).Value
.Label2.Caption = tblDepot.Cells(1, 2).Value
.Label3.Caption = tblDepot.Cells(1, 3).Value
.Label4.Caption = tblDepot.Cells(1, 4).Value
.Label5.Caption = tblDepot.Cells(1, 5).Value
.Label6.Caption = tblDepot.Cells(1, 6).Value
.Label7.Caption = tblDepot.Cells(1, 7).Value
.Label8.Caption = tblDepot.Cells(1, 8).Value
.Label9.Caption = tblDepot.Cells(1, 9).Value
.Label10.Caption = tblDepot.Cells(1, 10).Value
.Label11.Caption = tblDepot.Cells(1, 11).Value
.Label14.Caption = tblDepot.Cells(1, 5).Value
.ComboBox1.SetFocus
End With
If Sheets("Order").Range("R2").Value = "Ihr Anfangskapital ist verbraucht, bitte Konto auffü _
llen!" Then
strName = Sheets("Order").Range("R2").Value
Else
Exit Sub
End If
MsgBox strName
End Sub
Userbild

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

Betreff
Datum
Anwender
Anzeige
AW: Listbox mit 7 Spalten füllen
23.10.2017 23:25:39
Gerd
Moin Bernd,
ungetestet:
Private Sub ComboBox1_Change()
Dim lZeile As Long, listSpalte As Long
lZeile = 1
With listbox1
.Clear
.ColumnCount = 7
Do Until Range("C" & lZeile).Value = ""
If ComboBox1.Text = Range("C" & lZeile).Value Then
listbox1.AddItem
For listSpalte = 0 To 6
listbox1.List(listbox1.ListCount - 1, listSpalte) = Cells(lZeile,  _
listSpalte + 1).Value
Next
End If
lZeile = lZeile + 1
Loop
End With
End Sub

Gruß Gerd
AW: Listbox mit 7 Spalten füllen
24.10.2017 00:05:58
Bernd
Hallo Gerd,
Danke sehr, hat gepasst"
Guts Nächtle
Bernd
AW: Listbox mit 7 Spalten füllen
24.10.2017 13:02:20
Bernd
Hallo Gerd,
müsste dich nochmal bemühen und zwar müsste die Spalte 7 in der Listbox als Zahl mit 2 Nachkommastellen formatiert werden. Kannst du mir dabei helfen?
Userbild
Anzeige
AW: Listbox mit 7 Spalten füllen
25.10.2017 12:49:23
ChrisL
Hi Gerd
ebenfalls ungetestet...
Private Sub ComboBox1_Change()
Dim lZeile As Long, listSpalte As Long
lZeile = 1
With Listbox1
.Clear
.ColumnCount = 7
Do Until Range("C" & lZeile).Value = ""
If ComboBox1.Text = Range("C" & lZeile).Value Then
.AddItem
For listSpalte = 0 To 5
.List(.ListCount - 1, listSpalte) = Cells(lZeile, listSpalte + 1).Value
Next
.List(.ListCount - 1, 6) = Format(Cells(lZeile, 7).Value, "0.00")
End If
lZeile = lZeile + 1
Loop
End With
End Sub

cu
Chris
AW: Listbox mit 7 Spalten füllen
25.10.2017 17:35:17
Bernd
Hallo Chris,
Danke für deine Hilfe!
Wie immer bei dir bleibt mir nur zu sagen "dat passt!!!"
Userbild
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige