Ersetzenbefehl verkürzen?
06.11.2007 13:43:00
Lena
kann man diese Befehle kürzer abfassen?
[e9:letzte_Zelle_Datum].Replace What:="-3", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="-2", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="-1", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="32", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="33", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="34", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
[e9:letzte_Zelle_Datum].Replace What:="35", Replacement:="", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
Danke für eure Hilfe.
Gruß
Lena