Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro erweitern...

Makro erweitern...
10.10.2002 12:16:20
Friedl G.
Hallo Forum

Jemand von euch hat mir bei der Erstellung folgenden Makros geholfen, und jetzt möchte ich, dass beim "Speichern unter..." gleich der Dateiname aus den Zellen A12,E18,F18,G18 - Mit Unterstrichen dazwischen gespeichert wird.

Mein Makro:
Option Explicit
Sub DateiSpeichernUnter()
Dim DName As String
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=DName
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Vorlagen\Rechnung_Neu.xls"
ThisWorkbook.Close False
End Sub

Als VBA-anfänger für mich (noch) nicht lösbar...

Danke für eure Hilfe
Friedl

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry - Falsches Makro
10.10.2002 12:20:22
Friedl G.
Option Explicit
Sub RechnungSpeichernUnter()
handelt sich um's Worksheet....

Dim DName As String, aktDir As String
aktDir = CurDir 'ggf. löschen**********************
ChDir "C:\Dokumente und Einstellungen\FGruber\Eigene Dateien\Backstage\Ausgangs Rechnungen"
ActiveSheet.Copy
DName = Application.GetSaveAsFilename( _
fileFilter:="EXCEL Arbeitsmappe (*.xls), *.xls")
ChDir aktDir 'ggf. löschen**********************
ActiveWorkbook.Close
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige