Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
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
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anwendungs und Objektdefinierter Fehler 1004

Forumthread: Anwendungs und Objektdefinierter Fehler 1004

Anwendungs und Objektdefinierter Fehler 1004
25.06.2015 22:51:01
hi
Hallo zusammen!
Habe folgendes Problem:
Ich möchte in einem Arbeitsblatt eine Zeile löschen welche die Inhalte enthält die man über eine Userform eingibt und sucht.
Anfänglich lief mein Code ganz gut, aber seit kurzer Zeit liefert mir Excel immer den Fehler "Laufzeitfehler 1004" und der Debugger hinterlegt diese Zeile:
Sheets("User_aktuell").Rows(zeile) = ""
Kann mir vielleicht von euch jemand sagen woran das liegt? Bin schon am Verzweifeln :(
Liebe Grüße und Danke schon im Vorhinein
Hier mein Code:
Private Sub cmd_speichern_Click()
If txt_ID = "" And txt_bn = "" And txt_pw = "" And txt_gruppe = "" Then
Sheets("User_aktuell").Rows(zeile) = ""
'wenn Textfelder leer, dann Zeile leer ; wenn Zeile  _
gelöscht werden soll dann nach Rows(zeile).Delete
Else
Worksheets("User_aktuell").Select
Cells(zeile, 1) = txt_ID.Value
Cells(zeile, 2) = txt_bn
Cells(zeile, 3) = txt_pw
Cells(zeile, 4) = txt_gruppe
End If
If txt_ID = "" And txt_bn = "" And txt_pw = "" And txt_gruppe = "" Then
Sheets("User_Original").Rows(zeile).Interior.ColorIndex = 15 'Rows(zeile) ' wenn Textfelder  _
leer, dann in User_Original Zeile einfärben
'Worksheets(Array("User_Original", "User_aktuell")).Select
Else
Worksheets("User_Original").Select
Cells(zeile, 1) = txt_ID.Value
Cells(zeile, 2) = txt_bn
Cells(zeile, 3) = txt_pw
Cells(zeile, 4) = txt_gruppe
End If
Unload Me
adminmenue.Show
End Sub

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anwendungs und Objektdefinierter Fehler 1004
25.06.2015 23:05:25
Matthias
Hallo
Welchen Wert hat denn Zeile? Evtl. 0 ?
MsgBox Zeile
Sheets("User_aktuell").Rows(zeile) = ""
Gruß Matthias

Was sagt der Debugger?
25.06.2015 23:06:01
{Boris}
Hi,
...welchen Wert hat die Variable zeile im Moment des Fehlers?
VG, Boris

AW: Anwendungs und Objektdefinierter Fehler 1004
26.06.2015 20:04:51
hi
Hallo!
Habe den Fehler schon gefunden - der Wert der Zeile war 0 :D
Danke für eure Hilfe sonst wäre ich da nie drauf gekommen :)
Jetzt habe ich allerdings ein neues Problem.
In meinem Dokument gibt es mehrere Benutzer die nach dem Anmelden jeweils andere Userformen sehen, da sie verschiedene Rechte haben. Wie kann ich deren Passwörter ändern wenn ich eine Userform erstellt habe, in der man das alte Passwort 2x richtig schreiben muss und dann das neue auch 2x richtig schreiben und am Anfang soll der richtige Datensatz über den Benutzernamen gesucht werden?
Leider habe ich nur wenig Ahnung von VBA und deshalb weiß ich nicht wie ich das am besten angehe.
Lg
Anzeige
;

Forumthreads zu verwandten Themen

LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 10:00:05
Thread-ID: 1086825
6 Beiträge
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 08:08:22
Thread-ID: 1086829
3 Beiträge
"Anwendungs- oder objektdefinierter Fehler"
eres

Hallo Excel-Freunde,
habe mir in die Standard-Symbolleiste eine benutzerdefinierte Schaltfläche eingebaut und dieser ein Makro aus der personl.xls zugewiesen. Diese Makro besteht nur aus einer Zeile, in der ich eine Datei öffne (also Workbooks.Open Filename:= ...)
In der zu öffnenden...
28.07.2009 13:18:05
Thread-ID: 1091892
7 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
Anwendungs- oder Objektdefinierter Fehler
Werner

Hallo zusammen
Beim öffnen der Datei möchte ich Daten aus einer anderen Datei vom Sheets("Datensammler") und vom Sheets("Datensalle") kopieren und in die geöffnete Datei einfügen. Das klappt auch beim ersten Sheets. Wenn ich dann das 2. kopieren will, bekomme ich bei Sheets("Datensalle").S...
10.08.2010 07:15:00
Thread-ID: 1171349
8 Beiträge
Autofilter VBA freigegeben Laufzeitfehler 1004
Manfred

Hat jemand Hilfe parat zum setzen von Autofilter-Kriterien per Vba in einer freigegebenen Arbeitsmappe und Blattschutz?
Nach dem Aktivieren des Autofilters schüze ich das Tabellenblatt und erlaube dabei die Verwendung des Autofilters z.B. mit VBA
Folgendes Beispiel
https://www.he...
22.08.2010 11:59:18
Thread-ID: 1173599
5 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
Anzeige
Range(Cells) "Anwendungs-oder objektdef. Fehler"
Lilly

Hallo zusammen,
bin neu hier im Forum, bin auch bisher gut zurecht gekommen, bloß die ersten Gehversuche in VBA machen Probleme. Ich habe folgenden Code:
Private Sub CommandButton1_Click() Sheets("Sales cur. week").Select addSalesData (Range("M3").Value) End Sub Private Sub addSalesD...
17.05.2011 13:07:47
Thread-ID: 1214830
3 Beiträge
Range(Cells) "Anwendungs-oder objektdef. Fehler"
Lilly

Hallo zusammen,
bin neu hier im Forum, bin auch bisher gut zurecht gekommen, bloß die ersten Gehversuche in VBA machen Probleme. Ich habe folgenden Code:
Private Sub CommandButton1_Click() Sheets("Sales cur. week").Select addSalesData (Range("M3").Value) End Sub Private Sub addSalesD...
17.05.2011 13:00:51
Thread-ID: 1214832
3 Beiträge
Anwendungs oder Objektdefinierter Fehler
Stefan

Hallo liebe VBA Experten,
wieso bekomme ich bei dem folgenden Makro in der letzten Zeile ".Range(.Columns...") die Fehlermeldung: "Anwendungs- oder Objektdefinierter Fehler"
Es geht um folgendes. Wenn EZ19 einen Wert zwischen 0 und 10 annimmt, sollen die entsprechenden Zeilen ausgeblend...
27.05.2011 21:05:13
Thread-ID: 1216435
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fehler 1004: Anwendungs- oder objektdefinierter Fehler in Excel beheben

Schritt-für-Schritt-Anleitung

  1. Überprüfe den Wert der Variablen zeile: Der häufigste Grund für den Fehler "laufzeitfehler 1004 anwendungs oder objektdefinierter fehler" ist, dass die Variable zeile einen ungültigen Wert hat. Füge vor der fehlerhaften Zeile diesen Code hinzu:

    MsgBox zeile

    Dies zeigt den aktuellen Wert von zeile an. Stelle sicher, dass er größer als 0 ist.

  2. Korrigiere den Code: Wenn zeile = 0 ist, bedeutet das, dass du versuchst, eine Zeile zu löschen, die nicht existiert. Stattdessen kannst du die Zeile so löschen:

    If zeile > 0 Then
   Sheets("User_aktuell").Rows(zeile).Delete
End If

  3. Testen: Führe das Skript erneut aus und prüfe, ob der Fehler weiterhin auftritt.

Häufige Fehler und Lösungen

  • Fehler: zeile ist 0 oder negativ: Stelle sicher, dass der Wert korrekt gesetzt wird, bevor du versuchst, auf die Zeile zuzugreifen.
  • Fehler beim Zugriff auf nicht existierende Arbeitsblätter: Überprüfe den Namen des Arbeitsblattes. Ein Tippfehler kann ebenfalls zu einem "excel laufzeitfehler 1004 anwendungs- oder objektdefinierter fehler" führen.

Alternative Methoden

  • Verwendung von Find für die Zeilensuche: Anstatt die Zeile direkt zu setzen, kannst du die Find-Methode verwenden, um die Zeile basierend auf einem Suchkriterium zu finden. So kannst du sicherstellen, dass die Zeile existiert: 
    Dim rng As Range
Set rng = Sheets("User_aktuell").Columns(1).Find(txt_ID.Value)
If Not rng Is Nothing Then
   rng.EntireRow.Delete
End If

Praktische Beispiele

Hier ist ein Beispiel, wie du mit dem Fehler umgehen kannst:

Private Sub cmd_speichern_Click()
    If txt_ID = "" And txt_bn = "" And txt_pw = "" And txt_gruppe = "" Then
        If zeile > 0 Then
            Sheets("User_aktuell").Rows(zeile).Delete
        End If
    Else
        ' Weiterverarbeitung der Daten
    End If
End Sub

Tipps für Profis

  • Debugging mit Haltepunkten: Nutze Haltepunkte im VBA-Editor, um den Code Schritt für Schritt zu durchlaufen. So kannst du genau sehen, wo der Fehler auftritt.
  • Fehlerbehandlung implementieren: Verwende On Error Resume Next oder On Error GoTo für eine bessere Fehlerbehandlung in deinem Code.

FAQ: Häufige Fragen

1. Was bedeutet "laufzeitfehler 1004 anwendungs oder objektdefinierter fehler"? Dieser Fehler tritt auf, wenn Excel einen Befehl nicht ausführen kann, entweder weil das Objekt nicht existiert oder weil ein ungültiger Befehl ausgeführt wird.

2. Wie kann ich den Fehler dauerhaft beheben? Stelle sicher, dass alle Variablen korrekt gesetzt sind und dass du nur auf existierende Objekte zugreifst. Füge Debugging-Tools hinzu, um Probleme schnell zu identifizieren.

3. Gibt es spezielle Tools zur Fehlerdiagnose in Excel VBA? Ja, der VBA-Editor bietet Debugging-Tools wie den Direktbereich, Haltepunkte und Schritt-für-Schritt-Ausführung, die dir helfen können, Probleme zu identifizieren.

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