ich komme mal wieder nicht weiter. Ich habe ein Makro zusammengebastelt, welches am Ende mein Tabelenblatt als CSV-File abspeichern soll. Das machts aber nicht. Es kommt aber auch keine Fehlermeldung!? Ich komme ohne Hilfe nicht weiter...
Hier mein VBA-Code:
Save:
Dim FName$, PName$
FName = InputBox("Filename?")
If FName = "" Then Exit Sub
PName = Pfad & "\" & FName & ".csv"
Sav = MsgBox("Speichern unter " & PName & " ?", vbYesNo + vbInformation)
If Sav = vbNo Then Exit Sub
If Ant = vbYes Then
On Error GoTo Errors
Application.DisplayAlerts = False
Sheets("Aktuell").Select
ActiveSheet.SaveAs (PName), FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close
End If
MsgBox ("Speichern CSV erfolgreich!!!")
Exit Sub
Wie gesagt, die Messagebox erscheint, aber gespeichert wurde nix!
Viele Grüsse
Muck