vielleicht könnt Ihr mir weiterhelfen.
Folgender Ablauf:
Button (Datei speichern) - Inputbox (Dateinamen eintragen) - Dialogfeld Ordnerauswahl ( Ordner auswählen, ggf. Ordner erstellen ) - Datei als Tabstopp-getrennt mit Dateiendung ".tsv" speichern.
Sub Liste_speichern()
Dim DateiName As String
Dim AppShell As Object
Dim BrowseDir As Variant
Application.ScreenUpdating = False
ActiveSheet.Copy
DateiName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
pfad = BrowseDir.items().Item().Path
If pfad = "" Then Exit Sub
On Error GoTo 0
ActiveWorkbook.SaveAs Filename:="Dateiname" & " " & Format(Now, "dd_mm_yy") & ".tsv", _
FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
MsgBox "Datei wurde gespeichert !", vbibformation
End Sub
Das Makro bringt keinen Fehler...doch speichern tut es auch nichts.
Wo liegt der Fehler?
Vielen Dank schon im Voraus für Eure Mühe.
Gruß
Marco