Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Netzwerkname prüfen

Netzwerkname prüfen
10.11.2019 16:56:09
sigrid
Guten Abend,
ich habe folge Zeilen gefunden:
Dim fs As Object<br><br>
Dim testdrive As String<br><br>
testdrive = "\\" & NetzN<br><br>
<br><br>
Set fs = CreateObject("Scripting.FileSystemObject")<br><br>
If fs.DriveExists(testdrive) Then<br><br>
MsgBox "Netzlaufwerk > existiert.", vbInformation, " Hinweis !"<br><br>
<br><br>
damit soll geprüft werden ob der Netzwerkname vorhanden ist.
Das dauert sehr lange und oben am Kopf erscheint "keine Rückmeldung"
Gibt es was schneller geht, meine Kollegen beenden immer die Datei, weil es so lange dauert.
mfg
sigrid

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Netzwerkname prüfen
10.11.2019 21:03:39
Oberschlumpf
Hi Sigrid,
versuch mal 

Sub sbNetDtrive()
Open ThisWorkbook.Path & "\netzlaufwerk.cmd" For Output As #1
Print #1, "net use"
Print #1, "pause"
Close
Shell ThisWorkbook.Path & "\netzlaufwerk.cmd", vbNormalFocus
MsgBox "Befehl ausgeführt"
Kill ThisWorkbook.Path & "\netzlaufwerk.cmd"
End Sub

Hilfts?
Ciao
Thorsten
P.S. sehe gerade, du nutzt Office "vor 2013".
Das las ich zuletzt bei Einigen, die nicht Windows, sondern MAC OS nutzen.
Nutzt auch du einen MAC?
Dann wird mein Code vllt nicht helfen, da es sich um Windows-Befehle handeln.
Du müsstest sie dann halt mit MAC-Befehlen korrigieren
Anzeige
AW: Netzwerkname prüfen
11.11.2019 08:40:16
sigrid
Guten Morgen Thorsten,
danke für die Unterstützung.
Bei soll aber geprüft werden ob ein bestimmter USER/Netzwerkname
aktiv ist.
Geprüft werden soll ob z.B. "sb7" Netzwerkname an ist !
Mein Makro dauert sehr lange.
mfg
sigrid
AW: Netzwerkname prüfen
11.11.2019 10:54:39
Oberschlumpf
Hi Sigrud
Hast du mein Makro denn getestet?
Es öffnet sich ein CMD-Fenster, und es werden alle Netzwerkverbindungen angezeigt. Mit dem Status, ob verfügbar oder nicht.
Oder gebt ihr die gesuchten Verbindungen immer per Hand ein?
Ciao Thorsten
Habe ich gemacht
11.11.2019 11:34:46
sigrid
Hallo Thorsten,
ich habe dein Makro ausgeführt, es kommt nur meine Netzwerkname.
Ich weiß nicht wo ich den Netzwerknamen "sb7" einsetzen soll.
mfg sigrid
Anzeige
AW: Habe ich gemacht
11.11.2019 11:39:42
sigrid
Hallo Thorsten,
habe den 2. Rechner gestartet, es kommt immer nur
die Info von meinem Rechner.
mfg
sigrid
AW: Habe ich gemacht
11.11.2019 12:03:09
Oberschlumpf
Hi Sigrid,
Mein Makro setzt voraus, dass die gesuchte Verbindung mit einem Laufwerksbuchstaben verknüpft ist.
Auf deinem Rechner werden deine Verknüpfungen angezeigt, audem Rechner eines deiner Kollegen werden dessen Laufwerksverknüpfungen angezeigt.
Alles, was ihr per Hand eingebt, wird mit meinem Makro nicht gezeigt.
Ciao Thorsten
Sorry versteh ich nicht
11.11.2019 12:26:38
sigrid
Hallo Thorsten,
ehrlich, ich versteh das Makro so nicht.
Dieses Makro funktioniert aber wenn der Netzwerkname/PC nicht aktiv ist
dauert es lange und dann kommt die Fehlermeldung: "keine Rückmeldung"
und dann kommt halt "existiert".
Wenn das alles so i.o. ist müssen wir dies halt so hinnehmen.
Sub drive_exists()
Dim fs As Object
Dim testdrive As String
testdrive = "\\sb7\f\"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.DriveExists(testdrive) Then
MsgBox "Netzlaufwerk > existiert."
'  fs.GetDrive (fs.GetDriveName(testdrive))
Else
MsgBox "Drive >" & testdrive & "
mfg sigrid
Anzeige
AW: Sorry versteh ich nicht
11.11.2019 12:56:43
Oberschlumpf
Hi,
DAS Makro ist nicht das Makro von mir.
Hast du MEIN Makro getestet?
Ciao
Thorsten
AW: Sorry versteh ich nicht
11.11.2019 18:02:48
Sigrid
Hallo Thorsten,
natürlich habe ich dein Makro getestet, habe auch geschrieben.
Das Makro ist gut aber zu langsam und mit der Meldung versehen anschließend
wird das Ergebnis angezeigt. Ist der Netzwerkname/PC vorhanden läuft
alles sehr schnell.
Mit freundlichen Grüßen
Sigrid
AW: Netzwerkname prüfen
11.11.2019 20:31:50
Oberschlumpf
Hi Sigrid,
ich hab das hier mal erstellt + getestet (zu Hause) 

Sub test()
Dim lstrPfad As String, lstrNetz As String
On Error GoTo fehler
lstrNetz = InputBox("Bitte gesuchte Netzwerkverbindung eingeben", "Suche", "\\Netzwerkname\ _
Ordnername")
lstrPfad = Dir(lstrNetz)
MsgBox "Netzwerkpfad " & vbCrLf & vbCrLf & lstrNetz & vbCrLf & vbCrLf & _
" ist erreichbar.", vbInformation, "Hinweis"
Exit Sub
fehler:
If Err.Number = 52 Then
MsgBox "Netzwerkpfad " & vbCrLf & vbCrLf & lstrNetz & vbCrLf & vbCrLf & _
" nicht erreichbar.", vbExclamation, "Hinweis"
Else
MsgBox "Es ist ein Fehler aufgetreten.", vbCritical, Err.Number & " - " & Err. _
Description
End If
End Sub

Bei mir zu Hause dauert es bei Nichterreichbarkeit nur wenige Sekunden, bis der Hinweis "nicht erreichbar" erscheint.
Auf Arbeit kann ich den Code nicht testen, weil zu wenig Zeit.
(ich vermute aber, dass es in meiner Firma noch weitere Sekunden dauern könnte, bis die Meldung "nicht erreichbar" erscheint.
Hilft das denn?
Ciao
Thorsten
Anzeige
AW: Netzwerkname prüfen
12.11.2019 09:50:57
sigrid
Guten Morgen Thorsten,
habe dein Makro getestet.
Die "\\sb7\f" die Dauer genau so lang wie bei meinem Beispiel.
Ohne Eingabe des Laufwerks klappt es auch nicht.
mfg
sigrid
Nachtrag...
12.11.2019 09:57:45
sigrid
Hallo,
es dauert 25 sekunden !
mfg
sigrid
Ich weiß nix mehr owT
12.11.2019 13:46:27
Oberschlumpf

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige