2 QR Codes erstellen

Forumthread: 2 QR Codes erstellen

26.07.2022 13:31:59

sinan

Hallo, ich habe folgendes Problem.

Ich würde gerne zwei QR Code aus Zelle A18 und A19 erstellen. Dafür habe ich mir folgenden Code aus dem Internet geholt.
In dem ersten Abschnitt wird der QR Code aus Zelle A18 erstellt. Danach überschreibe ich die Variable xSRg mit dem Wert der Zelle A19. Nun sollte eigentlich ein anderer QR Code eingefügt werden. Das Problem ist jedoch, dass der 2. QR Code den selben Inhalt wie der erste hat.
Egal was ich für die Variable eingebe, es tut sich nichts ändern.

Ich hoffe jemand hat eine Lösung für mein Problem.


Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Set xSRg = Range("$A$18")
If xSRg Is Nothing Then Exit Sub
Set xRRg = Range("$H$14")
If xRRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = xSRg.Text
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste xRRg
xObjOLE.Delete
Application.ScreenUpdating = True
'Dim xSRg As Range
'Dim xRRg As Range
'Dim xObjOLE As OLEObject
On Error Resume Next
Set xSRg = Range("$A$19")
If xSRg Is Nothing Then Exit Sub
Set xRRg = Range("$R$14")
If xRRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.2")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = xSRg.Text
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste xRRg
xObjOLE.Delete
Application.ScreenUpdating = True

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 QR Codes erstellen

26.07.2022 14:34:40

mumpel
AW: 2 QR Codes erstellen

26.07.2022 14:42:49

MCO
AW: 2 QR Codes erstellen

26.07.2022 19:39:26

onur
AW: 2 QR Codes erstellen

28.07.2022 08:57:02

SF

AW: 2 QR Codes erstellen

26.07.2022 14:34:40

mumpel

Hallo!
Was ist "BARCODE.BarCodeCtrl.1"? Ein Standard-Element von Excel ist das nicht.
Gruß, René

AW: 2 QR Codes erstellen

26.07.2022 14:42:49

MCO

Hallo Sinan!
Dein Code liefert bei mir gar kein Ergebnis.
Statt dessen liefer ich dir einen, den ich auch mal hier "gefunden" hab.
Probier es mal aus. Die Ranges hab ich schon dich angepasst. Was die Parameter in Word bedeuten weiß ich allerdings nicht....


Sub zwei_codes_machen()
QRCode_Create Range("H14"), Range("A18")
QRCode_Create Range("R13"), Range("A19")
End Sub
Sub QRCode_Create(ZielRange As Range, Text As String)
Dim wdapp As Object
Dim WD As Object
'Abgeleitet aus https://www.ms-office-forum.net/forum/showthread.php?p=2055193
On Error Resume Next
Set wdapp = GetObject(, "Word.Application")
If wdapp Is Nothing Then Set wdapp = CreateObject("Word.Application")
'wdapp.Application.Visible = 1
Set WD = wdapp.Documents.Add
WD.Fields.Add(Range:=WD.Range, Type:=-1, Text:="DISPLAYBARCODE " & Chr(34) & CStr(Text) & Chr(34) & " QR \q 3 \s 100 ", PreserveFormatting:=False).Copy
ZielRange.Select
ZielRange.Parent.PasteSpecial Format:="Picture (JPEG)", Link:=False, DisplayAsIcon:=False
wdapp.Quit 0
Set wdapp = Nothing
Set WD = Nothing
End Sub

Gurß, MCO

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um zwei QR Codes aus den Zellen A18 und A19 zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser Code erstellt QR Codes in Excel und nutzt die DISPLAYBARCODE-Funktion in Word, um die QR Codes zu generieren.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject" > Einfügen > Modul.
Kopiere den folgenden VBA-Code in das Modul:

Sub zwei_codes_machen()
    QRCode_Create Range("H14"), Range("A18")
    QRCode_Create Range("R14"), Range("A19")
End Sub

Sub QRCode_Create(ZielRange As Range, Text As String)
    Dim wdapp As Object
    Dim WD As Object
    On Error Resume Next
    Set wdapp = GetObject(, "Word.Application")
    If wdapp Is Nothing Then Set wdapp = CreateObject("Word.Application")
    Set WD = wdapp.Documents.Add
    WD.Fields.Add Range:=WD.Range, Type:=-1, Text:="DISPLAYBARCODE " & _
        Chr(34) & CStr(Text) & Chr(34) & " QR \q 3 \s 100 ", PreserveFormatting:=False
    ZielRange.Select
    ZielRange.Parent.PasteSpecial Format:="Picture (JPEG)", Link:=False, DisplayAsIcon:=False
    wdapp.Quit 0
    Set wdapp = Nothing
    Set WD = Nothing
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Drücke ALT + F8, wähle zwei_codes_machen aus und klicke auf "Ausführen".

Jetzt sollten die QR Codes in den angegebenen Zellen erscheinen.

Häufige Fehler und Lösungen

Fehler: Der QR Code wird nicht erstellt.
- Lösung: Stelle sicher, dass Word auf deinem Computer installiert ist und keine andere Instanz von Word läuft.
Fehler: QR Codes zeigen denselben Inhalt an.
- Lösung: Überprüfe, ob die Zellen A18 und A19 unterschiedliche Werte enthalten. Der Code verwendet die Werte dieser Zellen für die QR Code-Erstellung.
Fehler: BARCODE.BarCodeCtrl.1 nicht gefunden.
- Lösung: Stelle sicher, dass du die richtige Bibliothek für Barcodes in Excel installiert hast. Es kann notwendig sein, ein Add-in zu verwenden, wenn die Standardmethoden nicht verfügbar sind.

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, kannst du auch QR Codes direkt in Excel erstellen, indem du ein Online-Tool oder einen QR Code Generator nutzt. Eine weitere Möglichkeit ist, add-ins zu verwenden, die QR Codes erstellen können, ohne dass du VBA verwenden musst.

Ein Beispiel für ein Excel-Add-in, das QR Codes erstellt, ist "QR Code Generator" für Excel.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du QR Codes in Excel erstellen kannst:

QR Code aus URL erstellen:
- Gib in Zelle A18 eine URL ein, z.B. https://example.com.
- Führe den VBA-Code aus, um einen QR Code für diese URL zu generieren.
QR Code aus Text erstellen:
- Gib in Zelle A19 einen beliebigen Text ein, z.B. Hallo Welt!.
- Der Code wird einen QR Code für diesen Text erzeugen.

Tipps für Profis

QR Codes automatisch erstellen: Verwende Schleifen in deinem VBA-Code, um QR Codes automatisch für eine ganze Liste von Werten in einer Spalte zu generieren.
Styling anpassen: Du kannst die Größe und das Format der QR Codes anpassen, indem du die Parameter in der DISPLAYBARCODE-Funktion änderst.
Daten dynamisch verknüpfen: Nutze Excel-Formeln, um die Daten für die QR Codes dynamisch zu generieren, sodass sich die QR Codes automatisch aktualisieren, wenn sich die Werte ändern.

FAQ: Häufige Fragen

1. Wie kann ich QR Codes in Excel erstellen, ohne VBA zu verwenden?
Du kannst QR Codes auch mit Online-Generatoren erstellen und die QR Codes als Bilder in Excel einfügen.

2. Funktioniert das auch in Excel Online?
Leider sind VBA-Makros in Excel Online nicht verfügbar. Du musst Excel für Desktop verwenden, um diesen Code auszuführen.

3. Welche Excel-Version benötige ich?
Der VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und höher) funktionieren. Achte darauf, dass du Word installiert hast.

Beliebteste Forumthreads (12 Monate)