Dim Long/Integer: Laufzeitfehler 1004
31.01.2007 15:22:53
Düppi
ich habe vermutlich ein Variablen-Problem. Die For-Schleife wird mit Laufzeitfehler 1004 abgebrochen. Wenn ich anstelle von x_red schreibe "A", dann läufts. Passen hier Long und Integer nicht zusammen? Wer weiß Rat, fragt Düppi?
Sub Statistik()
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
For x_red = 1 To 24
Workbooks("Excelstatistik_2007.xls").Sheets("Redaktionen").Range(x_red & lz_red) = Workbooks("SpiegelGlockeepaper.xls").Sheets("Statistik").Range("A4")
Next
Workbooks("Excelstatistik_2007.xls").Close savechanges:=True
End Sub
Anzeige