Netzlaufwerkproblem dann lokal speichern

Forumthread: Netzlaufwerkproblem dann lokal speichern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Netzlaufwerkproblem dann lokal speichern

08.10.2005 00:22:39

Andre

Hallo alle zusammen,
mit hilfe eines Makros werden von verschiedenen User Dateien auf dem Netzlaufwerk (G:)gespeicher. Nun ist es oft vorgekommen, dass es Probleme mit dem Netz gab. Für diesen Fall möchte ich eine Abfrage einbauen: prüfe ob die Datei auf (G:) gespeichert werden kann, wenn nicht Meldung:Probleme mit Netzlaufwerk G:nach bestätigen soll die Datei lokal auf C: gespeichert werden.
Hat jemand eine Idee.
MFG
Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Netzlaufwerkproblem dann lokal speichern

08.10.2005 01:27:19

Ramses
Vielen DANK! Funktioniert prima

08.10.2005 02:25:14

Andre

AW: Netzlaufwerkproblem dann lokal speichern

08.10.2005 01:27:19

Ramses

Hallo
probiers mal so

Sub test()
    Dim Qe As Integer
    On Error GoTo myDrvErrorHandler
    ActiveWorkbook.SaveAs "K:\Muster.xls"

    ErrorExit:
    Exit Sub

    myDrvErrorHandler:
    Select Case Err.Number
        Case 1004
            Qe = MsgBox("Das Laufwerk steht nicht zur Verfügung." & vbCrLf & _
                "Möchten Sie eine lokale Kopie erstellen ?", vbCritical + vbYesNo, "Laufwerkfehler")
            If Qe = vbYes Then
                ActiveWorkbook.SaveAs Application.DefaultFilePath & "\" & ActiveWorkbook.Name
            End If
        Case Else
            MsgBox Err.Number & "; " & Err.Description
    End Select
    Resume ErrorExit
End Sub

Gruss Rainer

Vielen DANK! Funktioniert prima

08.10.2005 02:25:14

Andre

Hallo Reiner,
nochmals Dank für deine Antwort.
Ich wünsche dir ein schönes Wochenende
MFG
Andre