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?