Dim xlsApp      As Excel.Application

Dim xlsWBook    As Excel.Workbook

Dim xlsWSheet   As Excel.Worksheet

...

xlsWSheet.Cells(1, 1) = "test"

...

Set xlsWSheet = Nothing

Set xlsWBook = Nothing

Set xlsApp = Nothing

Frage, wie schafft man es jetzt die Hintergrundfarbe der Zelle (1,1) in z.B. rot zu ändern? (Mit VBA funktioniert es mittels ActiveCell, aber in "Visual Basic"? )

mfg

SYRARE

Dim TB as worksheet

Set e = CreateObject("Excel.Application")

e.Workbooks.Open (Dateipfad)

Set TB = e.Workbooks(1).Worksheets(1)

TB.Cells(Zeilennummer, Spaltennummer).Interior.ColorIndex = 0 'hiermit wird eingefärbt (hier die Farbnummern ausprobieren, keine Ahnung was rot oder so ist

'Fett und Font:

TB.Cells(Zeilennummer, Spaltennummer).Font.Bold = True

TB.Cells(Zeilennummer, Spaltennummer.Font.Size = 12

'alles dicht machen

e.Workbooks(1).Save

'Beenden

e.Quit

Set e = Nothing

greets

Buell

Danke

mfg

SYRARE