Doppelter Backslash im aus variable erzeugten Pfad
01.03.2017 08:49:42
Nilix
sitze an einer Erweiterung meiner Stundenberechnung und verstehe das verhalten des Codes gerade nicht.
Im Feld B3 steht das Datum wann der Kalender Startet, also 01.01.2017.
Ich möchte auf einer Einstellungsseite die Daten (überstunden und Urlaub) aus der Exceldatei des Letzten Jahres lesen um damit weiterzurechnen. Um den Pfad auch mal ändern zu können schreibe ich die Angaben zu "Ordner" "Unterordner" "Jahr und Dateiname" in Felder und baue sie in dem benötigtem Feld das die Daten des letzten jahres anzeigen soll wieder zusammen.
Leider haut er mir zwischen "Ordner" und "Unterordner" einen Doppelten Backslash\\ rein was natürlich dazuführt das der pfad nicht funzt.
Könnt ihr mir sagen warum der \\ kommt ?
Vielen Dank
Nilix
Hier mein code:
Sub einstellungen_formeln_anlegen()
'Datum auf Jahr glätten
Dim y As String
Dim datum As Date
Dim txt As String
txt = Range("B3")
datum = CDate(txt)
y = Year(datum) - 1
'Jahr in benötigte Zellen eintragen
Range("D31,H4,I4").Value = y
'Variablen definieren
Dim jahr As String
jahr = Range("D31").Value
Dim feld_ueberstunden As String
feld_ueberstunden = Range("C32").Value
Dim feld_urlaub As String
feld_urlaub = Range("C33").Value
Dim feld_ordner As String
feld_ordner = Range("G4").Value
Dim feld_unterordner As String
feld_unterordner = Range("H4").Value
Dim feld_jahr As String
feld_jahr = Range("I4").Value
Dim feld_name As String
feld_name = Range("j4").Value
Dim Formula As String
Range("B32").Formula = "='" & feld_ordner & "\" & feld_unterordner & "\[" & feld_jahr & _
feld_name & "]Jahr'!" & feld_ueberstunden
Range("B33").Formula = "='" & feld_ordner & "\" & feld_unterordner & "\[" & feld_jahr & _
feld_name & "]Jahr'!" & feld_urlaub
End Sub