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
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
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
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
er möchte ein NEUES File erstellen, also nix mit ActiveWorkbook.
Gruß
Micha
Ich hätte nicht gedacht, dass mein Problemchen
so schnell gelöst wird.
Remo