Kennzahl ermitteln

Alifa · 2012-10-15T09:46:51+02:00

Hallo für 7-stellige Zahlen, deren Ziffern 1,2 und 3 sind, ist die "Kennzahl" k bekannt. k ist die Summe der Punkte. 333=3Punkte; 22=2 Punkte: 1=1 Punkt. 1233233 hat k=1. Für 1223331 ist k=1+2+3+1=7; 1122233 hat k=0. Gültig sind Zahlen mit k=1,2,3,4,5,6 und 7. Gegeben ist die Zahl und k. Die Funktion soll Boolean Werte zurückgeben. Also 1122312 mit k=4 ist False. 1122312 mit k=3 ist WAHR(2+1=3). Danke im Voraus für die Hilfe. Gruß, Alifa

Hi Erhard,
hier mein Vorschlag:

	A	B	C	D	E
1	Vorgaben		gerechnet
2	Zahl	Kennzahl	richtig	Kennzahl	OK
3	1223331	7	WAHR	7	WAHR
4	1223332	6	WAHR	6	WAHR
5	1234567	1	WAHR	1	WAHR
6	1233233	1	WAHR	1	WAHR
7	1122233	0	FALSCH	2	FALSCH
8	1122312	4	FALSCH	3	FALSCH
9	3331221	6	FALSCH	7	FALSCH

Formeln der Tabelle

Zelle	Formel
C3	=KennzRichtig(A3;B3)
D3	=KennZahl(A3)
E3	=KennzahlOK(A3;B3)

mit diesen Funktionen:


Option Explicit
Function KennzahlOK(zz As String, kk As Integer) As Boolean
KennzahlOK = KennZahl(zz) = kk
End Function
Function KennZahl(zz As String) As Integer
Dim ii As Integer, tt As String, pp As Integer, ee As Integer
For ii = 1 To 3
tt = WorksheetFunction.Rept(CStr(ii), ii)
pp = InStr(zz, tt)
While pp
If Mid(zz & "X", pp + ii, 1)  tt Then ee = ee + ii
pp = InStr(pp + ii + 1, zz, tt)
Wend
Next ii
KennZahl = ee
End Function
Function KennzRichtig(zz As String, kk As Integer) As Boolean
Dim ii As Integer, tt As String, pp As Integer, ee As Integer
For ii = 1 To 3
tt = WorksheetFunction.Rept(CStr(ii), ii)
pp = InStr(zz, tt)
While pp
If Mid(zz & "X", pp + ii, 1)  tt Then ee = ee + ii
pp = InStr(pp + ii + 1, zz, tt)
Wend
If ee > kk Then Exit For
Next ii
KennzRichtig = kk = ee
End Function

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Hi Erhard,
da hatte ich nur nach vorn geschaut, wobei doch Rücksicht genauso wichtig ist. :-)
Nicht nur dein Beispiel - Zeile 7 war auch falsch.
Hier mein 2. Vorschlag:

	A	B	C	D	E
1	Vorgaben		gerechnet
2	Zahl	Kennzahl	richtig	Kennzahl	OK
3	1223331	7	WAHR	7	WAHR
4	1223332	6	WAHR	6	WAHR
5	1234567	1	WAHR	1	WAHR
6	1233233	1	WAHR	1	WAHR
7	1122233	0	WAHR	0	WAHR
8	1122312	4	FALSCH	3	FALSCH
9	3331221	6	FALSCH	7	FALSCH
10	1113331	5	FALSCH	4	FALSCH
11	1113331	4	WAHR	4	WAHR

Formeln der Tabelle

Zelle	Formel
C3	=KennzRichtig(A3;B3)
D3	=KennZahl(A3)
E3	=KennzahlOK(A3;B3)

Und der Code:


Function KennZahl(zz As String) As Integer
Dim ii As Integer, tt As String, pp As Integer, ee As Integer
For ii = 1 To 3
tt = WorksheetFunction.Rept(CStr(ii), ii)
pp = InStr(zz, tt)
While pp
If Mid("X" & zz, pp, ii)  tt And _
Mid(zz & "X", pp + 1, ii)  tt Then ee = ee + ii
pp = InStr(pp + ii + 1, zz, tt)
Wend
Next ii
KennZahl = ee
End Function
Function KennzRichtig(zz As String, kk As Integer) As Boolean
Dim ii As Integer, tt As String, pp As Integer, ee As Integer
For ii = 1 To 3
tt = WorksheetFunction.Rept(CStr(ii), ii)
pp = InStr(zz, tt)
While pp
If Mid("X" & zz, pp, ii)  tt And _
Mid(zz & "X", pp + 1, ii)  tt Then ee = ee + ii
pp = InStr(pp + ii + 1, zz, tt)
Wend
If ee > kk Then Exit For
Next ii
KennzRichtig = kk = ee
End Function

Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

	A	B	C	D	E
1	121333122			Vorgaben
2	122122322	33	Länge	9
3	122133312		Ziffern	3
4	122322122	333233322	Kennzahl	8
5	131333122		mit Ziffer	2	oder 0
6	132233322		an Position	9	oder 0
7	133312122
8	133312212
9	133313122
10	133313332
11	133322322
12	212233322

Forumthread: Kennzahl ermitteln

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Kennzahl ermitteln

Forumthread: Kennzahl ermitteln

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread