Hallo,
ich möchte untenstehenden Code automatisieren, so dass ich ihn nicht 9 mal eintippen muss. Im 2. Codefenster ist meine Lösung aber ich weiß nicht wie ich es deklarieren soll, damit es so klappt wie ich möchte. Vielleicht habe ich auch den falschen Lösungsansatz.
Bitte helft mir mal auf die Sprünge, bin noch neu auf dem Gebiet.
Vielen Dank für Hilfe
ich möchte untenstehenden Code automatisieren, so dass ich ihn nicht 9 mal eintippen muss. Im 2. Codefenster ist meine Lösung aber ich weiß nicht wie ich es deklarieren soll, damit es so klappt wie ich möchte. Vielleicht habe ich auch den falschen Lösungsansatz.
Bitte helft mir mal auf die Sprünge, bin noch neu auf dem Gebiet.
Vielen Dank für Hilfe
Code:
Dim g12, l12, zählerSp as Short
If g12 < 0 Then
If l12 > 1 Then
zählerSp = zählerSp + l12
l12 = 0
End If
End If
Code:
Dim g, l as '...keine Ahnung String geht nicht
For i = 12 To 20
g = "g" & i
l = "l" & i
If g < 0 Then
If l > 1 Then
zählerSp = zählerSp + l
l = 0
End If
End If
Next i