EPC GiroCode per VBA

Lilli · 2022-07-21T20:58:18+00:00

Hallo Ihr lieben, ich bräuchte bitte Hilfe beim Erstellen eines EPC bzw. GiroCode per VBA. Ich weiß nicht welche notwendigen Daten bereitgestellt werden, aber das würde ich in eine Zeile oder untereinander vorbereiten und ich bräuchte dafür ein Makro, der daraus ein QR Barcode für die Bank erstellt. Hat jemand vielleicht eine Idee, wo man sowas bekommt bzw. wie man sowas macht? ich freue mich über jede Hilfe. vielen Dank im Voraus. liebe Grüße, Lilli :)

Hallo Lilli,
es ist mir wohl sehr langweilig, dass ich auch noch die Internet-Recherche erledige. Aber ok: das Thema ist nicht ganz uninteressant. Endlich mal was neues.
Aus https://de.wikipedia.org/wiki/EPC-QR-Code erfährt man was in diesem QR einkodiert werden soll.
Aus https://vbatrainer.de/qr-code/ bekommt man eine einfache VBA, um ein QR zu erezugen. Nicht toll, weil es über Google geht und somit Bankdaten ins Internet verstreut... Man kann auch den Teufel überall sehen.
beide zusammen ergibt folgendes:


Sub QR_erzeugen()
Dim QR_String As String
If ActiveSheet.Range("Betrag") = 0 Then MsgBox "Betrag darf nicht null sein!": Exit Sub
QR_String = "BCD" & vbLf & "002" & vbLf & "2" & vbLf & "SCT"
QR_String = QR_String & vbLf & ActiveSheet.Range("BIC")
QR_String = QR_String & vbLf & ActiveSheet.Range("Name")
QR_String = QR_String & vbLf & ActiveSheet.Range("IBAN")
QR_String = QR_String & vbLf & "EUR" & Replace(Format(ActiveSheet.Range("Betrag"), "0.00"), ",", ".")
QR_String = QR_String & vbLf & ActiveSheet.Range("zweck")
QRCode QR_String
End Sub
Function QRCode(QRCode_Wert As String) As String
'Variablen deklarieren
Dim sURL As String
Dim rngCell As Range
'Zelle auslesen
Set rngCell = ActiveCell
'URL definieren
sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=100x100&&chl=" & QRCode_Wert
'Alten QR-Code löschen, falls vorhanden
On Error Resume Next
ActiveSheet.Pictures("QRCode_" & rngCell.Address).Delete
On Error GoTo 0
'QR-Code einfügen
With ActiveSheet.Pictures.Insert(sURL)
.Name = "QRCode_" & rngCell.Address
.Left = rngCell.Left + 5
.Top = rngCell.Top + 5
.Width = .Width * 1.5
.Height = .Height * 1.5
End With
'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Function

Ich benutze benannte Zellen, um das gesamt zu vereinfachen. Das wirst Du sicher umkrempeln können.
Wenn Du einige Test machen möchtest, kann ich Dir gern mit IBAN zur Verfügung stellen ;-)
VG
Yal

Hallo Lilli,
viele Fragen...
Googeln:
nicht nach "Excel vba GiroCode", es ist zu spezifisch (obwohl jetzt wird diese Thread gefunden. In ein paar Tage).
Ich habe "GiroCode" und Wiki gefunden, dann "VBA QR Code" und nach ein paar Seiten den vbatrainer-Link, später den ms-Forum-Beitrag gefunden.
Dann die beiden zusammengefügt
Extras, Verweise:
es passiert alles in Excel. Von Word wird nur Standardfunktionalität verwendet und dort läuft kein code. Dort nichts zu ändern.
Mein IBAN:
war ein Scherz :-) ich poste keine persönlich Informationen im Netz. Am besten testest Du mit eigener IBAN (so habe ich in meinem KSK-App gemacht)
ohne BIC:
in Version 002 darf es ohne BIC sein. Dafür die Zeile vor Name leer lassen, in dem vbLf zweimal vorkommt:


    QR_String = "BCD" & vbLf & "002" & vbLf & "2" & vbLf & "SCT"
QR_String = QR_String & vbLf & vbLf & ActiveSheet.Range("Name")
QR_String = QR_String & vbLf & ActiveSheet.Range("IBAN")
QR_String = QR_String & vbLf & "EUR" & Replace(Format(ActiveSheet.Range("Betrag"), "0.00"), ",", ".")
QR_String = QR_String & vbLf & ActiveSheet.Range("zweck")

Im Arbeitsblatt-Codepane oder Module:
in dem Fall spielt es keine Rolle. Im Code wird auf ActiveSheet verwiesen.
Daten untereinander oder nebeneinander?
Ich habe jede einzelne Zelle eine Name gegeben, z.B. "IBAN". Somit kann ich auf ActiveSheet.Range("IBAN") zugreifen. Wichtig ist nicht, wo die Daten gelesen werden, sondern wie diese in QR_String zusammengesetzt werden. Also mit vbLF getrennt.
Wie erkennt das Programm die grünmarkierten Felder in der Tabelle?
das ist eine "menschorientierte" Gestaltung deiner Anwendung. Zum programmieren, viel zu unstabil.
Idealerweise hast Du die Empfängername in einer Spalte, den IBAN in eine andere, usw. Alles auf eine Zeile. Dann kann man auf der Zeile der "aktive Zelle" und die passende Spalte zugreifen.
"ich bin analphabet, was vba angeht. :)"
So ging es mir auch vor 20 Jahren. Tipp: immer Makro-Rekorder verwenden, und schauen, was für ein Code dabei rauskommt.
Ein Fehler habe ich letzten Beitrag gemacht: ein Testversion "2"
QRCode_Create2 Worksheets("Tabelle1").Range("F5"), QR_String
muss in
QRCode_Create Worksheets("Tabelle1").Range("F5"), QR_String
gewandelt werden.
VG
Yal

Forumthread: EPC GiroCode per VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

EPC GiroCode mit VBA erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)