Ich habe eine Datei in der ich das erste Tabellenblatt per Makro in eine neue Datei ausgeben kann. Soweit so gut. Die Datei bekommt auch einen Dateinamen zugewiesen. Der Quellcode folgt unten. Ist es jetzt irgendwie möglich ihm zu sagen, dass er gucken soll ob die Datei vorhanden ist? Wenn ja soll er sie öffnen, wenn nein, soll er die Datei neu anlegen. Wie mach ich das?
Danke für die Hilfe
Mark
Quellcode - Ich hoffe ihr steigt durch...:
Sub externalDataOutput()
Application.ScreenUpdating = False
Workbooks.Add
ChDir "C:\Temp"
Dim Dateiname As String
Dateiname = _
Workbooks("Test.xls").Worksheets("Helptable").Cells(3, 2).Value & _
" vom " & _
Workbooks("Test.xls").Worksheets("Zwischenablage").Cells
(3,3).Value & _".xls"
ActiveWorkbook.SaveAs Filename:="C:\Temp\" & Dateiname & ".xls",
FileFormat:=xlNormal _
, Password:=test, WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Windows("Test.xls").Activate
Cells.Select
Selection.Copy
Windows(Dateiname).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
Windows(Dateiname).Activate
Application.CutCopyMode = False
Windows("Test.xls").Activate
Selection.Copy
Windows(Dateiname).Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Windows("Test.xls").Activate
Range("A1").Select
Windows(Dateiname).Activate
Range("A1").Select
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub