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 Zitieren
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 Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.