Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1764to1768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Was mache ich falsch?

Was mache ich falsch?
16.06.2020 15:54:21
Micha
Hallo liebe Spezialisten,
ich hoffe mal wieder auf Eure kompetente Unterstützung.
Ich benötige ein Makro für das Speichern Unter…
Dabei soll der Dateiname aus den Zellen einer Arbeitsmappe ausgelesen und der Speicherort vorgegeben werden.
Bei dem folgenden Code wird der Dateiname korrekt erstellt, und auch das korrekte Verzeichnis geöffnet,…aber leider wird die Datei nicht gespeichert. Es kommt auch keine Fehlermeldung.
Was mache ich falsch?
LG, Micha
Sub SpeichernUnterEntwurf()
Dim Dateiname As String
Dateiname = "Kalkulation " & ActiveWorkbook.Sheets("Übersicht").Range("C5") & "_" &  _
ActiveWorkbook.Sheets("Übersicht").Range("C6") & "_" & ActiveWorkbook.Sheets("Übersicht").Range( _
"C7") & " " & VBA.Environ("Username") & " " & Format(Now, "YYYY-MM-DD")
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\1-Anwender\3.1 Kalkulation\02_Entwurf\" & Dateiname
.Show
End With
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Was mache ich falsch?
16.06.2020 16:00:45
Nepumuk
Hallo Micha,
teste mal:
Public Sub SpeichernUnterEntwurf()
    Dim Dateiname As String
    With ThisWorkbook.Worksheets("Übersicht")
        Dateiname = "Kalkulation " & .Range("C5") & "_" & .Range("C6") & "_" & .Range("C7") & _
            " " & VBA.Environ("Username") & " " & Format$(Date, "YYYY-MM-DD")
    End With
    With Application.FileDialog(msoFileDialogSaveAs)
        
        .InitialFileName = "C:\1-Anwender\3.1 Kalkulation\02_Entwurf\" & Dateiname
        If .Show Then .Execute
        
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Was mache ich falsch?
16.06.2020 16:14:34
Micha
Boah, MEGA :-)
Jetzt klappts wie von Zauberhand!
Vielen, vielen lieben Dank Nepumuk.
Du hast mir den Tag gerettet.
Gruß, Micha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige