Application.Dialogs(xlDialogSaveAs).Show ("Testmappe.xlsx")
Option Explicit ' Variablendefinition erforderlich
Function GetAOrdner2() As String
If BoFehler Then On Error GoTo Errorhandler1 ' Fehlerbehandlung Add-in ein
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
If Right(.SelectedItems(1), 1) = "\" Then
GetAOrdner2 = .SelectedItems(1)
Else
GetAOrdner2 = .SelectedItems(1) & "\"
End If
Else
GetAOrdner2 = ""
End If
End With
Exit Function ' Funktion ohne Fehlerbehandlung verlassen
Errorhandler1: ' Sprungmarke Fehlerbehandlung Add-In
Fehlerbehandlung 1, 167 ' Fehlerbehandlung Add-in
End Function
Sub StartVerzeichnis()
MsgBox GetAOrdner2
End Sub
Sub til()
Dim strDrive As String
strDrive = InputBox("Bitte Laufwerk eingeben", "Welches Laufwerk?", "C")
If Dir(strDrive & ":") "" Then
MsgBox "jetzt wird gespeichert"
Else
MsgBox "Laufwerk nicht vorhanden"
End If
End Sub