Laufzeitfehler "Objekt erforderlich"????
15.09.2003 13:18:40
marcel_d
Kann mir jemand sagen warum?
Danke,
Marcel
Sub Dokuplanungspeichern()
ActiveSheet.Copy
'Inbox zur Abfrage unter welchem Namen gespeichert werden soll
ID = InputBox("Bitte Geben Sie den Namen ein, unter dem dieses Registerblatt gespeichert werden soll:", "Speichern", "Name?")
If ID.Value = "" Then
Exit Sub
Else
ActiveWorkbook.SaveAs FileName:="Q:\blabla\blabla\Testordner\" & ActiveSheet.Name & "_" & ID & ".xls"
End If
End Sub