Speicherort per VBA auswählen
Bernie Brummbär
Zunächst einmal ein fröhliches Hallo an all die Menschen, die hier ihre Hilfe bei diversen Excel Problemen anbieten.
Ich habe folgendes Problem:
Es soll eine Datei (Datenerfassung) durch Auswahl eines Speicherortes per VBA-Makro dann dort auch gespeichert werden (zur weiteren Verarbeitung).
Hört sich erst einmal nicht problematisch an. Habe dazu auch eine „halbe“ Lösung im Netz gefunden (mit GetExcelFolder).
Da meine VBA-Kenntnisse nur sehr oberflächlich sind, sie beschränken sich auf den Einsatz vom Makrorekorder und der Suche nach Lösungen im Netz und den Versuchen diese an meine Bedürfnisse anzupassen, gelingt es mir nicht, den gewählten Ort als Speicherpfad zu übernehmen und die Datei dort zu speichern.
Den Code für die “Halbelösung“ habe ich angefügt.
Es wäre toll, wenn mir Jemand helfen könnte.
Besten Dank im Voraus
Bernie Brummbär
hier der Code:
Public Function GetExcelfolder() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Title = "Bitte Ordner wählen"
.InitialFileName = ""
.InitialView = msoFileDialogViewThumbnail
.ButtonName = "OK"
If .Show = -1 Then
GetExcelfolder = .SelectedItems(1)
End If
End With
End Function
Sub Speicherpfadauslesen()
Dim MyPath As String
Dim Pfad As String
'MsgBox GetExcelfolder zeigt mir den gewählten Speicherort an
'hier jetzt Speicherung im Netz ausführen (Codeeingabe)
MyPath = GetExcelfolder & "\"
'ThisWorkbook.SaveAs "TestLauf.xlsm" funktioniert so nicht, führt zur Speicherung in Standardordner Dokumente
End Sub