Archiv
effeff schrieb am 22.July.2009, 13:42:44 in der Kategorie pc.coding
Option Explicit
Sub Ersetzen()
Dim WB As Workbook
Dim WS As Worksheet
Dim Rg As Range
Dim GefZelle As Range
Dim Suchtext As String
Dim Ersatztext As String
Suchtext = \"Baum\"
Ersatztext = \"Lindenbaum\"
Set WB = ThisWorkbook
Set WS = WB.Sheets(\"Tabelle1\")
Set Rg = WS.Range(\"A1:A65535\")
Set GefZelle = Rg.Find(What:=Suchtext)
Do While Not GefZelle Is Nothing
WS.Cells(GefZelle.Row, 1).Value = Ersatztext
Set Rg = WS.Range(Cells(GefZelle.Row + 1, 1), Cells(65535, 1))
Set GefZelle = Rg.Find(What:=Suchtext)
Loop
Set GefZelle=Nothing
Set Rg=Nothing
Set WS=Nothing
Set WB=Nothing
End Sub
Archiv