Warum wird nicht Datei erstellt ?

Forumthread: Warum wird nicht Datei erstellt ?

04.04.2006 13:14:39

walter

Hallo Zusammen,
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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Warum wird nicht Datei erstellt ?

04.04.2006 13:20:04

u_
Hallo U... Danke für..

04.04.2006 14:39:04

walter
AW: Warum wird nicht Datei erstellt ?

04.04.2006 13:30:27

UweD
Ja noch

04.04.2006 13:46:20

walter
AW: Ja noch

04.04.2006 14:19:06

UweD
Danke

04.04.2006 14:38:12

walter

AW: Warum wird nicht Datei erstellt ?

04.04.2006 13:20:04

Hallo,
das muss
If Dir(DateiNam, 16) = "" Then
heißen
Gruß
Geist ist geil!

Hallo U... Danke für..

04.04.2006 14:39:04

walter

Hallo U,
Danke für den Hinweis,
gruß Walter

AW: Warum wird nicht Datei erstellt ?

04.04.2006 13:30:27

UweD

Hallo Walter
es sind mehrere Fehler vorhanden.
- Dir(xx,16) (16 = Verzeichnis vorhanden?)
- wenn dir() ="", dann ist die Datei nicht da "" dann ist sie vorhanden.
- Der Pfad fehlt noch
der Name eines geöffneten Workbooks kannst du nicht ändern, sondern nur "durch speichern unter"
so läuft es


Sub cc()
Dim DateiNam$, Pfad$
Pfad = "C:\temp\"
DateiNam = "Muster.xls"
If Dir(Pfad & DateiNam) = "" Then
MsgBox "Datei '" & DateiNam & "' ist noch nicht vorhanden ! " & Chr(13) _
& vbCr & "Datei wird jetzt neu erstellt !" & Chr(13), vbCritical
Workbooks.Add
ActiveWorkbook.SaveAs DateiNam
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)

Ja noch

04.04.2006 13:46:20

walter

Hallo Uwe,
ja so funktioniert es.
Wie kann ich die vorhandenen Sheets 1-3 den Löschen, brauch ich nicht, da ich eine
Sheet aus einer anderen Mappe kopiere.
Gruß WalterK

AW: Ja noch

04.04.2006 14:19:06

UweD

Hallo
ich kann nicht genau sagen, wo du es einbauen mußt. Muß auf jeden Fall NACH dem Kopievorgang.
dann so weiter...


Sh = "Tabelle1" 'Name des kopierten Blattes
For J = 1 To Sheets.Count
If Sheets(J).Name <> Sh Then
Application.DisplayAlerts = False
Sheets(J).Delete
Application.DisplayAlerts = True
End If
Next
'..

danach speichern usw..
Gruß UweD
(Rückmeldung wäre schön)

Danke

04.04.2006 14:38:12

walter

Hallo Uwe,
Danke für die Unterstützung,
mfg Walter

Beliebteste Forumthreads (12 Monate)

Warum wird nicht Datei erstellt ?

Forumthread: Warum wird nicht Datei erstellt ?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread