Als Anfänger habe ich folgendes Problen:
Ich will in einer Abeitsmappe (10 Sheets) in allen Zellen überprüfen ob ein Zeichenfolge "IST_KOST" vorhanden ist und diese ersetzen mit "local".
Mit dem Makro unten geht's bereits für ein Sheet.
Sub Ersetzen()
Dim Bereich As Range
Dim Zelle
Set Bereich = Range(ActiveSheet.UsedRange.Address)
For Each Zelle In Bereich
If Zelle.Text = "a" Then Range(Zelle.Address) = "B"
Next
End Sub
Danke für Eure Hilfe!
Norbert