Private Sub Workbook_Open
20.01.2005 09:31:36
Thomas
könnte mir evt. noch jemand in kurzen schritten beschreiben wo ich diese Daten eingeben muß, und wie ich an den sachen überhaupt rankomme ?
Wäre nett wenn mir das noch einmal jemand auflisten könnte die Vorgehensweise, da ich noch sehr neu und Frisch bin in dieser Materie.
Private Sub Workbook_Open()
Dim Dname As String
Dname = InputBox("Speichern als?")
If Dname <> "" Then
ActiveWorkbook.SaveAs FileName:="C:\Eigene Dateien\" & Dname & ".xls"
End Sub
Vielen Dank im vorraus
Gruß
Thomas
Anzeige