kleine Routine mit Fehler
15.04.2013 16:28:35
Pepi
Ich habe folgenden Code gefunden, der mich interessiert - doch leider gibt es schon vor dem Ausführen einen Fehler (Text wird rot)
Was bewirkt <>?
Sub CallByVal()
Dim sPath As String, sStart As String
sPath = ThisWorkbook.Path
sStart = sPath
Call GetByVal(sPath)
MsgBox "Vorher: " & sStart & vbLf & "Nachher: " & sPath
End Sub
Private Sub GetByVal(ByVal sDir As String)
If Right(sDir, 1) <> "\" Then 'Fehler!!
sDir = sDir & "\"
End If
End Sub
Danke für Eure Unterstützung!
Pepi
Anzeige