Sub Auswertung_Header()
Sheets("Vergleich Header").Select
Dim Zelle As Range
For Each Zelle In Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If Zelle "" Then
If Range("A2").Value Zelle.Value Then GoTo error
End If
Next
If 1 = 2 Then
error:
MsgBox "Die Spalten Stimmen nicht überein"
End If
End Sub
Hierfür gibt es bestimmt eine Möglichkeit, sodass ich die Schleife nicht 40 mal Copy-Pasten muss mit den jeweils anderen Spaltindexen oder?Vielen Dank im Voraus für eure Hilfe