Mit VBA Zeichen as Pfad entfernen.
18.10.2004 20:55:42
Fritz
In einer Spalte meiner Tabelle habe ich die Pfade zu Textdateien abgelegt.
Das geschieht automatisch
Die sehen z.B. so aus: C:\Windows\Desktop\BwH\Textdat\Bwh 00/00_Kurzvermerk.txt
Nach dem letzten Backslash erhalte ich den Namen der Datei durch
....cells(r,1). Value & "_Kurzvermerk.txt".
In Spalte A (also cells(r, 1) ) stehen die Aktenzeichen in der Form "BwH 00/00".
Meine Frage:
Wie kriege ich mittels VBA den Slash / raus, damit ich mit Hilfe dieses Pfades eine Textdatei in dem Ordner TextDat automatisch einrichten kann?
Hier der ganze code:
Sub TextDateiPfadeErzeugen()
Dim r As Integer, Start As Worksheet, rngF As Range
r = ActiveCell.row
Set Start = Sheets("Start")
Set rngF = Start.Range("F3")
If Cells(r, 1) = "" Or _
Cells(r, 4) = "" Or _
Cells(r, 5) = "" Then
MsgBox "Füllen Sie bitte mindestens die Felder für das Geschäftszeichen, Vor - und Nachnamen aus!", vbCritical
Exit Sub
Else
Cells(r, 101).Value = rngF.Value & "\" & Cells(r, 1).Value & "_Kurzvermerk.txt"
Cells(r, 102).Value = rngF.Value & "\" & Cells(r, 1).Value & "_Wohnung.txt"
Cells(r, 103).Value = rngF.Value & "\" & Cells(r, 1).Value & "_WirtVerh.txt"
Cells(r, 104).Value = rngF.Value & "\" & Cells(r, 1).Value & "_ArbAus.txt"
Cells(r, 105).Value = rngF.Value & "\" & Cells(r, 1).Value & "_SozEin.txt"
Cells(r, 106).Value = rngF.Value & "\" & Cells(r, 1).Value & "_Gesundh.txt"
Cells(r, 107).Value = rngF.Value & "\" & Cells(r, 1).Value & "_AuflWeis.txt"
Cells(r, 108).Value = rngF.Value & "\" & Cells(r, 1).Value & "_Plaene.txt"
Cells(r, 109).Value = rngF.Value & "\" & Cells(r, 1).Value & "_Vereinb.txt"
Cells(r, 110).Value = rngF.Value & "\" & Cells(r, 1).Value & "_NeuStrf.txt"
Cells(r, 111).Value = rngF.Value & "\" & Cells(r, 1).Value & "_ErgStellgn.txt"
End If
End Sub
Es wäre nett, wenn Ihr mir mal wieder Nachhilfe geben würdet.
Grüße, Fritz