Problem Exelfunktion

Hallo Leute,
tüftel schon seit Tagen an einem Problem. Habe auch bereits eine Lösung, jedoch befürchte ich, dass das Ganze viel einfacher funktioniert.
Problem: Es sollen Zahlenreihen, die wie folgt aussehen 1/3/2x4/9/11/ gezählt und in eine entsprechende Tabelle überführt werden.
Die Tabelle soll folgerichtig 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 in der Kopfzeile enthalten. Nun soll Exel erkennen, dass einmal die eins, 0 mal die 2, einmal die 3, zweimal die 4, keinmal die 5 usw. vorhanden ist und in den Zeilen darunter jeweils eine 1 oder die entsprechende Zahl bspw 2 für 2x4 einsetzen.
Hat jemand eine Idee mit welchem Befehl man das lösen kann?
Gehe zur Zeit hin und prüfe ISTWAHR ob bsp 1/ enthalten ist. Dann WENN/ DANN Bedingung. Das Ganze ist aber problematisch bei Zahlen wie 11/ 14/ etc, denn da erkennt er eben auch 1/ und 4/ etc.
Hoffe jemand hier hat noch eine andere Idee.
Lieben Gruß
Kai

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function KaiFunktion(str As String, bWert1 As Byte) As Integer Dim ar As Variant, i As Integer, bWert2 As Byte, iAnzahl As Integer Application.Volatile ar = Split(str, "/") For i = 0 To UBound(ar) - 1 If InStr(ar(i), "x") > 0 Then bWert2 = Val(Split(ar(i), "x")(1)) iAnzahl = Val(Split(ar(i), "x")(0)) Else bWert2 = ar(i) iAnzahl = 1 End If If bWert1 = bWert2 Then KaiFunktion = iAnzahl Exit Function End If Next i KaiFunktion = 0 End Function

Function KaiFunktion(str As String, bWert1 As Currency) As Integer Dim ar As Variant, i As Integer, bWert2 As Currency, iAnzahl As Integer Application.Volatile ar = Split(str, "/") For i = 0 To UBound(ar) - 1 If InStr(ar(i), "x") > 0 Then bWert2 = Val(Split(ar(i), "x")(1)) iAnzahl = Val(Split(ar(i), "x")(0)) Else bWert2 = ar(i) iAnzahl = 1 End If If bWert1 = bWert2 Then KaiFunktion = iAnzahl Exit Function End If Next i KaiFunktion = 0 End Function

Function KaiFunktion(str As String, bWert1 As Currency) As Double Dim ar As Variant, i As Integer, bWert2 As Currency, dblAnzahl As Double Application.Volatile ar = Split(str, "/") For i = 0 To UBound(ar) - 1 dblAnzahl = 0 If InStr(ar(i), "x") > 0 Then bWert2 = Val(Split(ar(i), "x")(1)) dblAnzahl = CDbl(Split(ar(i), "x")(0)) Else bWert2 = ar(i) dblAnzahl = 1 End If If bWert1 = bWert2 Then KaiFunktion = dblAnzahl Exit Function End If Next i KaiFunktion = 0 End Function

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread