Hallo,
ich möchte einen Bericht abspeichern, dessen Name sich aus Zelleninhalten zusammensetzt.
Das funktioniert auch alles soweit, nur löse ich das Speichern über einen Button aus, der im neuen Dokument nicht mehr sein darf.
Wie löse ich es am besten, das am Ende ein reines .xlsx Dokument ohne Hinweise auf dieses Makro übrig bleibt ?
Sub Error0()
Application.DisplayAlerts = False
End Sub
Sub Speichern()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "D:\"
datei = "Bericht " & Range("b2") & " " & Range("c2") & " " & Range("c3")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & datei
.Show
End With
If dialog <> False Then dialog.Execute
End Sub
Sub Error1()
Application.DisplayAlerts = True
End Sub
Ich muss dabei sagen, das ich mir das nur zusammenkopiert habe. Im Grunde steht mein VBA Wissen bei 0.
|