If-Anweisung wird grundsätzlich ausgeführt!

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
Dim z1, s1 As Byte
Zähler1 = 5
Testansatz = 1
Platte = 0
Do Until Leerzelle = 4
If Worksheets("Rohdaten").Cells(Zähler1, 1) = "<>" Then
Platte = Platte + 1
For z1 = 1 To 8
For s1 = 1 To 3
positive_Wells(s1, z1) = 0
Next s1
Next z1
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
With Worksheets("Rohdaten").Cells(Zeile, Spalte)
If .Value > Grenzwert Then positive_Wells(Platte, Konzentration) _
= positive_Wells(Platte, Konzentration) + 1
End With
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
Leerzelle = 0
ElseIf Worksheets("Rohdaten").Cells(Zähler1, 1) = "" Then Leerzelle = Leerzelle + 1
End If
Zähler1 = Zähler1 + 1
Loop
End Sub