Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1796to1800
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige