Abruf von QR Code via Api-Server -> Feldfehler beim Öffnen

Forumthread: Abruf von QR Code via Api-Server -> Feldfehler beim Öffnen

21.04.2026 14:51:44

Stefan Sch.

Werte Forumsteilnehmer,

ich hätte eine Frage zu einer Sache, an der ich jetzt schon seit einiger Zeit erfolglos herumschraube in der Hoffnung, dass jemand aus dem Forum mir hier behilflich sein könnte.
Es geht um folgendes ... ich würde gerne in einer Tabelle (Dateiformat: Excel Arbeitsmappe mit Makros (*.xlsm)) einen QR Code mittels Api-Server aus dem Web importieren, was eigentlich auch funktioniert.

Ich habe dies in der betreffenden Zelle mit
=BILD("https://api.qrserver.com/v1/create-qr-code/?data="&G56&BB56&X56&BB56&AQ56&BB56&"")
realisiert, der QR Code wird angezeigt und entspricht der gewünschten Funktionalität.

Jetzt zum Problem ... wenn ich die Datei speichere und danach wieder öffne, steht in dieser Zelle der Fehler
#FELD!
Gehe ich nun auf die Zelle und bestätige in der Befehlzeile die oben aufgeführten BILD-Funktion mit "Enter", dann erst wird die Zelle aktualisiert und der QR-Code wieder angezeigt.
Wie sicher nicht schwer zu erraten, suche ich nach einer Lösung, dass dies automatisch mit Öffnen der Datei geschieht.
Könnte mir hierzu jemand einen Tip geben?

Grüße
Stefan

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Es könnte reichen,...

21.04.2026 16:56:41

Case
Gerade getestet - ...

21.04.2026 17:32:20

Case
AW: Gerade getestet - ...

21.04.2026 19:04:57

Stefan Sch.
Hier als...

21.04.2026 19:12:48

Case
AW: Hier als...

22.04.2026 12:32:27

Stefan Sch.
AW: Hier als...

27.04.2026 14:12:54

Stefan Sch.
Nun ohne...

21.04.2026 19:31:35

Case
AW: Es könnte reichen,...

21.04.2026 18:52:59

Stefan Sch.

Es könnte reichen,...

21.04.2026 16:56:41

Case

Moin Stefan, :-)

... wenn du z. B. so schreibst: ;-)

=JETZT()*0+BILD("">https://api.qrserver.com/v1/create-qr-code/?data="&G56&BB56&X56&BB56&AQ56&BB56)&""

Oder per VBA beim Öffnen der Datei (also Code unter "DieseArbeitsmappe"): ;-)

Option Explicit

Private Sub Workbook_Open()

    ThisWorkbook.RefreshAll

End Sub

Oder du lässt die BILD-Funktion ganz weg und baust es dir per VBA auf: ;-)

Option Explicit

Public Sub Main()

    Dim picBild As Picture

    Dim strQRURL As String

    Dim rngRange As Range

    Dim shpShape As Shape

    Application.ScreenUpdating = False

    With Tabelle1

        Set rngRange = .Range("H5")

        strQRURL = "https://api.qrserver.com/v1/create-qr-code/?data=" & _

            .Range("A1").Value & _

            .Range("B1").Value & _

            .Range("C1").Value & _

            .Range("B1").Value & _

            .Range("D1").Value & _

            .Range("E1").Value

        For Each shpShape In .Shapes

            If shpShape.TopLeftCell.Address = rngRange.Address Then

                shpShape.Delete

            End If

        Next shpShape

        Set picBild = .Pictures.Insert(strQRURL)

        With picBild

            .Left = rngRange.Left

            .Top = rngRange.Top

            .Width = rngRange.Width

            .Height = rngRange.Height

            .Placement = xlMoveAndSize

        End With

    End With

    Application.ScreenUpdating = True

End Sub

Ich denke du siehst, wo du anpassen musst (die Zellen und eventuell Tabelle1 - das ist der Codename des Tabellenblattes). ;-)

Sieht dann so aus: ;-)

Userbild

Servus
Case

AW: Gerade getestet - ...

21.04.2026 19:04:57

Stefan Sch.

Hi Case,

ich habe diese Zeile in Excel reinkopiert, bei mir kommt da allerdings "Formelfehler".

Grüße
Stefan

Hier als...

21.04.2026 19:12:48

Case

Moin Stefan, :-)

... Beispieldatei: ;-)
https://www.herber.de/bbs/user/180603.xlsb

Wenn du es über VBA machen möchtest, dann kann man es über "Worksheet_Change" bei Zelländerung starten: ;-)
https://learn.microsoft.com/de-de/office/vba/api/Excel.Worksheet.Change

Servus
Case

AW: Hier als...

22.04.2026 12:32:27

Stefan Sch.

Hallo Case,

ich habe deine Vorschläge heute morgen ausprobiert, leider kommt bei mir dann der Fehler "#NAME?"

Ich habe zufällig hier in der Firma einen Bekannten von der IT getroffen, der scheint in Excel auch gut drauf zu sein und er schaut mal, ob er
etwas herausfinden kann ... eventuell liegt es auch an diversen Sicherheitseinstellungen.

Ich danke dir jedenfalls vielmals für deine Unterstützung.

Grüße
Stefan

AW: Hier als...

27.04.2026 14:12:54

Stefan Sch.

Hallo allerseits,

abschließend konnte das Problem gelöst werden durch Einfügen von Application.CalculateFull in der Sub Workbook_Open().

Grüße
Stefan

Nun ohne...

21.04.2026 19:31:35

Case

Moin Stefan, :-)

... 0 am Ende: ;-)
https://www.herber.de/bbs/user/180604.xlsx

Servus
Case

AW: Es könnte reichen,...

21.04.2026 18:52:59

Stefan Sch.

Hallo Case,

vielen Dank für deine Vorschläge, Nr. 1 und 2 funktionieren leider nicht.

Deinen VBA Code habe ich mal getestet, wenn ich das richtig sehe, habe ich da allerdings keine dynamische Komponente.
Wenn ich einen Zellenwert ändere, muss ich erst nochmal das Makro drüberlaufen lassen, damit ein aktualisierter QR Code ausgegeben wird.

Von der Funktionalität soll es so sein ... öffnen der Datei, Werte in den abgefragten Zellen eingeben bzw. diese anpassen ... mit sofortiger Aktualisierung des QR Codes, was mit der Bildfunktion gut klappt.

Grüße
Stefan

Abruf von QR Code via Api-Server -> Feldfehler beim Öffnen

Forumthread: Abruf von QR Code via Api-Server -> Feldfehler beim Öffnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread