Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abspeichern mit Makro

Forumthread: Abspeichern mit Makro

Abspeichern mit Makro
29.11.2020 18:03:57
Johannes
Hallo und Guten Abend
habe im Register Rechnungsschreiben ein AktiveX Steuerelement erstellt mit den Namen ( Rechnung ablegen in Ordner )
nun sollte wenn ich auf drücke das Register umbenannt werden mit den Namen wo in Zelle B8 steht und mit dem Namen auch abgespeichert werden in einen Ordner meiner Wahl
Liste
https://www.herber.de/bbs/user/141933.xlsm
Ordner
\\Ls-wxl8ad\wmv\Rechnungen\2020
Johannes
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abspeichern mit Makro
29.11.2020 19:45:57
Nepumuk
Hallo Johannes,
teste mal:
Private Sub CommandButton2_Click()
    
    Dim objFileDialog As FileDialog
    Dim strPath As String, strName As String
    
    strName = Range("B9").Text
    
    Set objFileDialog = Application.FileDialog(fileDialogType:=msoFileDialogSaveAs)
    
    With objFileDialog
        
        .FilterIndex = 1
        .InitialFileName = "\\Ls-wxl8ad\wmv\Rechnungen\2020\" & strName
        If .Show Then strPath = .SelectedItems(1)
        
    End With
    
    Set objFileDialog = Nothing
    
    If strPath <> vbNullString Then
        
        Copy
        
        ActiveSheet.Name = strName
        
        Application.DisplayAlerts = False
        Call ActiveWorkbook.SaveAs(Filename:=strPath, FileFormat:=xlOpenXMLWorkbook)
        Application.DisplayAlerts = True
        Call ActiveWorkbook.Close
        
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Abspeichern mit Makro
29.11.2020 19:57:50
Johannes
Hallo Nepumuk,
Fehler
Userbild
Johannes
AW: Abspeichern mit Makro
29.11.2020 20:00:55
Nepumuk
Hallo Johannes,
na dann lösch die eine Prozedur.
Gruß
Nepumuk
AW: Abspeichern mit Makro
29.11.2020 21:37:36
Johannes
gelöscht ist die Prozedur
vielleicht kann mir ein andere Helfen
Johannes
Anzeige
AW: Abspeichern mit Makro
29.11.2020 21:46:15
Johannes
Hi Nepumuk,
fehler lag bei mir alles gut passt perfekt ich habe den Wert CommandButton2_Click schon mal verwendet
hab den gelöscht und jetzt geht es perfekt supi an dich Nepumuk
Liebe Grüße und bleib gesund
Johannes
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige