Option Explicit
Sub Test()
Dim rngHeader As Excel.Range
Dim rngDataRow As Excel.Range
Dim i As Long
Set rngHeader = Range("A1:O1")
Set rngDataRow = rngHeader.Offset(1)
Do Until rngDataRow.Cells(2).Text = ""
For i = 5 To rngDataRow.Columns.Count
If rngDataRow.Cells(i - 1).Value = 0 _
And rngDataRow.Cells(i).Value = 1 Then
Call MsgBox( _
"Name: " & rngDataRow.Cells(2).Text & vbNewLine & _
"Sprung von 0 [" & rngHeader.Cells(i - 1).Text & "] auf 1 [" & rngHeader.Cells(i).Text & "] gefunden.", _
vbInformation)
Exit For
End If
Next
If i > rngDataRow.Columns.Count Then
Debug.Print "überspringe '" & rngDataRow.Cells(2).Text & "'"
Else
Debug.Print "Treffer: '" & rngDataRow.Cells(2).Text & "'"
End If
Set rngDataRow = rngDataRow.Offset(1)
Loop
End Sub