Laufzeitfehler: Range fehlgeschlagen
01.03.2005 10:09:32
Thomas
Ich erhalte immer einen Laufzeitfehler: Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen.
Wenn ich den Code in einem Modul laufen lasse funktionierts!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Zusammenfassung")
Set wks2 = Worksheets("Abrechnung")
'Zellenfarbe entfernen
wks1.Range("F12:I15,B21,B22:D22,H21:H22,A42,B45:B46").Interior.ColorIndex = xlNone
'Zellenfarbe setzen
With wks1.Range("F12:I12,F12:I15,B21,B22:D22,H21:H22,A42,B45:B46").Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Call BlattSchützen
wks2.Range("C6:C9,C11,C13").Interior.ColorIndex = xlNone
With wks2.Range("C6:C9,C11,C13").Interior
.ColorIndex = 36
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Call BlattSchützen
End Sub
Danke für Eure Hilfe.
Gruss Thomas