Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

kleine Routine mit Fehler

kleine Routine mit Fehler
15.04.2013 14:28:35
Pepi
Hallo zusammen
Ich habe folgenden Code gefunden, der mich interessiert - doch leider gibt es schon vor dem Ausführen einen Fehler (Text wird rot)
Was bewirkt <&gt?
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
da wird nix rot
15.04.2013 14:35:11
Rudi
Hallo,
VBA gut?
<> bedeutet ungleich.
Gruß
Rudi

AW: da wird nix rot
15.04.2013 14:50:16
Pepi
Sory Rudi
im WEB stand 'If Right(sDir, 1) & lt; & gt; "\" (ohne Abstand zwischen den Zeichen)
für also '& lt; & gt; - doch beim reinkopieren ins Makromodul hat sich das automatisch umgewandelt und ich habs nicht bemerkt - sory - geniesse trotzdem den Sommer - wer weiss, was noch kommt.
mfg
Papi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige