Get Started

QR-Code in Excel erstellen – So einfach geht’s!

admin

·

·

Tutorial im PDF-Format downloaden

In diesem Tutorial führen wir dich Schritt für Schritt durch den Prozess, wie du mit VBA in Excel einen QR Code erstellen kannst. QR-Codes sind eine praktische Möglichkeit, Informationen kompakt zu speichern und schnell zu erfassen. Mit einem selbst erstellten QR-Generator kannst du Codes für verschiedene Zwecke generieren, wie beispielsweise URLs, Kontaktdaten oder Produktinformationen.

Easy

Level: Einsteiger

Kurz

Dauer: Kurz

Anleitung: QR-Code in Excel erstellen

1. Arbeitsblatt vorbereiten

  1. Öffne Excel und erstelle ein neues Arbeitsblatt
  2. Bereite das Arbeitsblatt wie im Screenshot zu sehen vor oder überlege dir ein eigenes Design
  3. Um den QR-Code zu generieren, füge eine Schaltfläche oder ein Formularsteuerelement hinzu
  4. Klicke dazu auf die Registerkarte „Entwicklertools“ und wähle das gewünschte Steuerelement aus
  5. Drücke „Alt + F11“, um den VBA-Editor zu öffnen
  6. Klicke auf „Einfügen“ und wähle „Modul“ aus, um ein neues Modul zu erstellen
  7. Erstelle eine neue Sub-Prozedur „GenerateQRCode“

2. Variablen deklarieren und zuweisen

Deklariere die notwendigen Variablen

Dim qrData As String
Dim qrCode As Range

In der String-Variable qrData speichern wir die Informationen ab, die im QR-Code enthalten sein sollen (In diesem Beispiel stehen die Daten in Zelle „A1“). 

qrData = Range("A1").Value

Mit der Range qrCode bestimmen wir den Ort im Tabellenblatt, an dem der generierte QR-Code angezeigt werden soll (In diesem Beispiel wird der QR-Code in Zelle „B1“ angezeigt).

Set qrCode = Range("B1")
qrCode.ClearContents
qrCode.Select

3. Online-API ansprechen

Generiere den QR-Code mithilfe einer Online-API und füge ihn in die Zielzelle ein.

ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?data=" & qrData).Select

4. Darstellung QR-Code anpassen

Passe die Größe und Position des QR-Codes an (Größe hier: 150x150px).

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 150
Selection.ShapeRange.Width = 150
Selection.ShapeRange.Top = qrCode.Top
Selection.ShapeRange.Left = qrCode.Left

5. Beispieldaten eingeben und QR-Code generieren

  1. Kehre zum Excel-Arbeitsblatt zurück und gib die gewünschten QR-Daten in die Zelle „A1“ ein, zum Beispiel eine URL oder eine Textnachricht.
  2. Klicke auf die Schaltfläche oder das Formularsteuerelement im Arbeitsblatt, um den QR-Code zu generieren.
  3. Der generierte QR-Code wird automatisch in der definierten Zelle „B1“ angezeigt.

6. Vollständiger Programmcode

Hier der vollständige VBA Code:

Sub GenerateQRCode()
    Dim qrData As String
    Dim qrCode As Range
    
    qrData = Range("A1").Value
    
    Set qrCode = Range("B1")
    qrCode.ClearContents
    qrCode.Select
    
    ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & qrData).Select
    
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = qrCode.Height
    Selection.ShapeRange.Width = qrCode.Width
    Selection.ShapeRange.Top = qrCode.Top
    Selection.ShapeRange.Left = qrCode.Left
End Sub

Fazit

So einfach lässt sich ein QR Code in Excel erstellen. Nutze diese Fähigkeiten, um deine Excel-Anwendungen weiter anzupassen und effizienter zu arbeiten. QR-Codes bieten eine schnelle und bequeme Möglichkeit, Informationen zu teilen und zu speichern, und mit deinem selbst programmierten QR-Generator bist du bestens gerüstet, um sie in deinen Projekten einzusetzen. Viel Spaß beim erstellen von QR-Codes mit VBA in Excel!

Projektdateien

Tutorial im PDF-Format

QRCodeGenerator.xlsm

Empfohlene Tutorials

Barcodes in Excel erstellen – So einfach geht’s!

admin