Bemerkungen und Vorschläge
19.06.2012 17:55:23
Erich
Hi Jonas,
einige Bemerkungen zu deinem Code-Fragment:
Wenn du schreibst: Dim x, y, o, p As Integer
dann werden keineswegs alle vor "As Integer" genannten Variablen als Integer deklariert,
sondern nur die letzte, also p.
Die Variablen davor sind als Variant deklariert, weil ohne Typangabe.
Bei "Option Explicit" sollte VBA die fehlende Deklaration von w angemeckert haben.
Zeilen- und Spaltennummern sollte man als Long deklarieren, so dass du schreiben solltest:
Dim x As Long, y As Long, o, p As Long
(o wird nicht gebraucht, der passende Typ ist also unbekannt.)
Wie sollte "i = Cells(zei, spa).Value" fehlerfrei sein können, wenn zei=0 ist? Es gibt keine Zeile 0!
Aus deinem Code ist nicht ersichtlich, welche Werte die Variablen x, y, p und w haben - ich habe sie gesetzt.
Schyau dir mal diesen Code an:
Sub jonas()
Dim x As Long, y As Long, o, p As Long
Dim zei As Long, spa As Long
Dim i As Double, erg As Double, anz As Double
Dim w As Double
x = 2
y = 3
p = 4
w = 3.2
For spa = x To y Step 1
For zei = 1 To p Step 1
i = Cells(zei, spa).Value
If i >= w Then erg = erg + i
If i >= w Then anz = anz + 1
Next zei
Next spa
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich