Listbox mit Werten und tausender Punkt

Thomas · 2021-11-04T20:42:11+00:00

Hallo, ich fülle eine Listbox aus einem Tabellenblatt wie hier https://www.herber.de/forum/cgi-bin/callthread.pl?index=1851936#1852614 im Beitrag von Werner vorgeschlagen, das klappt auch grundsätzlich ohne Probleme. Die Daten kommen von einem Tabellenblatt wo einige Spalten als als Währung mit tausender Punkt und ohne Nachkommastelle aber mit Zeichen formatiert sind, diese werden in der Listbox aber nicht so angezeigt. Kann man das auch so umsetzen das die Daten in der Listbox entsprechend angezeigt werden? Danke

Hallo,
mit Schleife über die entsprechenden Spalten in der Hilfstabelle und die Werte in Text umwandeln.


Private Sub TextBox1_AfterUpdate()
Dim loLetzte As Long, i As Long, raListe As Range, raZelle As Range
With Worksheets("Daten")
If Me.TextBox1  "" Then
If WorksheetFunction.CountIf(.Columns("C"), Me.TextBox1) > 0 Then
loLetzte = .Columns("C").Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Row
For i = 2 To loLetzte
If .Cells(i, "C") = Me.TextBox1 Then
If raListe Is Nothing Then
Set raListe = .Cells(i, "A").Resize(, 12)
Else
Set raListe = Union(raListe, .Cells(i, "A").Resize(, 12))
End If
End If
Next i
If Not raListe Is Nothing Then
With Worksheets("Hilfstabelle")
.Range("A1").CurrentRegion.Clear
raListe.Copy .Range("A1")
For Each raZelle In .Range("G1:I" & .Cells(.Rows.Count, "A").End(xlUp).Row)
raZelle.Value = raZelle.Text
Next raZelle
Me.ListBox1.TextAlign = fmTextAlignRight
Me.ListBox1.ColumnCount = 12
Me.ListBox1.ColumnWidths = "2 cm;2 cm;2 cm;2 cm;2 cm;2 cm;3 cm;3 cm;3 cm;2 cm"
Me.ListBox1.Clear
Me.ListBox1.List = .Range("A1").CurrentRegion.Value
End With
End If
Else
MsgBox "Suchbegriff " & Me.TextBox1 & " ist in Spalte C nicht vorhanden."
End If
End If
End With
Set raListe = Nothing
End Sub

Gruß Werner

Hallo Daniel,
ich kopiere doch aktuell auch die Daten aus der original Tabelle auf ein neues Tabellenblatt, wenn ich dieses mit RowSource einlese dann sind die Werte nicht korrekt in der darstellung. Allerdings hätte rowsource auch den Charm der ordentlich zugeordneten Überschriften, das werde ich mir am Wochenende mal ansehen.
Ich habe aber bei der aktuellen Listbox noch einen Punkte der mich optisch stört und ich nicht so genau weiss wieso das so ist, die letzte Spalte wird nicht komplett dargestellt in der listbox, wenn ich in die listbox klicke und dann mit den Pfeiltasten nach rechts gehe, wird nach rechts gescrollt, aber das soll so nicht sein und es ist auch genug platz in der listbox das es nicht sein muss, wo könnte mein fehler da liegen? Userbild

Das zweite Problem ist ein Laufzeitfehler 1004, der manchmal kommt, ich hab den Listbox Code um eine Sortierung im "Hilfstabellen" Blatt erweitert, das funktioniert auch immer eine Zeitlang und dann plötzlich bekomme ich denn Laufzeitfehler mit dem Hinweis "Der Sortierbezug ist ungültig.


With Worksheets("Hilfstabelle")
.Range("A1").CurrentRegion.Clear
raListe.Copy
Worksheets("Hilfstabelle").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Sheets("Hilfstabelle").Range("A1:L200").Sort Key1:=Range("B1"), Key2:=Range("E1"), Order1:=xlAscending, Header:=xlNo
For Each raZelle2 In .Range("G1:L" & .Cells(.Rows.Count, "B").End(xlUp).Row)
raZelle2.Value = raZelle2.Text

Das seltsame ist halt das es oft geht und dann plötzlich nicht mehr.. Wo könnte ich da meinen Fehler haben?
Danke

Listbox mit Werten und tausender Punkt

Forumthread: Listbox mit Werten und tausender Punkt

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Listbox mit  Werten und tausender Punkt

Forumthread: Listbox mit  Werten und tausender Punkt

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Listbox mit Werten und tausender Punkt

Forumthread: Listbox mit Werten und tausender Punkt

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread