Speichern
05.09.2007 09:22:00
ganz
ich habe folgenden Code und möchte das die Datei unter drei namen gespeichert wird.
Die namen in C22 und A17 und A42.
es funktioniert im moment nur mit zwei namen, also in c22 und a17.(siehe unten)
wenn ich _
& "\" & ActiveSheet.Range("A42") hinzufüge, dann bekomme ich eine fehlermeldung.
was mache ich falsch?
kann mir da jemand helfen, das wäre sehr nett und danke im voraus
gruß
ralf
Sub speichernEil2()
If ActiveSheet.Range("C22") = "" Then
MsgBox "Zelle C22 darf nicht leer sein"
Exit Sub
End If
If ActiveSheet.Range("A17") = "" Then
MsgBox "Zelle A17 darf nicht leer sein"
Exit Sub
End If
Application.DisplayAlerts = False
ActiveSheet.Copy
Application.DisplayAlerts = True
With ActiveWorkbook
With ActiveSheet
.UsedRange.Formula = .UsedRange.Value
.Range(.Columns(9), .Columns(Columns.Count)).Delete
.Range(.Rows(102), .Rows(Rows.Count)).Delete
.PageSetup.FitToPagesWide = 1 ' nur weegen der Kontonummern nötig
End With
If Dir("C:\Eilantrag\" & ActiveSheet.Range("C22"), vbDirectory) = "" Then
MkDir ("C:\Eilantrag\" & ActiveSheet.Range("C22"))
End If
.SaveAs Filename:="C:\Eilantrag\" & ActiveSheet.Range("C22") _
& "\" & ActiveSheet.Range("A17") & ".xls"
.Close
End With
End Sub