Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei neu erzeugen mit VBA

Datei neu erzeugen mit VBA
15.09.2003 21:39:29
Enrico
Hallo Zusammen,

seit gegrüßt, ich habe ein Problem:
Ich möchte gern aus Excel per VBA eine neue Datei erzeugen mit einem per Code festlegbaren Dateinamen.

Wer kann mir da weiterhelfen.
Vielen Dank.

Gruß Enrico

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

Betreff
Datum
Anwender
Anzeige
AW: Datei neu erzeugen mit VBA
15.09.2003 22:28:59
Beni
Hallo Enrico,
die Beispiel kopiert das aktuelle Blatt in eine neue Datei,
musst nur Pfad anpassen.
Gruss Beni


Sub Blattspeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = "d:\daten\Offerten\2003\" 'Pfad anpassen
Dim Default
sWks = "Offerte" 'Blattname anpassen
'prompt = "Blattname"
'Default = InputBox(sWks, prompt)
If sWks = "" Then Exit Sub
Titel = "InputBox"
Mldg = "Dateiname eingeben"
sFile = InputBox(Mldg, Titel)
prompt = "Blattname"
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Datei neu erzeugen mit VBA
15.09.2003 22:47:48
Enrico
Danke, werd mal sehen was ich draus machen kann.

Gruß Enrico

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige