VBA - Texte löschen | HERBERS Excel Forum

Hallo,

ich bitte euch um Rat ob ich mein bestehendes Makro auch kürzer fassen kann? Zugegebenermaßen ich habe es aufgezeichnet und danach noch einiges gelöscht aber jetzt komme ich bei der Frage ob es noch kürzer geht nicht mehr weiter.

Prinzipiell geht es darum 29 Begriffe aus meiner Tabelle zu löschen, von denen jeder einzelne mindestens 211mal vorkommt.

Das Makro sieht jetzt so aus:

Sub Makro3()

With Worksheets("Tabelle1")

Cells.Replace What:="Browse by:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Cells.Replace What:="Displaying page*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

usw. usw.

End With
End Sub

und dasselbe nochmal mit den 27 anderen Suchbegriffen. Das einzige was sich ändert sind die Suchbegriffe alles andere bleibt identisch.

Wie gesagt kann man das irgendwie weiter abkürzen? Danke
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
beim Replace sind die Parameter, die nach LookAt kommen, in der Regel unwichtig und man brauchst sie in der Regel nicht anzugeben.
dh meistens reicht es, die Parameter What, Replacement (diese müssen angegeben werden) und LookAt anzugeben (der ist wichtig und sollte immer angeben werden).
Wenn man mehrere Replace hat, kann man sich zu nutze machen, dass VBA bei Replace sich die Einstellungen merkt, so dass man nur die Parameter angeben muss, die sich verändern (What und Replacement muss man immer angeben, der Rest wird vom letzten mal übernommen)

die nächste Codeverkürzung ist, dass man die Parameternamen (What, Replacement usw) weglassen darf, wenn man die Parameter in der vom System vorgegeben Reihenfolge angibt.

dh du könntest deinen Code auch so verkürzen:

With Cells

    .Replace "Browse By:", "", xlpart

    .Replace "Displaying page", ""

    .Replace "weiterer Text", ""

end with

wenn du viele Begriffe hast, kannst du diese auch in einem Array oder in einem Zellbereich sammeln, um dann eine Schleife zu schreiben:
da du hier nur eine Replace-Zeile hast, kann es wieder hilfreich und übersichlicher sein, die Parameterbenennung mit anzugeben (macht den Code für unerfahrene Programmierer leichter lesbar, da man die Parameterreihenfolge nicht auswendig wissen muss)

dim X

for each x in Array("Browse By:"; "Displaying Page", "weiterer Text")

    Cells.replace what:=x, replacement:="", lookat:=xlpart

next

Gruß Daniel

Sub Makro3() Dim Arr(), i As Integer Arr = Array("Browse by:", "Displaying page*", "usw.") With Worksheets("Tabelle1") For i = LBound(Arr) To UBound(Arr) Cells.Replace What:=Arr(i), Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2 Next End With End Sub

Sub Makro3() Dim Arr(), i As Integer Arr = Array("Browse by:", "Displaying page*", "usw") With Worksheets("Tabelle1") For i = LBound(Arr) To UBound(Arr) With Cells .Replace Arr(i), "", xlPart Next End With End Sub

Beliebteste Forumthreads (12 Monate)

VBA - Texte löschen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Texte löschen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread