Mit VBA Datei speichern
08.09.2021 18:09:02
Andreas
wollte gerne eine Makro haben, dass mir in den Zielpfad die Datei speichert.
Der Name der Datei soll gleich sein wie in dem Feld K9 in dem Tabellenblatt "DQ".
Das will aber nicht so richtig funktionieren. Weiß einer was ich falsch mache?
Am besten wäre es noch, wenn man darauf hingewiesen wird, falls der Dateiname so schon existiert.
Vielen Dank vorab
Gruß Andreas
Sub SpeichernIn()
Dim sPfad$, sFileName$
On Error GoTo ende
sPfad = "X:\Eigene Dateien\"
With Sheets("DQ")
If .[L1] = "" Then
sFileName = .[K9]
Else
sFileName = .[K9]
End If
End Sub
Anzeige