Hi, mit dieser Benutzerdefinierten Funktion kannst du EAN 128 A/B/C berechnen:brainstuff hat geschrieben: ↑So 31. Dez 2017, 02:43Noch besser wäre ein Add-on was von einer Nummer in einer Zelle selbst einen Bar-Code in einer Nebenzelle erzeugen kann.
Code: Alles auswählen
Function F_BarCode128(SText,SType)
'Startcodes: 192 = A; 193 = B; 194 = C Stopp 200 bei meinem Font aus dem Internet Zoll
'Startcodes: 208 = A; 209 = B; 210 = C Stopp 211 bei meinem selbst bearbeiteten Font
select case SType
Case "A"
nType = 208
Case "B"
nType = 209
Case "C"
nType = 210
end select
ocell = thiscomponent.sheets(0).getcellbyposition(0,1)
nCheck = 103
for i = 1 to len(SText)
nCheck = nCheck+( i * (ASC(Mid(SText,i,1))-32))
next i
nChecknumber = nCheck mod 103
F_BarCode128 = " "+chr(nType)+SText+nChecknumber+chr(211)+" "
'ocell.string = sCode
End function
Sieht dann so aus: Gruß R