Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
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
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei nicht gefunden-Abbruchnachricht

Forumthread: Datei nicht gefunden-Abbruchnachricht

Datei nicht gefunden-Abbruchnachricht
23.03.2009 13:12:43
Rolf
Hallo Leute,
Ich habe untenstehendes Makro:

Private Sub CommandButton7_Click()
Dim Dateiname As String
Dateiname = InputBox("Bitte prüfen Sie den Namen der Referenzliste," & vbCr & "oder geben Sie  _
den richtigen Namen unten ein:" & vbCr & "(Bsp.: Referenzliste_für_Berichtmanager_27.08.08.xlt)", "LISTE LADEN", "Referenzliste_für_Berichtmanager_" & Date & ".xlt")
'FALLS ANWENDER AUF ABBRECHEN GEDRÜCKT HAT
If Dateiname = "" Then
strTxt = "Sie haben den Vorgang abgebrochen. Die Daten wurden nicht Importiert!"
MsgBox strTxt, vbCritical
Exit Sub
End If
ChDir _
"N:\Verkauf\Verkauf-Info\Referenzlisten\01_Referenzliste_ab_2000_Berichtmanager"
Workbooks.Open Filename:= _
"N:\Verkauf\Verkauf-Info\Referenzlisten\01_Referenzliste_ab_2000_Berichtmanager\" &  _
Dateiname
Cells.Select
Selection.Copy
Windows("Berichtmanager.xls").Activate
Cells.Select
ActiveSheet.Paste
Range("A2").Select
Windows("" & Dateiname & "").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub


Das funktioniert soweit. Main Problem liegt in der folgenden Situation:
Wird in das Inputfeld ein Name eingegeben, den es nicht gibt, bricht das Makro ab (Laufzeitfehler).
Wie kann ich das beheben?
Gruss
Rolf

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datei nicht gefunden-Abbruchnachricht
23.03.2009 13:18:32
Ramses
Hallo
....
If Dir(Workbooks.Open Filename:= "N:\Verkauf\Verkauf-Info\Referenzlisten\01_Referenzliste_ab_2000_Berichtmanager\" & Dateiname) = "" then
Msgbox "Datei existiert nicht"
Exit sub
Endif
Workbooks.Open ....
Warum nimmst du nicht den FileDialog (GetOpenFilename) wo der Anwender die Datei zum öffnen auswählen muss ? Das ist doch sicherer.
Gruss Rainer
Anzeige
AW: Datei nicht gefunden-Abbruchnachricht
23.03.2009 13:23:11
Rolf
Hi Ramses
Wäre natürlich schön mit GetOpenFilename!
Aber mit meinen bescheidenen VBA Kentnissen... Kannst du mir da noch ein klein wenig "auf den Sprung" helfen?
Danke vorerst
Rolf
AW: Datei nicht gefunden-Abbruchnachricht
23.03.2009 13:34:34
D.Saster
Hallo,
Ansatz:

Sub OpenFile()
Dim DateiName As String
With Application.FileDialog(3)
.AllowMultiSelect = False
.InitialFileName = "n:\test\*.xls"
.InitialView = 2
.Title = "Bitte Datei wählen"
If .Show = -1 Then
DateiName = .SelectedItems(1)
End If
End With
If DateiName = "" Then
MsgBox "Abbruch", , "Abbruch"
Exit Sub
End If
Workbooks.Open DateiName
End Sub


Gruß
Dierk

Anzeige
AW: Datei nicht gefunden-Abbruchnachricht
23.03.2009 14:02:30
Rolf
Hallo D. Saster
Damit kann ich arbeiten! Habe gearbeitet wie folgt:

Private Sub CommandButton7_Click()
Dim DateiName As String
With Application.FileDialog(3)
.AllowMultiSelect = False
.InitialFileName = "N:\Verkauf\Verkauf-Info\Referenzlisten\ _
01_Referenzliste_ab_2000_Berichtmanager"
.InitialView = 2
.Title = "LISTE LADEN"
If .Show = -1 Then
DateiName = .SelectedItems(1)
End If
End With
If DateiName = "" Then
strTxt = "Sie haben den Vorgang abgebrochen. Die Daten wurden nicht Importiert!"
MsgBox strTxt, vbCritical
Exit Sub
End If
Workbooks.Open DateiName
Cells.Select
Selection.Copy
Windows("Berichtmanager 2.0.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Windows("" & DateiName & "").Activate
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub


Ein Teil funktioniert noch nicht:
Windows("" & DateiName & "").Activate
Dort setzt er nun den gesamten Pfad ein. Ich bräuchte da aber nur den Namen der Datei, damit ich sie nach dem Kopieren automatisch schliessen kann. Oder gibt's da 'ne eleganteere Lösung?
Danke für die grosse Hilfe!
Rolf

Anzeige
AW: Datei nicht gefunden-Abbruchnachricht
23.03.2009 14:22:38
D.Saster
Hallo,
verzichte auf Select und Activate.

Private Sub CommandButton7_Click()
Dim DateiName As String, wkbListe As Workbook
Dim wksAktuell As Worksheet
Const strTxt = "Sie haben den Vorgang abgebrochen. Die Daten wurden nicht Importiert!"
Set wksAktuell = ActiveSheet
With Application.FileDialog(3)
.AllowMultiSelect = False
.InitialFileName = "N:\Verkauf\Verkauf-Info\Referenzlisten\ _
01_Referenzliste_ab_2000_Berichtmanager"
.InitialView = 2
.Title = "LISTE LADEN"
If .Show = -1 Then
DateiName = .SelectedItems(1)
End If
End With
If DateiName = "" Then
MsgBox strTxt, vbCritical
Exit Sub
End If
Set wkbListe = Workbooks.Open(DateiName)
Cells.Copy
wksAktuell.Cells.PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
wkbListe.Close False
End Sub


Gruß
Dierk

Anzeige
Und er leif durch die Strassen und rief "Heureka!"
23.03.2009 15:40:25
Rolf
Hallo Dierk
Entgegen deinem Alias funktioniert es. Danke für die Hilfe und das rausnehmen der Selects und Activates. (Ist, wie gedacht, die elegantere Lösung)
Also nochmals Merci und Gruss
Rolf
;

Forumthreads zu verwandten Themen

Datei wird nicht gefunden obwohl sie da ist
franc

Die Datei wird gefunden aber wenn es darum geht diese zu öffnen dann bringt er den Fehler das er die nicht gefunden hat ...
Das eigenartige ist, das es am Anfang funktionierte.
Sub skill() Dim varZeile As Variant, strDatei As String If Dir("C:\Dokumente und Einstellungen\Administrator...
30.04.2009 14:54:40
Thread-ID: 1072196
4 Beiträge
Verknüpfung - Datei nicht gefunden
Hans W. Herber
Hallo Damien,unter der folgenden Adresse findest Du ein Excel-AddIn zum Auffinden und Löschen von verlorenen und anderen Links:
https://www.herber.de/andere/findlink.zipStart über Menü EXTRAShans
15.04.2002 13:20:50
Thread-ID: 113398
2 Beiträge
Datei wird nicht gefunden
Dirk

Hallo Forumsmitglieder,
ich brauche dringend Hilfe bei folgendem Problem.
Folgender Code bereitet Probleme: Private Sub Workbook_Open() Workbooks.Open "L:\X-Arbeitsordner\LOG\Datenbank Zeitmessung.xls" End Sub Wenn ich mich an unserem Netzwerk in der Firma anmelde, und den oben aufgefü...
01.02.2010 10:31:00
Thread-ID: 1134732
3 Beiträge
Datei nicht gefunden
Heinz

Hallo Excelfreunde,
ich möchte per VBA eine pdf-Datei kopieren, die mit dem Adobe-PDF erzeugt wurde. Der Dateiname ist voreingestellt und ist immer derselbe (datei1 = C:\Daten\Excel\1Projekte\pdf-Dateien\Serienbrief.pdf). Daher möchte ich die Datei mit einem sinnvollen versehen.
Mit Fil...
17.02.2011 12:17:44
Thread-ID: 1201400
4 Beiträge
Datei wird nicht gefunden, obwohl existent
Markus

Guten Tag zusammen,
ich habe mir Folgendes Makro geschrieben, doch leider findet er die Datei nicht, obwohl sie in dem Ordner abgelegt ist. Datei ist Test.xls. Der Rest des Makros funktioniert so wie er soll.
Gruß Markus
Sub Test_finden() Dim Datei As String Datei = "Test" Pfad = "...
14.07.2013 14:12:53
Thread-ID: 1322346
3 Beiträge
Datei wird nicht gefunden, obwohl existent
Markus

Guten Tag zusammen,
ich habe mir Folgendes Makro geschrieben, doch leider findet er die Datei nicht, obwohl sie in dem Ordner abgelegt ist. Datei ist Test.xls. Der Rest des Makros funktioniert so wie er soll.
Gruß Markus
Sub Test_finden() Dim Datei As String Datei = "Test" Pfad = "...
14.07.2013 14:23:39
Thread-ID: 1322349
4 Beiträge
Kill Befehl Datei nicht gefunden VBA
Alex

Hallo allerseits,
Leute, ich werd gleich waaaaahnsinnig! Ich habe in der Recherche folgenden Code aufgetan:
Sub Send_Mail_mit_irgendwas() 'by Ramses Dim strRec As String, strSend As String Dim mypath As String mypath = Application.ActiveWorkbook.Path strRec = "" 'oder Empfänger aus eine...
25.08.2014 20:23:34
Thread-ID: 1378136
3 Beiträge
Datei nicht gefunden - Error Handling
Patrick

Hallo,
ich habe dieses Makro, das in einem Ordner Dateien durchgeht und gewisse Daten aus dieser zieht und sie in das aktuelle Wroksheet kopiert.
Funktioniert auch einwandfrei. Jedoch möchte ich gerne die Fehlermeldung "Datei nicht gefunden" unterdrücken, falls eine Datei nicht gefunden...
14.11.2014 10:51:23
Thread-ID: 1392349
3 Beiträge
XLA Datei Commandbar einige Makros nicht gefunden
Klaus

Hallo,
ich habe mir eine XLA Datei erstellt. Diese enthält diverse Makros. Unter anderem baut sie auch beim Excelstart eine eigene Commandbar auf. Während einige der den Buttons zugewiesenen Makros anstandslos laufen, werden andere angeblich nicht gefunden. Sobald ein Makro einen Fehler ver...
10.02.2016 14:31:13
Thread-ID: 1474533
2 Beiträge
VBA6.DLL - Datei nicht gefunden
Herbert

hallo,
hab in einer Datei ca. 10 Makros mit dem Makrorekorder erstellt. 9 funktionieren, beim 10 kommt die Meldung: Datei nicht gefunden: VBA6.DLL
Kann mir jemand weiterhelfen. Vielen Dank im voraus.
Herbert
13.02.2016 20:16:53
Thread-ID: 1475261
3 Beiträge
Datei nicht gefunden, aber eigentlich doch
sivcam

Hallo liebes Forum,
Jetzt bin ich mal wieder etwas ratlos und finde keinen passenden Eintrag im Forum. Mein Problem: ich habe eine Fehlermeldung in einem Excelblatt mit VBA-Code, die ab und zu auftaucht und ab und zu nicht. Ohne, dass sich was ändert.
Mein Code: Wir teilen mit mehreren...
07.11.2016 09:00:07
Thread-ID: 1523408
2 Beiträge
Anzeige
Datei nicht gefunden!
Max2

Hallo Leute,
ich weiß das ist hier ein Excel Forum aber folgender Code ist
übergreifend.
In einem Dokument habe ich im Document_Open Sub
folgendes stehen: Application.Visible = False UserForm1.Show Call Application.OnTime(When:=Now, Name:="CloseMe")
Public Sub CloseMe()...
03.02.2017 12:59:30
Thread-ID: 1539226
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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