1.1k Aufrufe
Gefragt in Tabellenkalkulation von Mitglied (926 Punkte)
Hallo alle zusammen,
nach diversen Dim...As.... Anweisungen im Makro, steht dann das Folgende:

Range("A1").Select
ActiveWorkbook.Styles("Normal").NumberFormat = "#,##0.00_ ;[Red]-#,##0.00"
For Each Zelle In ActiveSheet.UsedRange
_
_
Hajo schreibt dann immer wie überflüssig die Select-Anweisung ist.
Wie ändere ich die betreffende Zeile am besten?
Die Formatierung soll auch nicht auf die gesamte Datei, sondern auf das aktive Tabellenblatt angewendet werden. Ich dachte ich könnte einfach "-book" durch "-sheet" ersetzen aber dann kommt die Fehlermeldung "Variable" nicht definiert??
Vielen Dank im Voraus
mfg
Wolfgang

1 Antwort

0 Punkte
Beantwortet von hajo_zi Experte (9.1k Punkte)
Hallo Wolfgang,

Range("A1").NumberFormat = "#,##0.00_ ;[Red]-#,##0.00"
oder
ActiveSheet.UsedRange.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00"

Gruß Hajo
...