Warum wird nicht Datei erstellt ?
04.04.2006 13:14:39
walter
warum klappt das nicht die datei zu erstellen, wenn Diese nicht vothanden ist ?
Dim DateiNam As String
DateiNam = "Muster.xls"
If Dir(DateiNam, 16) "" Then
MsgBox "Datei '" & DateiNam & "' ist noch nicht vorhanden ! " & Chr(13) _
& vbCr & "Datei wird jetzt neu erstellt !" & Chr(13), vbCritical
Workbooks.Add
Workbooks.Name = DateiNam
End If
Gruß WalterK