HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread
Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA bescheiden
Case
21.04.2026 14:56:41
Es könnte reichen,...
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
Beim Antworter bedanken Als gefällt mir markieren Als hervorragend auszeichnen
Als Antwort auf diesen Beitrag
Stefan Sch.
21.04.2026 12:51:44
Abruf von QR Code via Api-Server -> Feldfehler beim Öffnen
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


Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Bitte einen Anwendernamen ohne @ eingeben.
Bitte das Passwort eingeben.
Bitte eine gültige E-Mail-Adresse eingeben.
Bitte einen Betreff eingeben.
Weitere Optionen
Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.
Beispieldatei hochladen
Bitte einen Nachrichtentext eingeben.