Datei nicht gefunden-Abbruchnachricht

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Beliebteste Forumthreads (12 Monate)

Datei nicht gefunden-Abbruchnachricht

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei nicht gefunden-Abbruchnachricht

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

36 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread