Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Prüfen ob Netzwerk vorhanden


Betrifft: Prüfen ob Netzwerk vorhanden von: sigrid
Geschrieben am: 01.10.2019 10:49:06

Guten Morgen zusammen,
endlich habe ich mal wieder was, ich bin mit der Frage an meine GRENZEN
gestoßen.
Ich habe mir dieses Makro zum direkten speichern auf den Rechner der
Kollegin erstellt:
If Environ("Username") = "Buchhalter" Then
strPath = "\\Buchhalter\D\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
End If
Die Speicherung läuft einwandfrei !!!

Ich würde gern zur Sicherung eine Prüfung vornehmen, wenn der Username nicht
erreichbar ist, soll die Datei auf meinem eigenen Rechner gespeichert werden.
strPath =D:\__Buchungen.Buchhaltung\__Fertige_Buchungen\

wie kann man feststellen ob Netzwerkname erreichbar bzw. aktiv ist ?

mfg
sigrid

  

Betrifft: AW: Prüfen ob Netzwerk vorhanden von: Daniel
Geschrieben am: 01.10.2019 11:13:43

Hi
vielleicht so

Sub test()
Dim checkPath As String
Dim strPath As String
strPath = "\\Buchhalter\D\__Buchungen.Buchhaltung\__Fertige_Buchungen"

checkPath = "xxx"
On Error Resume Next
checkPath = Dir(strPath, vbDirectory)
On Error GoTo 0

Select Case checkPath
    Case ""
        MsgBox "Laufwerk vorhanden, aber Ordner fehlt"
    Case "xxx"
        MsgBox "Laufwerk fehlt"
    Case Else
        MsgBox "Verzeichnis und Ordnerstruktur vorhanden"
End Select

End Sub
Gruß Daniel


  

Betrifft: AW: Prüfen ob Netzwerk vorhanden von: sigrid
Geschrieben am: 01.10.2019 14:10:31

Hallo Daniel,
hab wohl nicht Richtig verstanden.
Habe mal so eingesetzt, wobei der Rechner "w77" soll der
fremde Rechner sein.

Dim checkPath As String
Dim strPath

checkPath = "w77"
On Error Resume Next
checkPath = Dir(strPath, vbDirectory)
On Error GoTo 0
Select Case checkPath
Case ""
MsgBox "Laufwerk vorhanden, aber Ordner fehlt"
Case "w77"
MsgBox "Laufwerk fehlt, zur Sicherheit hier (eigener Rechner) speichern:"
strPath = "C:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
Case Else
MsgBox "Verzeichnis und Ordnerstruktur vorhanden"
strPath = "\\w77\D:\__Buchungen.Buchhaltung\__Fertige_Buchungen\"
End Select

mfg sigrid


  

Betrifft: Danke Daniel -) von: sigrid
Geschrieben am: 01.10.2019 14:44:17

Hallo Daniel,
habe es danke deines Makros hinbekommen !!!

mfg
sigrid


Beiträge aus dem Excel-Forum zum Thema "Prüfen ob Netzwerk vorhanden"