EAN 13 Barcode in Fußzeile mit VBA
15.06.2021 13:45:37
Andl
ich habe einen EAN13 Code zusammengebaut - in einem Prüfziffergenerator stimmt alles, der Code ist für sich alleine mit der Telefonkamera lesbar.
EANCode = "2" & Format(.Cells(2, 2), "000") & "09" & .Cells(11, 2) & Format(.Cells(13, 2), "00")
Nun möchte ich dass der Code in die rechte Fußzeile kopiert wird - hierzu habe ich folgenden Code:
Tabelle8.PageSetup.RightFooter = "&""Code EAN13,Standard""&16" & "" & EAN_13(EANCode) & ""
Schaue ich im Anschluss an die Fußzeile, fehlt mir immer die vornstehende "2".
Hat hier jemand eine Idee?
Beste Grüße
Andl