'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'+
'+ entwickelt von Winfried Radner
'+ e-mail: Wolf.W.Radzinski@gmx.de
'+ Benutzung frei - ohne Gewähr
'+
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'sucht in Spalte nr (quelle) nach dem Inhalt (suche)
'und fügt in der gleichen Zeile in Spalte (ziel) den
'Inhalt aus (ersetze) ein.

'Im Beispiel wird nach dem Wort Januar in Spalte A =1 gesucht 
'und in Spalte B =2 das Wort Urlaub eingetragen

Sub suche_und_ersetze(suche As Variant, _
                      ersetze As Variant, _
                      quelle As Integer, _
                      ziel As Integer)
Dim r As Range
Dim r1 As Range
On Error GoTo err_gef
Set r1 = Columns(quelle).Find(What:=suche, LookAt:=xlWhole, _
                              SearchOrder:=xlByRows, MatchCase:=True)
Set r = r1
Do While Not r Is Nothing
r.Offset(0, ziel - quelle) = ersetze
Set r = Columns(quelle).FindNext(r)
If r.Address = r1.Address Then Set r = Nothing
Loop
Exit Sub
err_gef:
MsgBox "Fehler"
End Sub

Sub test()
suche_und_ersetze "Januar", "Urlaub", 1, 2
End Sub