Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004, Die Methode Range...

Laufzeitfehler 1004, Die Methode Range...
12.10.2014 08:25:14
Heiko
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004, Die Methode Range...
12.10.2014 08:31:32
Heiko
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

AW: Laufzeitfehler 1004, Die Methode Range...
12.10.2014 08:52:39
Hajo_Zi
Cells(1,1).Value = ""
löst bei mir keinen Fehler aus, das könnte aber daran liegen das meine Datei anders aussieht.

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

Anzeige
AW: Laufzeitfehler 1004, Die Methode Range...
12.10.2014 13:56:17
Hajo_Zi
ich hätte bei dem Range Union benutzt.
Gruß Hajo

AW: Laufzeitfehler 1004, Die Methode Range...
12.10.2014 14:03:22
{Boris}
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

AW: Laufzeitfehler 1004, Die Methode Range...
14.10.2014 03:58:56
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
Anzeige

190 Forumthreads zu ähnlichen Themen

Makro-Fehlermeldung (Laufzeitfehler '1004')
Patrick

Guten Abend
Ich arbeite derzeit an einem Excel-Sheet und benötige dafür einige Makros. Obwohl ich keine Ahnung von Makros habe, konnte ich über die Such-Funktionen in verschiedenen Foren meine Probleme bisher selbst lösen. Nun stosse ich jedoch an meine Grenzen und konnte auch im Internet k...
01.03.2009 23:45:37
Thread-ID: 1055392
4 Beiträge
Anzeige
Laufzeitfehler 1004 - Select-Methode bei Range
Steffen

Hi zusammen,
habe ein minder wichtiges Problem mit einer Sortierung, die ich im Anschluss an das Füllen einer Liste vornehmen möchte.
Habe schon ein paar Forenbeiträge durchforstet und bei mir scheint es nicht nur das übliche Problem zu sein, dass der Pfad nicht genau angegeben wird.
17.04.2009 13:12:05
Thread-ID: 1069307
4 Beiträge
Fenster mit dem VBA-Laufzeitfehler ‚1004’
Matthias

Ich habe Tabellen einer Arbeitsmappe mit einem Blattschutz versehen und dafür auch ein Passwort vergeben.
In einem VBA-Skript verwende ich den Befehl ActiveSheet.Unprotect um den Blattschutz aufzuheben. Wird beim Ausführen des Skripts nun jedoch ein falsches Passwort eingegeben oder der Vo...
16.03.2010 16:24:06
Thread-ID: 1146325
9 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
Hyperlink mit VBA = Laufzeitfehler 1004
grexx123

Hallo,
ich habe folgendes Problem:
Ich generiere einen Hyperlink mit
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="" & ActiveWorkbook.Path & link & ".xls", SubAddress:="", ScreenTip:="Zu den Detaildaten von " & link & "", TextToDisplay:=">> Details...
14.04.2011 19:18:04
Thread-ID: 1210475
6 Beiträge
Laufzeitfehler 1004 - Die Methode "Range" für das
Pietro

Hei
Ich schnall es nicht! Wenn ich den folgenden Code auf Tabelle 2 ausführe funktioniert es einwandfrei. Starte ich den Code jedoch von einem anderen Blatt (z.B. Tabelle 1) kommt die Fehlermeldung "Laufzeitfehler 1004 - Die Methode "Range" für das Objekt Global ist fehlgeschlagen". Was mac...
13.01.2012 15:17:31
Thread-ID: 1246047
6 Beiträge
VBA - Laufzeitfehler 1004
Golem

Hallo Excel-Fachleute,
folgenden VBA Code verwende ich, um mehrere Zellbereiche neu zu berechnen.
Private Sub CommandButton1_Click() CommandButton1.BackColor = RGB(255, 215, 0) CommandButton1.Caption = "Manuelle" & Chr(10) & "Berechnung" 'Die Zahlen neu berechnen. Range("B29:T29...
06.08.2012 21:42:52
Thread-ID: 1274002
10 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
3
8
4
5
5
5
9
9
3
5
1
1
4
8
2
4
9
4
11
5
6
1
7