Attribute VB_Name = "ReplacePosOfUnclear" Sub ReplacePosOfUnclear() Attribute ReplacePosOfUnclear.VB_ProcData.VB_Invoke_Func = "k\n14" Dim normCell As Range Test = True i = 1 For Each normCell In Selection If i = 25 Then Test = False Exit For ElseIf normCell.Value = "unknown" Then Application.EnableEvents = False Range("H" & normCell.Row).Value = "XY" Application.EnableEvents = True i = 1 Else i = 1 End If Next MsgBox ("Alle unclear-Tags sollten nun als 'XY' gepostaggt sein :)") End Sub