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