Office: Format in ComboBox ändern

Guten Morgen,

Ich habe eine ComboBox, die automatisch aus der Spalte BE gefüllt wird. In der Spalte stehen jedoch Zahlen mit Trennzeichen und in der ComoBox ohne. Wie bekomme ich die Trennzeichen auch in die ComboBox?

Hier mein Code:

Code:

 

HAllo Phillip

Hast du da mal ne klein Beispieldatei ?

ransi

 

Hi ransi,

eine Beispieldatei ist leider nicht möglich *frown.gif* Ich versuchs aber nochmal besser zu erklären. Ich habe eine Tabelle mit ca. 80 Spalten und 20.000 Zeilen. In diese wird per Makro eine UserForm eingefügt. Die UserForm bietet diverse Comboboxen mit Auswahlmöglichkeiten um die Tabelle dann entsprechend zu filtern etc.

Das Problem liegt nun bei ComboBox5. Diese wird aus der Spalte BE ab Zeile 6 befüllt. Spalte BE enthält Zahlen. Diese sind auch als Zahlen formatiert und besitzen 1.000 Trennzeichen. Es steht also bspw. die Zahl 10.000.000
in einer Zellein Spalte BE. Meine ComboBox zeigt diese Zahl allerdings ohne Trennzeichen, also so 10000000 an. Daher denke ich, dass der FEhler schon beim befüllen der ComboBox liegt.

Ich hoffe es ist jetzt etwas verständlicher *Smilie

Liebe Grüße,
Phillip

 

Hallo,

wenn ich das .Value im Code durch .Text ersetze zeigt er mir die Zahlen richtig an. Aber die Sortierung nach etc. funktioniert nicht. Obwohl jetzt alls richtig angegeben ist, wenn ich mir den Filter manuell anschaue...

Liebe Grüße,
Phillip

 

Hallo Philip,

Du musst erst sortieren, dann die Typumwandlung in #.### machen und dann die Combobox füllen.
Hab statt dem Dictionary ne ArrayList genommen.
Die kann auch "nur Unikate", lässt sich aber mit einem Einzeiler sortieren.

Schau dir den Code mal an:
(musst du auf deinen Bereich und deine Variablen anpassen)

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub ComboBox1_Enter()
Dim objArrayList As Object
Dim Arr As Variant
Dim L As Long
Dim out As Variant
Set objArrayList = CreateObject("System.Collections.Arraylist")
Arr = Sheets("Tabelle1").Range("BE6:BE10000").Value 'Anpassen
With objArrayList
For L = LBound(Arr) To UBound(Arr)
If Not .contains(Arr(L, 1)) Then .Add Arr(L, 1)
Next
.Sort 'Sortieren
out = .toArray
For L = LBound(out) To UBound(out)
out(L) = Format(out(L), "#,###") 'Typumwandlung in String
Next
ComboBox1.List = out 'ComboBox füllen
End With
End Sub

ransi

 

Hi ransi,

vielen Dank für deine Mühe *Smilie Das werde ich dann mal testen *Smilie

Liebe Grüße,
Phillip

 

Hi ransi,

Das befüllen der ComboBox mit deinem Code klappt wunderbar *Smilie Allerdings setzt er jetzt den Filter wiedre nicht wie gewollt. Wenn ich in der ComboBox bspw. kleiner als 256.000 auswähle, setzt er den Filter als kleiner als 256.

Der Code sieht jetzt wie folgt aus:

Code:

 

Hallo

Combobox enthält jetzt Strings.
Die musst du vor dem Filtervorgang wieder in eien Zahl verwandeln.

Teste mal dieses Strickmuster:
...Criteria1:=">" & cdbl(replace(combobox9.value,".",""))..

ransi

 

Hi ransi,

es funktioniert *Smilie Vielen Dank du hast mir sehr geholfen *Smilie

Dir ein schönes Wochenende *Smilie

Liebe Grüße,
Phillip