AW: Laufzeitfehler 1004, Die Methode Range...
12.10.2014 13:54:12
Heiko
Hallo Hajo,
ich habe mich doch zu missverständlich ausgedrückt, hier nochmal der gesamte Code wie er bei mir steht...
ChDir "S:Pfad"
Workbooks.Open Filename:= _
"S:Pfad\Datei"
Sheets(Month(Date - 1)).Activate
Blatt = Month(Date - 1)
AktDatum = Application.Match(CLng(Date - 1), Sheets(Blatt).Columns(1), 0)
If Cells(AktDatum, "AR").Value = "" Then Call InhalteLöschenAbfrage1 Else _
ActiveWorkbook.Close
Windows("Fenster.xls").Activate
Sheets(1).Cells(2, 4).Value = Date
Application.Wait (Now + TimeValue("0:00:01"))
'In der kommenden Zeile wird der Fehler ausgelöst
Range( _
"B8:U8,AC5:AE8,H13:K16,H18:K19,L14:M15,N12:Q12,N14:Q14,T12:U12,T17:U17,Z11:AE11,Z13:AB16, _
AC14:AE16,V19:AE19,B23:N24,O24,P23:U24,B28:U28,B31:U32,B35:J36,L35:P35,Q35:V36,X35:Y36,AA35:AB36,AC21:AE21,AC23:AE32,AC35:AE36" _
).ClearContents
Range("B8").Select
Merkwürdig ist, wenn ich, nachdem die Fehlermeldung erschienen ist, im Debugger mit F8 Schritt für Schritt prüfen möchte was nicht läuft, dann funktioniert alles.
Danke für die Hilfe im Voraus.
Gruß Heiko