Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ersetzen (Buchstaben)?

Ersetzen (Buchstaben)?
Selma
Hallo Leute,
wie kann ich per VBA folgendes durch nichts ersetzen, ohne das ich im Code für jeden Buchstaben eine Zeile schreiben muss?
G:\prj\2010\40902001\0-9\
G:\prj\2010\40902001\A\
G:\prj\2010\40902001\B\
.... bis
G:\prj\2010\40902001\Z\
Sub REPLACE_SELECT()
With Selection
.Replace What:="G:\prj\2010\40902001\0-9\", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
.Replace What:="G:\prj\2010\40902001\A\", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
.Replace What:="G:\prj\2010\40902001\Z\", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End With
End Sub
Besten Dank!
Viele Grüße,
Selma
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ersetzen (Buchstaben)?
06.07.2010 10:48:21
Yusuf
Moin,
falls es nur folgende Moeglichkeiten gibt
G:\prj\2010\40902001\0-9\
G:\prj\2010\40902001\A\
G:\prj\2010\40902001\B\
.... bis
G:\prj\2010\40902001\Z\
und nicht noch "G:\prj\2010\40902001\Guenther\", welches nicht durch "" ersetzt werden soll, koenntest du es folgendermaßen machen.
Sub REPLACE_SELECT()
With Selection
.Replace What:="G:\prj\2010\40902001\*", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False
End Sub
Gruß
Yusuf
Anzeige
AW: Ersetzen (Buchstaben)?
06.07.2010 12:33:09
Selma
Hallo Yusuf,
funktioniert nicht wie gewollt.
Rest (rechts) soll ja bleiben (siehe in rot).
G:\prj\2010\40902001\0-9\Allgemein
G:\prj\2010\40902001\A\Ausführung
G:\prj\2010\40902001\B\Büro
.... bis
G:\prj\2010\40902001\Z\Zeichnungen
Viele Grüße,
Selma
Anzeige
AW: Ersetzen (Buchstaben)?
06.07.2010 12:40:51
Rudi
Hallo,
mach hinter den * noch einen \.
Gruß
Rudi
AW: Ersetzen (Buchstaben)?
06.07.2010 13:19:07
Selma
Es funktioniert...
Danke Rudi!
VG,
Selma
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige