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
520to524
520to524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeitfehler 1004 bei SaveAs und vorhandener Dat

Forumthread: Laufzeitfehler 1004 bei SaveAs und vorhandener Dat

Laufzeitfehler 1004 bei SaveAs und vorhandener Dat
24.11.2004 03:00:54
Markus
Hallo,
habe da grad folgendes Problem:
'Anfang Auszug Hilfe
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName False
NewBook.SaveAs Filename:=fName
'Ende Auszug Hilfe
Wie kann ich den Laufzeitfehler 1004 abfangen, wenn es den Dateinamen schon gibt und ich bei der folgenden Abfrage "Nein" oder "Abbrechen" drücke? Ein Application.DisplayAlerts = False würde eine bestehende Datei überschreiben, was u.U. problematisch wäre.
Wie kann man im obigen Beispiel prüfen, ob die Datei existiert, bevor man speichert?
Dankeschön!
Gruß,
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler 1004 bei SaveAs und vorhandener Dat
Phil
Hallo Markus,
hier ein VBA zum prüfen ob eine Datei vorhanden ist.
Gruß,
Phil

Sub DateiVorhanden()
Dim xName As String
Dim xTitel, xTyp, xNachricht
xTitel = "Datei bereits vorhanden"
xTyp = vbOKCancel
xNachricht = "Die Datei ist Bereits vorhanden. Überschreiben?"
xName = "C:\DeineDatei.xls" 'Dein Pfad und Dateiname kommt hierhin
'Um zu prüfen, ob eine Datei nicht vorhanden ist, ändere "<>" in "=" um.
If Dir(xName) <> "" Then 'Wenn Datei bereits vorhanden..
Meldung = MsgBox(xNachricht, xTyp, xTitel) 'Zeige eine OK/Abbrechen Meldung an
If Meldung = 1 Then  'Wenn OK gklickt wird...
MsgBox ("Sie haben OK geklickt.") 'Mache an diese Stelle weiter mit deinem Programm, Meldung nur als Beispiel
ElseIf Meldung = 2 Then 'Wenn Abbrechen geklickt wird...
MsgBox ("Sie haben Abbrechen geklickt.") 'Zeige Meldung nur als Beispiel
Exit 


Sub 'Verarbeitung abbrechen
End If
End If
End Sub
Anzeige
AW: Laufzeitfehler 1004 bei SaveAs und vorhandener Dat
Markus
Hallo Phil,
vielen Dank für Deine Hilfe!
Gruß,
Markus
;

Forumthreads zu verwandten Themen

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
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
Anzeige
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
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
VBA - Laufzeitfehler '1004'
Lisa

Hallo,
hier findet ihr vorerst fürs bessere verständnis ein Bild des Problems:

Die Formel klappt leider nur für die Zeile 4, für jede andere kommt derselbe Laufzeitenfehler.
Schön wäre aber, wenn die Zeitreihenberechnung auch für alle Zeilen (2 bis unendlich) klappen würde!
...
26.06.2014 11:21:45
Thread-ID: 1367571
6 Beiträge
VBA - sverweis Laufzeitfehler 1004
Anja

Hallo zusammen,
ich versuche ein Makro zu schreiben, das mir einen sverweis automatisiert. Aber bei der Ausführung bekomme ich immer den Laufzeitfehler 1004. Als Anfänger bin ich am Ende meiner Überlegungen, warum der Code nicht läuft.
Ich würde mich freuen, wenn mir jemand einen Tipp...
16.07.2014 14:58:37
Thread-ID: 1370688
2 Beiträge
Pivot mit VBA: Laufzeitfehler 1004
kleinkatha

Hallo zusammen,
ich habe laut Microsoft-Hilfe und Einträgen hier aus dem Formum meiner Meinung nach alles richtig gemacht. (TableDestination:="") Trotzdem funktioniert der folgende Code nicht:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"general_report!...
04.08.2014 15:49:34
Thread-ID: 1374077
2 Beiträge
Anzeige
VBA: Laufzeitfehler 1004 bei "normaler" Sperrung
Hauser

Halli Hallo,
ich habe mit Excel 2010 ein Antragsformular erstellt, welches sich durch VBA an die Eingaben der Antragsteller anpasst
(je nachdem was gewählt/eingegeben wird werden Tabellenblätter ein- bzw. ausgeblendet usw.).
Diese Arbeitsmappen möchte ich nun für die Antragsteller...
15.04.2015 12:26:39
Thread-ID: 1420909
12 Beiträge
VBA mal wieder Laufzeitfehler 1004
MB12
Hallo zusammen,
bin dabei, alte Makros zu säubern und verbessern. An einer Kleinigkeit scheitere ich (siehe unten):
Option Explicit
Dim a As Integer
For a = 8 To 10 'Werte entnehmen aus Blatt "Inhalt"
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(a)
19.11.2016 15:01:36
Thread-ID: 1525771
3 Beiträge
VBA Laufzeitfehler 1004
Andrej

HallO!
Seit der Umstellung auf Office 2016 gibts nur Probleme.
Ich habe hier Ein Makro: Private Sub Excel_ausführen_Click() On Error GoTo Err_Excel_ausführen_Click Dim oApp As Object Dim pfad As String Dim pfad1 As String Dim objExcel As Object pfad = CurrentProject.Path pfad1 = pfad...
18.08.2017 10:47:07
Thread-ID: 1575086
4 Beiträge
Anzeige
VBA: Laufzeitfehler 1004
Joline

Guten Morgen ihr Lieben,
ich habe einen kleinen Code bei dem mir Excel seit heute morgen den Laufzeitfehler 1004 auswirft. Letzte Woche und in einer baugleichen Datei tritt der Fehler nicht auf. Ich bin etwas ratlos, was kann die Ursache sein? Der Fehler liegt laut Excel in der Zeile mit...
28.08.2017 11:01:44
Thread-ID: 1577029
7 Beiträge
VBA: Laufzeitfehler 1004
Fritz

Hallo Forumsbesucher,
vor einigen Tagen hat mir Case in diesem Forum nachfolgendes Makro geschrieben, mit dem ich das Tabellenblatt "Daten" in einer neuen Arbeitsmappe unter dem Dateinamen ergänzt durch das aktuelle Datum im gleichen Ordner sichere.
Nun ergibt sich ein Problem, wenn das...
15.10.2017 10:47:40
Thread-ID: 1585927
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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