Fehlermeldung-Debuggen
03.05.2006 08:49:40
Susi
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