Pfad finden
18.01.2004 17:45:15
Roland
ich habe ein Workbook "Projekt" und ein Sheet in diesem Woorkbook mit dem Namen Projektbeschreibung. Nun möchte ich gerne das Arbeitsblatt "Projektbeschreibung" als Excel Datei mit einem Namen, der in Cells(3,2) steht in das gleiche Verteichnis speichern.
Dim sFile As String
Dim vAdr As Variant
vAdr = ?????
Worksheets("Projektbeschreibung").Select
ActiveWorkbook.Windows(1).SelectedSheets.Copy
sFile = Worksheets("Projektbeschreibung").Cells(3, 2).Value
If sFile = "" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs vAdr & sFile
Application.DisplayAlerts = True
Danke für die Hilfe
Roland