Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ersetzenbefehl verkürzen?

Ersetzenbefehl verkürzen?
06.11.2007 13:43:00
Lena
Hallo...
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

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

Betreff
Datum
Anwender
Anzeige
AW: Ersetzenbefehl verkürzen?
06.11.2007 13:50:00
Rudi
Hallo,
es würde sich eine Schleife anbieten.

Sub tt()
Dim i As Integer, arrReplace
arrReplace = Array(-3, -2, -1, 0, 32, 33, 34, 35)
For i = 0 To UBound(arrReplace)
[e9:letzte_Zelle_Datum].Replace What:=arrReplace(i), Replacement:="", LookAt:=xlWhole,  _
SearchOrder _
:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
False
Next i
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Ersetzenbefehl verkürzen?
06.11.2007 14:01:00
Lena
Hallo Rudi,
funtioniert. Besten Dank!
Gruß
Lena

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige