Format einer Zelle in einer Excel-Tabelle abfragen/ändern

[fredyx]

Hallo zusammen,

ich benutze in VB 2005 Express Edition folgenden Coden um einen Wert aus einer Excel-Tabelle zulesen oder ihn von VB aus dort hinzuschreiben.

exWB.Worksheets("tabelle1").Range("A" & 1).Value()

Die Excel-Tabelle habe ich von VB aus geöffnet.

Kann mir jemand sagen, wie das aussehen muss, wenn ich dort z.B. die Textfarbe der Zelle ablesen bzw. ändern möchte.

Wo kann ich evtl. im Internet etwas finden, wo das auch für andere Formatierungs-Parameter beschrieben ist?

Danke

fredyx

[jesus.online]

Hallo Freddyx das ist nicht schwer,

z.B. Fett schreiben:

exWS.Range("a1").Font.Bold = True

z.B. Farbe ändern:

exWS.Range("a1").Font.color = "Farbcode"

z.B. Zellen auf Text formatieren:

exWS.Range("a1").NumberFormat = "@"

oder auf Währung formatieren:

exWS.Range("a1").NumberFormat = "#,##0.00 €"

Das hab ich allerdings nicht aus dem Internet sondern einfach in Excel eine Makro-aufzeichnung starten, formatierungen machen, makro auslesen.
Ist halt in VBA geschrieben aber das hilft um Attribute und evtl Objekte zu finden.

[fredyx]

Hallo jesus.online,

danke, bis auf den Farbcode komme ich klar. Der wird anscheinend als Dezimalzahl erwartet. Ich finde aber nur Farbtabellen im HEX-Code.
Wie wandle ich denn HEX in Dezimal um?

Gruß

fredyx

[fredyx]

Ich habe doch noch eine Lösung gefunden. Und zwar:

exWS.Range("a1").Font.Color = Convert.ToInt32("E500", 16)

'Das erste Argument der ToInt32-Methode ist die zu konvertierende
Zeichenfolge.
'Das zweite Argument beschreibt, mit welcher Basis die Zahl ausgedrückt
ist;bei hexadezimalen Zahlen ist der Basiswert 16.

vG

fredyx