Ordner Name Fehler

[ludakuhja]

Hallo liebe Excel Profis,

ich habe ein kleines Problem. Ich habe ein Code was von Pfad: "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)" einen Ordner mit Namen "(Bst. Nr)_(Bst. Name)" kopiert und im 
Pfad: "P:\Daten\B0533084_KÜHBACHER\Baustellen\" einfugt und umbenennt wie  der Inhalt von Zelle "A4" ist. in der Zelle "A4" steht Folgendes: "8200032_Augsburg, Stauferstr.6".

Das funktioniert wunderbar nur wenn in Zelle "A4" zB ein "-" oder "Leerzeichen" am ende ist dann meldet er Fehler und lägt den Ordner nicht an. also er reagiert empfindlich aus - oder , oder Leerzeichen warum auch immer. bitte um Hilfe (siehe Code unten).

Danke voraus

Code:

Private Sub Makro2()

Dim filesystem As Object
Dim StrName As String
StrName = Range("A4")
If MsgBox("Ordner beim Manuel Kühbacher mit namen:  " & StrName & "  anlegen?", vbYesNo) = vbYes Then

Set filesystem = CreateObject("Scripting.FileSystemObject")
filesystem.CopyFolder "P:\Daten\Trockenbau Vorlagen\(Bst. Nr)_(Bst. Name)", "P:\Daten\B0533084_KÜHBACHER\Baustellen\" & StrName
Set filesystem = Nothing

MsgBox "Ordner mit namen:  " & StrName & "  wurde angelegt!"

Else
MsgBox "ordner wurde nicht angelegt!!!"

End If


End Sub

[schauan]

Hallöchen,

wenn es an den Leerzeichen am Anfang oder Ende liegt - nimm Trim zum entfernen.

[ludakuhja]

nein es kommt Fehler wenn es zB so ist 8200039_München, E-platz oder 8200039_München, E-platz" "

[schauan]

Hallöchen,

also, in der Zelle steht das?

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
2	8200039_München, E-platz" "

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[ludakuhja]

nein in der Zelle sind 3 Zellen verkettet und es ergibt einen Namen wie zB "8200037_Ort, Straße" aber wen in der Straße "-" wie beim Beispiel E-Platz oder aus versehen am ende Leerzeichen steht dann kommt Debugger

[Kuwer]

Hallo,

StrName = Replace(Trim(Range("A4").Value), "-", "")

Gruß Uwe

[schauan]

Hallöchen,

ich bin nach wie vor der Überzeugung, das Trim einen Teil der Fehler beseitigt.

Hier mal in zwei Schritten:

StrName = Trim(Range("A4")).Value
StrName = Trim(Left(StrName, Len(StrName)-1) & Replace(Right(StrName,1), "-", ""))

Das ist aber auch noch nicht 100%ig

hier klappt es:
"A4 "
"A4-"
"A4- " (Anzahl Leerzeichen egal)
"A4 -" (Anzahl Leerzeichen vor dem "-" egal)

hier z.B. nicht
"A4--" wird zu "A4-"
oder
"A4 - - " wird zu "A4 -"
Wenn solche Fälle auftreten können, könnte man diese z.B. in einer Schleife entfernen.

---

... hier noch die Schleife

StrName = Trim(Range("A4")).Value
Do While Right(StrName, 1) = "-"
StrName = Trim(Left(StrName, Len(StrName) - 1) & Replace(Right(StrName, 1), "-", ""))
Loop

[ludakuhja]

Danke das hat gepasst

[schauan]

Hallöchen,

ich trotzdem nochmal. Mein Ansatz würde #1 erfüllen, Uwe's Ansatz #5 - falls Du alle "-" in der Zeichenkette entfernen willst, also nicht nur in der Straße, sondern auch im Ort oder wo auch immer. Hatte ich vorhin nicht erwähnt.

Vielleicht solltest Du aber auch mal schauen, warum die "-" innerhalb einer Straße oder ggf. einem Ort stören. Eigentlich gehören die ja dort hin und ein "-" ist bei einem Ordnernamen auch kein verbotenes Zeichen.