Indes außerhalb des gültigen Bereichs! Warum?

Private Sub positive_Wells_zählen()
Const Grenzwert As Single = 0.7
Dim Zähler1, Zähler2, Platte As Integer
Dim positive_Wells(1 To 3, 1 To 8), a, b, c, d, Konzentration, Zeile, Spalte, Leerzelle, Testansatz As Byte
Zähler1 = 5
Do Until Leerzelle = 4
If Worksheets("Rohdaten").Cells(Zähler1, 1) = "<>" Then
Platte = Platte + 1
If Platte > 3 Then
Testansatz = Testansatz + 1
Platte = 1
End If
For Konzentration = 1 To 8
Select Case Konzentration
Case 1 To 2
a = 1
b = 4
Case 3 To 4
a = 5
b = 8
Case 5 To 6
a = 9
b = 12
Case 7 To 8
a = 13
b = 16
End Select
Select Case Konzentration
Case 1, 3, 5, 7
c = 2
d = 13
Case 2, 4, 6, 8
c = 14
d = 25
End Select
For Zeile = Zähler1 + a To Zähler1 + b
For Spalte = c To d
If Worksheets("Rohdaten").Cells(Zeile, Spalte) > Grenzwert Then _
positive_Wells(Platte, Konzentration) = positive_Wells(Platte, Konzentration) + 1
Next Spalte
Next Zeile
Next Konzentration
For Konzentration = 1 To 8
For Platte = 1 To 3
Worksheets(Testansatz).Cells(27 + Konzentration, 3 + Platte) = positive_Wells(Platte, Konzentration)
Next Platte
Next Konzentration
End If
Loop
End Sub