Hallo,
ich denke ich habe es prinzipiell hinbekommen - allerdings mit nur einem "Ersetz-Wort" - wie von dir gewünscht.
Option Base 1
Sub tz()
Dim i As Integer, z As Integer, E As Integer, L As Integer
Dim F(3) As String, ERS As String
'füllen des Arrays F mit Text der gefunden werden soll
F(1) = "K2K"
F(2) = "K2E"
F(3) = "K2P"
'Text der eingefügt wird, also F(i) ersetzt
ERS = "12LK "
'Ermittlen der ersten vollen Zelle und letzten vollen Zelle in Spalte 4
z = 1
Do Until (ActiveSheet.Cells(z, 4) <> "")
z = z + 1
Loop
'das ist die erste volle Zelle in Spalte 4
E = z
'das ist die letzte volle Zelle in Spalte 4
L = Cells(Rows.Count, 4).End(xlUp).Row
'Selektieren des Bereichs in Spalte 4
ActiveSheet.Range(Cells(E, 4), Cells(L, 4)).Select
For i = 1 To 3
Selection.Find(What:=F(i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Value = ERS
Next i
End Sub
Bitte gib' eine Rückmeldung, da ich mir Mühe gegeben habe und dies nicht umsonst gewesen sein soll!
Viele Grüße,
Jörg
|