Microsoft Excel

Herbers Excel/VBA-Archiv

Speichern unter

Betrifft: Speichern unter
von: Remo
Geschrieben am: 23.04.2003 - 09:27:39

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

  

Re: Speichern unter
von: Michawl Scheffler
Geschrieben am: 23.04.2003 - 09:32:17

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

  

Re: Speichern unter
von: Stefan
Geschrieben am: 23.04.2003 - 09:33:41

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
von: Michael Scheffler
Geschrieben am: 23.04.2003 - 09:36:15

Hi,

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

Gruß

Micha

  

Re: @Stefan
von: Stefan
Geschrieben am: 23.04.2003 - 09:52:05

stimmt ... 'tschuldigung

  

Re: Speichern unter
von: Remo
Geschrieben am: 23.04.2003 - 09:55:55

Vielen Dank.

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

Remo

 

Beiträge aus den Excel-Beispielen zum Thema "Speichern unter"