LZF 1004 nach Zell-Formatierung in VBA
02.02.2007 12:24:52
Düppi
folgender Code meldet LZF 1004 (Anwendungs- oder objektdef. Fehler) - ich weiß nicht, wie ich es abstellen soll. Es hakt bei der Formatierung der Rahmen und der Fett-Schrift. Wer weiß Rat, fragt Düppi?
Dim lz_red As Long
Dim x_red As Integer
Workbooks.Open Filename:="y:\Statistiken\" & "Excelstatistik_2007.xls"
lz_red = Workbooks("Excelstatistik_2007.xls").Sheets("Redaktionen").Range("A65536").End(xlUp).Row + 1
Workbooks("Excelstatistik_2007.xls").Sheets("Redaktionen").Range(Cells(lz_red, 1), Cells(lz_red, 25)).Borders.LineStyle = xlContinuous
Workbooks("Excelstatistik_2007.xls").Sheets("Redaktionen").Range(Cells(lz_red, 1), Cells(lz_red, 25)).Font.Bold = True