Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004

Forumthread: Laufzeitfehler 1004

Laufzeitfehler 1004
24.10.2008 19:28:12
Chris
Servus Forum,
weiß jemand, warum bei diesem makro Laufzeitfehler 1004 auftritt ?

Sub lö()
For i = 1 To ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(i).Delete
Next i
End Sub


Es werden z.b. von 5 OleObjects(verschiedene ComboBox, textBox, commandButton, checkbox) 3 gelöscht und dann kommt der Laufzeitfehler
Die OLE-Objects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden
Gruß
chris

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004
24.10.2008 19:34:00
Erich
Hallo Chris,
wenn von den 5 Objekten drei gelöscht sind - gibt es dann noch OLEObjects(4) und OLEObjects(4)?
Da gibt es zwei Möglichkeiten: 

For i = 1 To ActiveSheet.OLEObjects.Count
ActiveSheet.OLEObjects(1).Delete
Next i
'oder
For i = ActiveSheet.OLEObjects.Count to 1 step - 1
ActiveSheet.OLEObjects(i).Delete
Next i

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Danke Erich...
25.10.2008 11:38:00
Chris
... wie immer mal Step -1. Das vergess ich so häufig.
Gruß
Chris
;

Forumthreads zu verwandten Themen

X-Achse innerhalb eines OWC10.Objektes
Marc

Guten Tag zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar
ich versuche eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch darzustellen. Dabei werden die minut...
12.08.2008 13:39:59
Thread-ID: 1001188
3 Beiträge
Hilffeeee: Laufzeitfehler 1004
Tanya

Hallo,
ich habe eine Makro, die mehrere Diagramme aktualisiert.
codeabschnitt:
Sheets("Druck-stat").Select
ActiveChart.SeriesCollection(1).XValues = "=Mitteldaten!R9C2:R" & hilfs & "C2"
ActiveChart.SeriesCollection(1).Values = "=Mitteldaten!R9C5:R" & hilfs &...
14.08.2008 15:35:58
Thread-ID: 1001894
2 Beiträge
Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
zeile ermitteln aus : A10:C26
reinhardt

Hallo.
In A1 stehen Range-Werte in folgender Form: A10:C26, oder BC150:M299
Ich möchte alle Zeilen oberhalb von A10 (1 ...9) oder BC 150 (1...149) ausblenden.
Dazu brauche ich einmal Hilfe bei einer Formel, die mir den Wert 9 aus A10:C26 oder
den Wert 149 aus BC150:M299 erre...
19.09.2008 09:22:00
Thread-ID: 1010909
2 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Tabellenblattnahme, Beitrag 1008-1012 21.09.08
Werner

Hallo Daniel,
Deine Hilfe mit den Code:
Private Sub Worksheet_Change _ (ByVal Target As Range) If Target.Address = "$D$12" Then TabelleXXX.Name = Range("D12").Value End If End Sub
hat Super funktioniert, nochmals Danke!!
Nun habe ich aber noch ein weiteres Problem, ich habe...
24.09.2008 22:57:34
Thread-ID: 1012192
4 Beiträge
Laufzeitfehler 1004
Jörg

Ich erhalte einen merkwürdigen Fehler, bei ug. Script. Die Zeile
"Range(Cells(intRow, 1), Cells(intRow, 2)).Select" löst den "Laufzeitfehler 1004 / Anwendungs- oder objektorientierter Fehler" aus.
Ich kann hier keinen Fehler entdecken. Woran liegt's? Gibt's eine Idee? Danke für Eure Mü...
29.09.2008 11:35:58
Thread-ID: 1013056
10 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Laufzeitfehler 1004 in Excel VBA beheben

Schritt-für-Schritt-Anleitung

  1. Identifiziere den Fehler: Der Laufzeitfehler 1004 tritt häufig auf, wenn ein Makro versucht, auf ein Objekt zuzugreifen, das nicht mehr existiert. In deinem Fall könnte das bedeuten, dass du versuchst, ein OLE-Objekt zu löschen, das nicht mehr verfügbar ist.

  2. Überprüfe die Schleife: Achte darauf, wie du die Schleife zur Löschung der OLE-Objekte implementierst. Verwende eine der folgenden Methoden:

    ' Variante 1
For i = 1 To ActiveSheet.OLEObjects.Count
   ActiveSheet.OLEObjects(1).Delete
Next i

' Variante 2
For i = ActiveSheet.OLEObjects.Count To 1 Step -1
   ActiveSheet.OLEObjects(i).Delete
Next i

    Die zweite Variante (Schritt -1) ist sicherer, da sie von hinten nach vorne zählt und somit die Indizes der verbleibenden Objekte nicht beeinflusst.

  3. Teste das Makro: Führe das Makro nach den Änderungen erneut aus und prüfe, ob der Fehler weiterhin auftritt.

Häufige Fehler und Lösungen

  • Problem: Laufzeitfehler 1004 bei der Löschung von OLE-Objekten.

    • Lösung: Stelle sicher, dass du die Schleife rückwärts durchläufst (Schritt -1), um sicherzustellen, dass die Indizes der verbleibenden Objekte korrekt bleiben.

  • Problem: Fehlermeldung „Die OLE-Objects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden“.

    • Lösung: Überprüfe, ob die OLE-Objekte, auf die du zugreifen möchtest, noch existieren, bevor du versuchst, sie zu löschen.

Alternative Methoden

  • Verwendung von On Error Resume Next: Du kannst den Fehler temporär ignorieren, indem du diese Zeile hinzufügst. Das kann helfen, die Ausführung des Makros nicht zu stoppen, wenn ein Objekt nicht mehr existiert.

    On Error Resume Next
ActiveSheet.OLEObjects(i).Delete
On Error GoTo 0

  • Verwendung von With-Anweisung: Um den Code übersichtlicher zu gestalten, kannst du die With-Anweisung verwenden:

    With ActiveSheet
   For i = .OLEObjects.Count To 1 Step -1
       .OLEObjects(i).Delete
   Next i
End With

Praktische Beispiele

Hier ist ein Beispiel, wie du den Laufzeitfehler 1004 in einem realen Szenario vermeiden kannst:

Sub RemoveAllOLEObjects()
    Dim i As Long
    With ActiveSheet
        For i = .OLEObjects.Count To 1 Step -1
            .OLEObjects(i).Delete
        Next i
    End With
End Sub

In diesem Beispiel wird das Makro sicher alle OLE-Objekte im aktiven Arbeitsblatt löschen, ohne einen Laufzeitfehler zu erzeugen.

Tipps für Profis

  • Debugging: Nutze die Debugging-Tools von Excel, wie den „Schritt für Schritt“-Modus, um genau zu sehen, wo der Fehler auftritt.

  • Objektprüfung: Implementiere vor der Löschung eine Überprüfung, ob das OLE-Objekt noch vorhanden ist:

    If Not ActiveSheet.OLEObjects(i) Is Nothing Then
   ActiveSheet.OLEObjects(i).Delete
End If

  • Makros optimieren: Halte deine Makros sauber und gut strukturiert, um Fehlerquellen zu minimieren.

FAQ: Häufige Fragen

1. Was ist der Laufzeitfehler 1004? Der Laufzeitfehler 1004 tritt auf, wenn Excel ein Problem mit dem Zugriff auf ein Objekt hat, z.B. wenn ein OLE-Objekt nicht gefunden werden kann.

2. Wie kann ich Laufzeitfehler in Excel VBA vermeiden? Verwende stets eine Rückwärtszählung in Schleifen, um sicherzustellen, dass du die Indizes nicht durcheinanderbringst, und implementiere Fehlerbehandlungsroutinen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige