Code Textübergabe
18.03.2008 14:45:30
Frank
ich habe diesen Code im Archiv gefunden der auch wunderbar funktioniert sofern nur
Zahlen oder Buchstaben eingeben werden sobald aber ein Schrägstrich hinzugefügt wird
wird keine Textdatei mehr erstellt.
Wäre Super wenn mir jemand weiterhelfen könnte, da VBA nicht meine Stärke ist.
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