Range Problem
16.09.2006 19:31:27
Dirk
Ich habe ein, für Euch, kleines Problem.
In dem folgenden Makro erhalte ich in der Zeile 9 (fn = ...) immer einen Laufzeitfehler. Könnt Ihr mir sagen warum?
Hier das Makro:
Sub Test()
Dim fn As String
Dim Datei As Range
Dim Verz As String
Dim filter
Dim Schichten As Range
filter = "Excel Files (*.xls), *.xls"
Verz = "C:\Mein Verzeichnis"
fn = Sheets(1).Range("C11").Value & " " & Sheets(1).Range("C9").Value & " " & ".xls"
On Error Resume Next
ActiveWorkbook.SaveAs Filename:=Verz & fn
On Error GoTo 0
End Sub
Danke schon einmal im Voraus
Dirk L.
Anzeige