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

Speichern unter

Speichern unter
23.04.2003 09:27:39
Remo
Hallo ihr Freaks!

Bereits am Morgen plagen mich Sorgen.
Ich möchte mit einem Makro ein neues File
generieren. Der Dateiname wird in einer anderen
Datei in Zelle A1 festgelegt.
Weiss jemand wie das möglich ist?

Gruss Remo

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

Betreff
Datum
Anwender
Anzeige
Re: Speichern unter
23.04.2003 09:32:17
Michawl Scheffler

Hallo Remo,

warum zeichnest Du Dir das nicht auf?

Da bekommst Du das und das musst Du nur noch anpassen.

Sub Makro1()
'
' Makro1 Makro
' Makro am 23.04.2003 von Michael Scheffler aufgezeichnet
'

'
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="D:\test.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub


Option Explicit

Sub NeuesWorkbook()
Dim varName As Variant
varName = Cells(1, 1).Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=varName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
ActiveCell.FormulaR1C1 = "=remo"
Range("A1").Select
ActiveCell.FormulaR1C1 = "remo"
Range("A2").Select
End Sub

Anzeige
Re: Speichern unter
23.04.2003 09:33:41
Stefan

Hallo Remo,

etwa so:


Dim Dateiname as string
Dateiname = Range("A1")
Activeworkbook.SaveAs ("C:\blabla\" & Dateiname)


Anmerkung:
Der Dateiname in der Zelle A1 muss mit .xls enden,
ansonsten muss die letzte Zeile lauten:

Activeworkbook.SaveAs ("C:\blabla\" & Dateiname & ".xls")

Gruß

Stefan



@Stefan
23.04.2003 09:36:15
Michael Scheffler

Hi,

er möchte ein NEUES File erstellen, also nix mit ActiveWorkbook.

Gruß

Micha

Re: @Stefan
23.04.2003 09:52:05
Stefan

stimmt ... 'tschuldigung

Re: Speichern unter
23.04.2003 09:55:55
Remo

Vielen Dank.

Ich hätte nicht gedacht, dass mein Problemchen
so schnell gelöst wird.

Remo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige