Kann man ein zusätzlich individuell angelegtes Menü speichern, sodaß man dieses auf einen anderen Rechner übertragen kann?
Danke im vorraus,
Ralf-Eckhard
Sub Such_xlb()
If Dir(Environ("Userprofile") & "\Anwendungsdaten\Microsoft\Excel\Excel" & Int(Val(Application.Version)) & ".xlb") = "" Then
MsgBox ("Die Datei: Excel" & Int(Val(Application.Version)) & ".xlb ist nicht im vorgesehenen Verzeichnis:" & Chr$(13) & _
Environ("Userprofile") & "\Anwendungsdaten\Microsoft\Excel")
Else
MsgBox "Die Datei liegt im Verzeichnis: " & Environ("Userprofile") & "\Anwendungsdaten\Microsoft\Excel"
End If
End Sub