Re:Workbook über aktive Zelle umbenennen
02.12.2002 17:10:30
Ant
!!! Brauche trotzdem noch Eure Hilfe !!!
Weiß noch nicht wie sich der Name der Datei dann auch automatisch in der Makro abändern kann. Wie gesagt >This Workbook< funktioniert nicht, da zur gleichen Zeit mehrere Exceldateien geöffnet sind.
mfg ant
Dim datname As String
datname = Cells(1, 2)
Do
fName = Application.GetSaveAsFilename(InitialFilename:="D:\Eigene Dateien\" & datname, _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Loop Until fName <> False
ActiveWorkbook.SaveAs Filename:=fName