1.2k Aufrufe
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
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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...