Hallo VBA-Profis,
ich mache seit einigen Tagen meine ersten Gehversuche in VBA und hänge nun bei einer Prozedur die die Anzahl der geraden Zahlen in einer Spalte wiedergeben soll (zur Vereinfachung wird zunächst nur "A1" abgefragt)
Mein Plan ist zu checken ob die Zahl in der Zelle durch 2 teilbar ist, wenn ja den Wert einer Variablen um eins zu erhöhen. Anschließend soll eine Zelle nach unten gesprungen werden und die Funktion wiederholt werden.Am Ende soll der Wert der Variablen in einer msgbox erscheinen.
Aktuell habe ich das Probleme die Variable zu erhöhen, kann mir dazu jemand einen Tipp geben? .Count i + 1 funzt nicht.
Ich denke das ist nicht mein einziges Problem, vielleicht habt Ihr ja noch Tipps für andere Fehler die ich noch nicht sehe :)
Option Explicit
Sub GZZ()
Dim X As Integer
Dim i As Integer 'Anzahl gerader Zahlen
ActiveSheet.Range("A1").Select 'Wähle Zelle A1 aus
Do Until ActiveCell Is Empty
If ActiveCell.Value = X Then 'Prüfe ob in Zelle eine Zahl des Formates Integer steht
Call fktCheckNumber
If fktCheckNumber = True Then 'Wenn fkt den Wert true ausgibt Steigt die Variable i um den Wert 1
.Count i + 1
Else
End If
ActiveCell.Offset(1, 0).Select 'Springe eine Zelle nach unten
Else
End If
Loop
MsgBox "Anzahl ist: " & i
Function fktCheckNumber() As Boolean 'Prüfen ob gerade Zahl
If ActiveCell.Value / 2 = X Then 'Wenn Wert aus Aktiver Zelle durch 2 ist Integer gib true
fktCheckNumber = True
On Error Resume Next
End If
End Function
|