Excel VBA
24.11.2014 10:06:57
Heiko
poste hier das erste Mal. Hab folgendes Problem. Ich möchte die Lerrzellen in der Zeile zählen und jedesmal wenn die Bedingung erfüllt wir den Wert von S7 um 1 erhöhen. Falls die Abfrage auf eine Zelle mit eienm Wert trifft soll die Abfrage stoppen. Das klappt soweit auch ganz gut. Nun benötige ich das aber bis Zeile 200. Gibt es eine Möglichkeit das ich den Code nicht 200x tippen muß?
Danke im voraus.
Heiko
Sub leere_zählen()
Application.ScreenUpdating = False
If Range("q7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("p7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("o7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("n7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("m7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("l7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("k7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("j7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("i7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("h7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("g7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("f7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("e7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
If Range("d7").Value = 0 Then
[s7] = [s7] + 1
Else
GoTo SP7
End If
SP7:
Application.ScreenUpdating = True
End Sub