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(1) = "K2K"
F(2) = "K2E"
F(3) = "K2P"
ERS = "12LK "
z = 1
Do Until (ActiveSheet.Cells(z, 4) <> "")
z = z + 1
Loop
E = z
L = Cells(Rows.Count, 4).End(xlUp).Row
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
Viele Grüße,
Jörg