Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen löschen

Forumthread: Zeichen löschen

Zeichen löschen
F
Hallo,
ich habe in einer Zelle (A1) eine Laufwerksangabe stehen.
Diese kann, je nach Ort der vorher geöffneten Datei,unterschiedlich sein.
Z.B.:
I:\12_CDD\\Calibration\Force Sheets\FUWRL4-502 AmpF1-100-1018-010 Serial 023 90,3°C comp.TRA
Ich suche nun einen Code, der die Zeichen bis zum letzten "\" entfernt.Und auch das letzte "\",
so das bei dem Beispiel von oben nur: FUWRL4-502 AmpF1-100-1018-010 Serial 023 90,3°C comp.TRA
übrig bleibt.
Hat jemand eine Idee?
Mit freundlichen Grüssen Frank
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeichen löschen
15.02.2006 14:47:39
u_
Hallo,

Sub reinigen()
Dim i As Integer
For i = Len(Range("A1")) To 1 Step -1
If Mid(Range("A1"), i, 1) = "\" Then
Range("A1") = Mid(Range("A1"), i + 1, 255)
Exit For
End If
Next
End Sub

Gruß
Geist ist geil!
AW: Zeichen löschen
15.02.2006 14:58:27
F
Hallo,
es funktioniert, vielen Dank.
Mit freundlichen Grüssen Frank
Anzeige
AW: Zeichen löschen
15.02.2006 14:51:09
UweD
Hallo
so z.B.

Sub teilAweg()
Dim Pfad$, Anz%, Pos%
Pfad = "I:\12_CDD\\Calibration\Force Sheets\FUWRL4-502 AmpF1-100-1018-010 Serial 023 90,3°C comp.TRA"
Anz = Len(Pfad) - Len(Application.Substitute(Pfad, "\", "")) 'Anzahl der \
Pos = Application.Find("#", Application.Substitute(Pfad, "\", "#", Anz)) ' Position des letzten \
Pfad = Mid(Pfad, Pos + 1) 'der gewünschte Teiltext
MsgBox Pfad
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Zeichen löschen
15.02.2006 14:59:38
F
Hallo Uwe,
auch das funktioniert, vielen Dank.
Mit freundlichen Grüssen Frank
AW: Zeichen löschen
15.02.2006 14:54:18
volker
hallo,
eigentlich müßte das reichen
t = Right(txt, Len(txt) - InStrRev(txt, "\"))
in txt schreibst du vorher deinen text rein
gruß volker.
AW: Zeichen löschen
15.02.2006 15:02:07
F
Hallo Volker,
vielen Dank auch für Deine Hilfe
Mit freundlichen Grüssen Frank
Anzeige
erst ab XL XP...
15.02.2006 15:03:33
UweD
Hallo
"instrev" erst ab Excel XP oder?
Gruß UD
so ist es oT
15.02.2006 15:11:33
u_
wußte ich nicht , danke owt
15.02.2006 16:29:19
volker
-
Anzeige
nö
15.02.2006 21:43:56
MichaV
Hallo,
instrrev ist reines VB 6.0 und damit schon ab XL2000 verfügbar.
Gruß- Micha
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige