ich habe ein Problem mit einer mehrspaltigen Listbox.
Über folgendes Makro wird die Listbox gefüllt. Leider wird die Spalte mit
der Währung ohne Format (ohne und auch ohne Nachkommastellen) ausgegeben.
Sub AngeboteFilter()
Dim sFilter As String
Application.ScreenUpdating = False
sFilter = Worksheets("Daten").Range("I2")
If sFilter = "" Then Exit Sub
Worksheets("Angebote").Activate
Columns("A:W").AutoFilter Field:=9, Criteria1:=sFilter
Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteValues
Rows(1).Delete
ListBox1.List = Range("A1").CurrentRegion.Value
Columns("D:D").Select
Selection.NumberFormat = "#,##0.00 "
ActiveWorkbook.Close savechanges:=False
ListBox1.ListIndex = 0
Columns("A:W").AutoFilter
End Sub
Was mache ich falsch?
Hat jemand einen Tipp für mich?
Danke im Voraus.
Gruß
Dieter.K