Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiname aus Zellen, als .xlsx speichern
 23.09.2018 12:36:43 Fantscha
NotSolved
23.09.2018 18:05:53 Flotter Feger
NotSolved
23.09.2018 18:59:03 Gast69008
NotSolved

Ansicht des Beitrags:
Von:
Fantscha		 Datum:
23.09.2018 12:36:43		 Views:
896		 Rating:
     
Antwort:
  Ja
Thema:
Dateiname aus Zellen, als .xlsx speichern

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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Dateiname aus Zellen, als .xlsx speichern
 23.09.2018 12:36:43 Fantscha
NotSolved
23.09.2018 18:05:53 Flotter Feger
NotSolved
23.09.2018 18:59:03 Gast69008
NotSolved