[Thomynator]

Hallo an Alle erst mal.

Also:
ich habe Excel 2003 und erstelle eine "benutzerdefinierte Funktion" mit folgendem VBA Code (da is auch die Berechnung drin....

Public Function Interleaved_2_of_5(Zahl As Range) As Variant 
	Dim intIndex As Integer 
	Dim lngSum As Long 
	Dim blnSwitch As Boolean 
	If IsNumeric(Zahl.Text) Then 
		For intIndex = Len(Zahl.Text) To 1 Step -1 
			If Not blnSwitch Then 
				lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1)) * 3 
			Else 
				lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1)) 
			End If 
			blnSwitch = Not blnSwitch 
		Next 
		lngSum = lngSum Mod 10 
		If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then 
			Interleaved_2_of_5 = CDbl(Zahl.Text & "0" & CStr(lngSum)) 
		Else 
			Interleaved_2_of_5 = CDbl(Zahl.Text & CStr(lngSum)) 
		End If 
	ElseIf Not IsEmpty(Zahl.Value) Then 
		Interleaved_2_of_5 = "Keine Zahl !" 
	End If 
End Function

So. Die Benutzerdefinierte Funktion wird auch erkannt und ich kann Sie nutzen. nur die Prüfsumme funktioniert nicht so recht.

Habe ein BSP: 0030449299002030 --> Prüfsumme ist 05 (also nur 5, aber da 2of5 Interleaved Modulo 10 nur grade stellen macht, setz ich da ne 0 davor)
aber wenn ich das mitn Excel mach bekomme ich das hier raus: 003044929900203000

die beiden nullen davor müssen sein (systembarcode zum abscannen) aber wo ist bitte mein Fehler wegen dem Prüfcode?

Hoffe mir ist zu helfen =)

lg

Tommy

Dieser Beitrag wurde von Thomynator bearbeitet: 28. Oktober 2010 - 12:00

[egal8888]

Falsch:

Zitat

If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then
Interleaved_2_of_5 = CDbl(Zahl.Text & "0" & CStr(lngSum))
Else
Interleaved_2_of_5 = CDbl(Zahl.Text & CStr(lngSum))
End If

Richtig:

Zitat

If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then
Interleaved_2_of_5 = Zahl.Text & "0" & CStr(lngSum)
Else
Interleaved_2_of_5 = Zahl.Text & CStr(lngSum)
End If

Dieser Beitrag wurde von egal8888 bearbeitet: 28. Oktober 2010 - 12:42

[Thomynator]

wow... das ging schnell =)

funktioniert einwandfrei =)

Vielen herzlichen Dank =)

[Thomynator]

So... muss das Thema leider noch mal hoch holen... es gibt momentan ein kleines Problem bei der Prüfziffer "0" wenn die Prüfziffer, wie in diesem Beispiel:

0005675453000010

null ist, bekomme ich hinten anstatt der "00" diese Ausgabe "010"
(komplett 0005675453000010010)

der aktuelle Code ist dieser hier:

Public Function Interleaved_2_of_5(Zahl As Range) As Variant
	Dim intIndex As Integer
	Dim lngSum As Long
	Dim blnSwitch As Boolean
	If IsNumeric(Zahl.Text) Then
		For intIndex = Len(Zahl.Text) To 1 Step -1
			If Not blnSwitch Then
				lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1)) * 1
			Else
				lngSum = lngSum + CInt(Mid$(Zahl.Text, intIndex, 1)) * 3
			End If
			blnSwitch = Not blnSwitch
		Next
		lngSum = lngSum Mod 10
		If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then
			Interleaved_2_of_5 = Zahl.Text & "0" & CStr(10 - lngSum)
			Else
			Interleaved_2_of_5 = Zahl.Text & "0" & CStr(10 - lngSum)
			End If
	ElseIf Not IsEmpty(Zahl.Value) Then
		Interleaved_2_of_5 = "Keine Zahl !"
	End If
End Function

kann mir da noch wer helfen? bin grad verwirrt..
das Problem könnte sein, dass ich sage "CStr(10 - lngSum)"
aber sowas in der Art brauche ich, da die anderen Prüfziffern (außer 0 und 5) nicht korrekt ausgegeben werden (sprich die lngSum ist "2" und die Prüfziffer die stehen muss ist die differenz von 10 zu der summe... nur wenn die berechnete Zahl null ist heißt es ja 10-0 =10 --> theoretisch richtig, nur stehen darf da nur die letzte Ziffer, sprich "0")
hmm...

Vielen Dank schon mal...

lg

Tommy

Dieser Beitrag wurde von Thomynator bearbeitet: 09. November 2010 - 12:23

[egal8888]

Wenn ich Dich richtig verstanden hab, dann müsste das sein, was Du möchtest:

If CBool(Len(Zahl.Text) + Len(CStr(lngSum)) Mod 2) Then
  Interleaved_2_of_5 = Zahl.Text & "0" & IIf(lngSum > 0, CStr(10 - lngSum), "0")
Else
  Interleaved_2_of_5 = Zahl.Text & "0" & IIf(lngSum > 0, CStr(10 - lngSum), "0")
End If

[Thomynator]

aah genau. das habe ich gesucht, vielen Dank..

(wobei ich da hätte auch selber drauf kommen können is ja nur ne wenn dann quasi -.-)



Trotzdem mega thx

Dieser Beitrag wurde von Thomynator bearbeitet: 09. November 2010 - 13:38