Jetzt hats mich auch gepackt. Ich kam durch richtiges Erkennen nur so bi 50% deswegen hab ich ne Art BruteForce Makro gemacht. Ich geb nen Bandnamen ein und das Teil prüft, ob die Band vorhanden ist. Naja, immerhin bin ich jetzt bei 79 :D
Falls es jemanden interessiert:
Sub CheckBand()
Dim iZeile As Integer
Dim iSpalte As Integer
Dim sBand As String
Dim sCorrect As String
sBand = InputBox("Bandname:")
For iZeile = 7 To 87 Step 4
For iSpalte = 2 To 6
If ActiveSheet.Cells(iZeile, iSpalte).Value = "FALLO" Then
ActiveSheet.Cells(iZeile - 1, iSpalte).Value = sBand
If ActiveSheet.Cells(iZeile, iSpalte).Value <> "FALLO" Then
Call ActiveSheet.Cells(iZeile - 1, iSpalte).Activate
MsgBox sBand & " ist richtig."
Exit Sub
End If
End If
Next
Next
End Sub