Speicherfunktion will icht so wie ich will
15.11.2004 14:10:50
Mike
folgender VBA Code funktioniert nicht... ich habe die if eingefügt, damit er auf Cancel den Speichervorgang wirklich abbricht bzw. bei OK die Speicherung auch richtig durchführt... das Problem ist das sName anscheinend automatisch gelehrt wird, wenn ein anderer Pfad eingetragen wird. kann da jemand helfen?
----------------------------------------------------------------------------
sName = "C:\Program Files\New Folder\" & Cells(1, 1).Value & " - Calc " & "- " & Year(Now) & " - " & Cells(7, 3).Value & ".xls"
If sName = InputBox(prompt:="Bitte Dateipfad und Name angeben (Standardpfad ist C:\Program Files\New Folder\)", _
Default:=sName) False Then
If sName = "" Then sName = "C:\Program Files\Workload Pricer V7.2\" & Cells(1, 1).Value & " - Calc " & "- " & Year(Now) & " - " & Cells(7, 3).Value & ".xls"
Application.DisplayAlerts = True
ActiveWorkbook.SaveAs sName
----------------------------------------------------------------------------
Dankeschön vorab.