in Spalte A habe ich Zahlen zustehen. Code von Test_1 funktioniert, ist aber nicht ausreichend.
Test_2 funktioniert n i c h t , dh. es werden keine Werte nach dem Filtern angezeigt. Da ich nicht die
gesamte Spalte A im Format Standard anzeigen will, muß ich die Variable: s_uchen verändern.
Aber wie gehts ?
Grüße aus Berlin
Rainer
Sub test_1()
Dim s_uche As Variant
Cells.Select
AutoFilterMode = False
suche = Range("A3")
Columns("A:A").Select
Selection.NumberFormat = "General"
Selection.AutoFilter Field:=1, Criteria1:=s_uche
End Sub
Sub test_2()
Dim s_uche As Variant
Cells.Select
AutoFilterMode = False
suche = Range("A3")
Columns("A:A").Select
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
s_uche = Format(s_uche, "#,##0.00_ ;[Red]-#,##0.00 ") ` oder wie sonst ????
Selection.AutoFilter Field:=1, Criteria1:=s_uche
End Sub