Suchen & Ersetzen kleines Makro

Question

Wer kann mir bei einem kleinen Makro für Excel helfen:

Ersetze in Spalte A Phrase "Anton" durch "Berta" (alle) wenn fertig
ersetze in Spalte B Phrase "Cäsar" durch "Dora" (alle) ...

Danke!

Answer 1

warum Makro, Warum nicht einfach markieren und strg+H?

Gruß Hajo

Answer 2

Hallo,

für solche Aufgaben kannst du auch den Makrorekorder einsetzen.

Hier das Makro:

Sub Ersetzen()

Columns("A:A").Replace What:="Anton", Replacement:="Berta", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Columns("B:B").Replace What:="Cäsar", Replacement:="Dora", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

Gruß

M.O.

Answer 3

Hallo DonFernando,

...oder etwas kürzer

Option Explicit

Sub test()
Dim intI As Integer
For intI = 1 To 100 'Zeile anpassen
If Cells(intI, 1).Value = "Anton" Then Cells(intI, 1).Value = "Berta"
If Cells(intI, 2).Value = "Cäsar" Then Cells(intI, 2).Value = "Dora"
Next
End Sub

Gruß
Rainer

Answer 4

Hallo,

warum machst du es nicht mit Suchen und ersetzen ? Dabei solltest du vorher die Spalte markieren.

Gruß

Helmut

Answer 5

Weil sich dieser Vorgang mit vielen Begriffen ständig wiederholt, und so ist es ja viel
einfacher. Danke