Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1672to1676
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
Inhaltsverzeichnis

Laufwerksbuchstaben auslesen beim öffnen

Laufwerksbuchstaben auslesen beim öffnen
14.02.2019 20:22:06
Tim
Guten Abend,
ich bin auf der Suche nach einem Makro welches mir beim öffnen der Tabelle, den Laufwerksbuchstaben ausliest, auf dem sich die Tabelle befindet. Folgenden Code habe ich mittels Google gefunden, jedoch bedingt dieser, das ich den Dateiname mitgebe:
Sub Laufwerksbuchstaben_finden()
Dim LW As String
Dim i As Long
For i = Asc("C") To Asc("Z")
LW = Chr(i)
If Dir(LW & ":\DeinPfad\DeineDatei.xls")  "" Then Exit For
Next
If i > Asc("Z") Then
MsgBox "Die Datei existiert nicht"
Else
MsgBox "Der Laufwerksbuchstabe ist " & LW
End If
End Sub
ich benötige nur den Laufwerksbuchstaben, mehr nicht, wer hat dafür eine Lösung?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufwerksbuchstaben auslesen beim öffnen
14.02.2019 20:41:27
Zwenn
Hallo Tim,
das ist ein Einzeiler. Hier mal als direkte Ausgabe in eine Message Box:
MsgBox Left(ThisWorkbook.path, 1)

Viele Grüße,
Zwenn
AW: Laufwerksbuchstaben auslesen beim öffnen
14.02.2019 20:52:26
Tim
Das es jetzt so einfachist hätte ich nicht gedacht,vielen Dank!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige