Code Textübergabe

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("C:\V1\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value, vbDirectory) = "" Then
MkDir ("C:\V1\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value)
End If
'Txt-Datei anlegen
Dateiname = "C:\V1\" & Bereich(1, 7).Value & "\" & Bereich(1, 1).Value & "\" & Bereich(1, 6) & " _
.txt"
If Dir(Dateiname) = "" Then
ff = FreeFile
Open Dateiname For Output As ff
Print #ff, Bereich(1, 6).Value
Close #ff
MsgBox ("Artikel wurde angelegt")
Else
End If
End Sub