Re: vbs und vba
29.01.2003 20:44:07
Bernd Held
Hallo ch,folgendes Skript sollte ticken:
********************************************************************
'Zugriff auf Excel - Automatisch eine Tabelle anlegen *
'********************************************************************
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
'Neue Arbeitsmappe einfügen
objXL.Workbooks.Add
With objXL
.Columns("A").ColumnWidth = 17
.Columns("B:K").ColumnWidth = 12
.Cells(2, 1).Value = "Umsatz Süd"
.Cells(3, 1).Value = "Umsatz West"
.Cells(4, 1).Value = "Umsatz Ost"
.Cells(5, 1).Value = "Umsatz Nord"
.Cells(6, 1).Value = "Gesamtergebnis"
.Cells(1, 2).Value = "Jan 2001"
.Cells(1, 3).Value = "Feb 2001"
.Cells(1, 4).Value = "Mrz 2001"
.Cells(1, 5).Value = "Apr 2001"
.Cells(1, 6).Value = "May 2001"
.Cells(1, 7).Value = "Jun 2001"
.Range("B1:G1").Select
.Selection.NumberFormat = "mmm yyyy"
.Range("A1:G1;A2:A6;B6:G6").Select
.Selection.Font.Bold = True
.Selection.Interior.ColorIndex = 19
'Währungsformat zuweisen
.Range("B2:G6").Select
.Selection.NumberFormat = "#,##0.00 $"
.Range("B6:G6").Select
.Selection.FormulaArray = "=R[-4]C+R[-3]C+R[-2]C+R[-1]C"
.Selection.Font.Bold = True
End With
Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de