Microsoft Excel

Herbers Excel/VBA-Archiv

Laufzeitfehler 1004, Die Methode Range...

Betrifft: Laufzeitfehler 1004, Die Methode Range... von: Heiko
Geschrieben am: 12.10.2014 08:25:14

Hallo,

ich möchte eine Vielzahl von Zellen per Makro leeren. Das hat immer funktioniert, auf einmal tut es das nicht mehr. Hat vielleicht jemand eine Idee woran das liegen kann?
Folgender Code funktioniert:
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



  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: Heiko
Geschrieben am: 12.10.2014 08:31:32

Sorry, zu schnell abgesendet...

wenn ich vor der "Range Auswahl" ein Feld ändere, und sei es nur

Cells(1,1).Value = ""

dann bekomme ich den 'Laufzeitfehler 1004'.

Ich hoffe das war halbwegs verständlich.

Gruß Heiko


  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: Hajo_Zi
Geschrieben am: 12.10.2014 08:52:39

Cells(1,1).Value = ""
löst bei mir keinen Fehler aus, das könnte aber daran liegen das meine Datei anders aussieht.

GrußformelHomepage


  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: Heiko
Geschrieben am: 12.10.2014 13:54:12

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


  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: Hajo_Zi
Geschrieben am: 12.10.2014 13:56:17

ich hätte bei dem Range Union benutzt.

Gruß Hajo


  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: {Boris}
Geschrieben am: 12.10.2014 14:03:22

Hi Heiko,

es wäre gut gewesen, wenn Du gezeigt hättest, wo genau der Fehler auftritt.
Hast Du schon mal den gesamten Code mit F8 einzeln durchlaufen lassen?
Welchen Wert hat denn z.B. die Variable AktDatum?

VG, Boris


  

Betrifft: AW: Laufzeitfehler 1004, Die Methode Range... von: Heiko
Geschrieben am: 14.10.2014 03:58:56

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


 

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 1004, Die Methode Range..."