AW: Arbeitsmappen kopieren (Datum)
RALF
Moin,
habe das Thema nicht ganz verstanden....
soll aus der geöffneten Mappe ein Blatt (oder mehrere) kopiert werden oder soll eine leere Mappe mit dem entspr. Namen erstellt werden?
Sub n()
pfad = Application.GetSaveAsFilename
For i = Len(pfad) To 1 Step -1
If Mid(pfad, i, 1) = "\" Then
pfad = Left(pfad, i)
Exit For
End If
Next i
For Each zelle In [a1:a20]
If Not zelle = "" Then
datei = "Datei_vom_" & zelle
'wenn Tabelle1 in eine neue Arbeitsmappe kopiert werden soll
Sheets("Tabelle1").Copy
speichername = pfad & datei & ".xls"
ActiveWorkbook.SaveAs FileName:=speichername, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close (False)
ThisWorkbook.Activate
End If
Next zelle
End Sub
Gruß RALF