QR-Code

QR Codes in Excel mit einer eigenen Funktion erstellen

Inhalt

  • QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen
  • URL zur Generierung des QR-Codes definieren
  • GET-Request an die Google-API senden
  • Alte QR-Codes löschen
  • Fehlermeldung vermeiden, wenn kein Bild vorhanden ist
  • Test der generierten QR-Codes mit dem Smartphone

    Hinweis: Die verwendete google API wurde verworfen. Es wird aktuell auf die aktiv verwaltete Google Charts API verwiesen. Eventuell gibt es darüber die Möglichkeit einen QR Code zu generieren.

Code

				
					Function QRCode(QRCode_Wert As String) As String

'Variablen deklarieren
Dim sURL As String
Dim rngCell As Range

'Zelle auslesen
Set rngCell = Application.Caller

'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
End With

'Bereitgestellt von VBATrainer: www.vbatrainer.de

End Function
				
			

Um VBA zu lernen und besser zu verstehen, empfehle ich dir mein kostenloses Grundlagentraining, in dem ich dir die ersten Schritt in Excel-VBA zeige.

Teile diesen Beitrag

Empfehlungen für dich

VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung