prüfen ob Datei vorhanden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Pruefen() Dim strFile As String, strFileNew As String strFile = "c:\temp\test.xls" strFileNew = "c:\temp\test_2.xls" If Dir(strFile) = "" Then 'MsgBox "Datei fehlt!" ActiveWorkbook.SaveAs strFile Else ActiveWorkbook.SaveAs strFileNew End If End Sub

Sub Pruefen() Dim strFile As String, strFileNew As String strFile = "C:\Users\test.xlsm" strFileNew = "C:\Users\test_2.xlsm" If Dir(strFile) = "" Then 'MsgBox "Datei fehlt!" ActiveWorkbook.SaveAs strFile Else If MsgBox("Datei vorhanden! Unter neuem Namen speichern?" & vbLf & "Neu Speichern?", _ vbYesNo) = vbYes Then ActiveWorkbook.SaveAs strFileNew Else Exit Sub End If End If End Sub

Hallo Torsten,
ich habe das Makro etwas umgeschrieben. Mir ist jedoch aufgefallen, dass Fehler wenn Inputbox nicht gefüllt ist.
Dann muss diese Input solange weiterlaufen, bis entweder Wert vorhanden oder Abbruch erfolgt.
Kannst Du mir hierbei bitte helfen.
<pre>Sub test_prüfen_speichern()
Dim strPfad As String
Dim strDokName As String
Dim strEndung As String
Dim strNeu As String
Dim strFile As String
Dim Eingabe As String
Dim strFile2 As String
strPfad = "C:\Users\Peter\Desktop\Neuer Ordner\Dokumente\"
strDokName = "Dok1" '& "_"
strEndung = ".docm"
strFile = strPfad & strDokName & strEndung
Debug.Print strFile
If Dir(strFile) = "" Then
'MsgBox "Datei fehlt!"
ActiveWorkbook.SaveAs strFile
Else
If Msgbox("Wollen Sie das Dokument mit neuem Namen speichern?", vbOKCancel, "Meldung1") = vbOK Then
Eingabe = Application.InputBox("Bitte den Namenzusatz eingeben")
'hier muss eine Wiederholung eingefügt werden, wenn "Eingabe" leer ist. Dies solange, bis Abbruch erfolgt oder Wert eingegeben wurde
strFile2 = strPfad & strDokName & "_" & Eingabe & strEndung
Debug.Print strFile2
ActiveWorkbook.SaveAs strFile2
Msgbox "OK - das Dokument wurde unter neuem Namen gespeichert"
Else
Msgbox "Abbruch - das Dokument wurde nicht gespeichert"
Exit Sub
End If
End If
End Sub</pre>
Gruss
Peter

Hallo Peter,
so?

Sub test_prüfen_speichern()
    Dim strPfad As String
    Dim strDokName As String
    Dim strEndung As String
    Dim strNeu As String
    Dim strFile As String
    Dim Eingabe As String
    Dim strFile2 As String

    strPfad = "C:\Users\Peter\Desktop\Neuer Ordner\Dokumente\"
    strDokName = "Dok1" '& "_"
    strEndung = ".docm"

    strFile = strPfad & strDokName & strEndung
    Debug.Print strFile

    If Dir(strFile) = "" Then
        'MsgBox "Datei fehlt!"
        ActiveWorkbook.SaveAs strFile
    Else

        If MsgBox("Wollen Sie das Dokument mit neuem Namen speichern?", vbOKCancel, "Meldung1") = vbOK Then

            Do

                Eingabe = InputBox("Bitte den Namenzusatz eingeben")

                If StrPtr(Eingabe) = 0 Then Exit Sub

            Loop While Eingabe = vbNullString

            strFile2 = strPfad & strDokName & "_" & Eingabe & strEndung
            Debug.Print strFile2


            ActiveWorkbook.SaveAs strFile2
            MsgBox "OK - das Dokument wurde unter neuem Namen gespeichert"
        Else
            MsgBox "Abbruch - das Dokument wurde nicht gespeichert"
            Exit Sub
        End If
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

prüfen ob Datei vorhanden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread