Formatierung der Spalten in Excel

[Sito]

Hallo,

habe per VBA Daten von Access nach Excel exportiert.
Nun möchte ich alle Zahlen in Spalte G formatieren.
Leider schaffe ich es nur für eine Zelle.
Die Zahl wird komischerweise auch linksbündig angezeigt.
Hoffe Ihr könnt mir helfen

Gruß
Kay

Code [Auswählen] Erweitern


With xlSheet
        xlSheet.Range("G3").Value = Format(xlSheet.Range("G3"), "#,##0.00")
End With


[DF6GL]

Hallo,

Du formatierst ja nicht die Zelle, sondern weist der nur einen (formatierten) Text zu, der deshalb auch linksbündig wie jeder andere Text in der Zelle angezeigt wird...


Schau mal in den Zell-Objekt-Eigenschaften nach, welche davon für die Formatierung (excel-seitig) einer Zelle zustänig ist.

[vittorio0]

in der Hilfe von Excel hab ich folgendes gefunden.

Code (vb) [Auswählen] Erweitern

Beispiel
In diesen Beispielen wird das Zahlenformat für Zelle A17, erste Zeile, sowie für Spalte C in Sheet1 festgelegt.

Worksheets("Sheet1").Range("A17").NumberFormat = "General"
Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"
Worksheets("Sheet1").Columns("C"). _
    NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"