Fortsetzung Rudi-Hintergrund
12.06.2013 10:21:10
JACKD
Danke für deine Geduld
Nur damit ich es richtig verstanden hab. Du hast in der ersten Variante die Zelle mit
cint(left(arr(),1))
zerlegt. Der Rückgabewert ist dann das Führende Zeichen als Zahl
(Nebenfrage: was passiert wenn hier mal ein Buchstabe steht zB bei einer Falscheingabe?)
jetzt Zerlegst du das Array mit
Split(arrTmp(j), "-")
Das heisst ich habe dann ein neues 2 Dimensionales Array
wobei der
arrTemp(j,1) die Zeichenfolge vor dem Strich ist und
arrTemp(j,2) die Zeichenfolge nach dem Strich
Function AnzANR(arrATyp, arrTmp)
Dim arrAnz()
Dim i As Integer, j As Integer
Dim arrTemp()
ReDim arrAnz(UBound(arrATyp))
For i = 0 To UBound(arrATyp)
arrAnz(i) = 0
For j = 5 To UBound(arrTmp)
If CInt(Split(arrTmp(j), "-")(0)) = arrATyp(i) Then
arrAnz(i) = arrAnz(i) + 1
If CInt(Split(arrTmp(j), "-")(0)) = "8" Then
If CStr(Left(CStr(arrTmp(j)), 4)) = "8-98" Then
arrAnz(i) = arrAnz(i) + 1
End If
End If
End If
Next
Next
AnzANR = arrAnz
End Function
So hab ich es mal probiert. Leider mit einem falschen Ergebnis (Liefert eine falsche Summe) was denk ich daran liegt, dass (in dem Beispiel die Zahl 8) gefunden wird, das arrAnz um eins hochgezählt wird und für den Fall dass 8-98 gefunden wird, dann nochmal eins hochgezählt wird..
If CStr(Left(Split(arrTmp(j), "-"), 2)) = "98" Then
Der Teil Funktioniert nicht ich versuche an die zweite Funktionsreihe zu kommen also arrTemp(j,2) aber irgendwie bekomm ich es nicht auf die Reihe Grüße
Und vielen Dank