Anzahl eines Kriteriums in Zahl
09.01.2009 08:36:45
Fm
folgendes Problem habe ich. Ich habe eine kleine Funktion gebastelt die nichts anderes macht 8amchen soll) als zu schauen wie oft eine bestimmte Zahl (z.b. 1) in einer Zahl vorkommt.
Das funktioniert wenn ich (siehe Bsp-Code) in der Funktion, die Variable Zeichen so definiere (z.b. Zeichen = "1"). Dann wird in diesem Beispiel korrekt 3 mal die 1 angezeigt. Wenn ich aber die Anführungszeichen weglasse und Zeichen wirklich eine Zahl ist dann wird immer 0 angezeigt am Ende.
Weiss jemand wo mein Fehler liegt?
Danke im Voraus
Florian
Sub test()
Dim X
Dim zeichen
zahl = 1112324
X = AnzZeichen(zahl)
MsgBox X
End Sub
Function AnzZeichen(ByVal zeichen As Variant) As Boolean
Dim j As Integer
For zeichen = 1 To 9 Step 1
For j = 1 To Len(zahl)
If Mid(zahl, j, 1) = zeichen Then
count = count + 1
End If
Next j
Next zeichen
End Function