Fehlermeldung-Debuggen

Forumthread: Fehlermeldung-Debuggen

03.05.2006 08:49:40

Susi

Hallo miteinander,
könntet Ihr mir bitte noch einmal helfen,
beim unten genannten Code tritt eine Fehlermeldung (debuggen) auf
wenn das Verzeichniss bereits besteht, was auch ok wäre,
nur das mit dem "Debuggen" sollte durch eine Fehlermeldung (MSGBOX)
ersetzt werden.


Private Sub CommandButton1_Click()
Dim Bereich As Range
Dim ff As Integer
Set Bereich = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7)) 'Datenbereich in gewählter Zeile
'Verzeichnis erstellen
MkDir ("D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value)
'Txt-Datei anlegen
Dateiname = "D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value & "\" & Bereich(1, 1) & ".txt"
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Bereich(1, 6).Value
Close #ff
End Sub

Viele Grüsse
Susi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehlermeldung-Debuggen

03.05.2006 09:38:44

u_
AW: Fehlermeldung-Debuggen

03.05.2006 09:53:15

Susi
AW: Fehlermeldung-Debuggen

03.05.2006 10:02:32

u_
AW: Fehlermeldung-Debuggen

03.05.2006 10:09:20

Susi

AW: Fehlermeldung-Debuggen

03.05.2006 09:38:44

Hallo,
frage vorher ab ob das Verzeichnis besteht.


Private Sub CommandButton1_Click()
Dim Bereich As Range
Dim ff As Integer
Set Bereich = Range(Cells(Selection.Row, 1), Cells(Selection.Row, 7)) 'Datenbereich in gewählter Zeile
'Verzeichnis erstellen
If Dir("D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value, vbDirectory) = "" Then
MkDir ("D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value)
End If
'Txt-Datei anlegen
Dateiname = "D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value & "\" & Bereich(1, 1) & ".txt"
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Bereich(1, 6).Value
Close #ff
End Sub

Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

AW: Fehlermeldung-Debuggen

03.05.2006 09:53:15

Susi

Hallo u_
dies funktioniert wunderbar, doch beim versehentlichen anlegen eines gleichen
Verzeichnisses wird dieses überschrieben, was nicht sein darf.
Vielen Dank
Susi

AW: Fehlermeldung-Debuggen

03.05.2006 10:02:32

Hallo,
Verzeichnis wird nicht überschrieben, nur die .txt
Wenn das auch nicht sein darf:
Dateiname = "D:\C-Programme\Q-U\DSR\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value & "\" & Bereich(1, 1) & ".txt"
If Dir(Dateiname)="" then
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Bereich(1, 6).Value
Close #ff
end if
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)

AW: Fehlermeldung-Debuggen

03.05.2006 10:09:20

Susi

Hallo u_,
vielen Dank für deine Hilfe, so sollte es sein.
Einen schönen Tag wünscht Dir
Susi

Beliebteste Forumthreads (12 Monate)

Forumthread: Fehlermeldung-Debuggen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread