SYRARE Geschrieben 31. Juli 2003 Geschrieben 31. Juli 2003 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
Buell Geschrieben 31. Juli 2003 Geschrieben 31. Juli 2003 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
Empfohlene Beiträge
Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren
Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können
Benutzerkonto erstellen
Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!
Neues Benutzerkonto erstellenAnmelden
Du hast bereits ein Benutzerkonto? Melde Dich hier an.
Jetzt anmelden