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

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 15:32:20

Gerade getestet - ...

Moin Stefan, :-)

... so klappt es bei mir: ;-)

=BILD("">https://api.qrserver.com/v1/create-qr-code/?data="&URLCODIEREN(A1&B1&C1&B1&D1&E1)&JETZT()*0)

Servus
Case

Beim Antworter bedanken Als gefällt mir markieren Als hervorragend auszeichnen

Als Antwort auf diesen Beitrag

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

Folgenachrichten

AW: Gerade getestet - ... - von Stefan Sch. am 21.04.2026 17:04:57
- Hier als... - von Case am 21.04.2026 17:12:48
  - AW: Hier als... - von Stefan Sch. am 22.04.2026 10:32:27
    - AW: Hier als... - von Stefan Sch. am 27.04.2026 12:12:54
- Nun ohne... - von Case am 21.04.2026 17:31:35

Zum Forumthread

Antwort auf Beitrag erstellen

Name

Bitte einen Anwendernamen ohne @ eingeben.

Passwort

Bitte das Passwort eingeben.

Email-Adresse

Bitte eine gültige E-Mail-Adresse eingeben.

Betreff

Bitte einen Betreff eingeben.

Weitere Optionen

Als noch offen markieren.

Aktivieren, wenn die Frage/der Beitrag noch nicht beantwortet wurde und unter Listen > Offene Threads erscheinen soll.

Beispieldatei hochladen

fett 

Setzt den Text in b-Tags (Fettschrift)

Dieser Text ist in Fettschrift formatiert

So sieht das dann aus

Dieser Text ist in Fettschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der hervorzuhebende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

kursiv 

Setzt den Text in i-Tags (Kursivschrift)

Dieser Text ist in Kursivschrift formatiert

So sieht das dann aus

Dieser Text ist in Kursivschrift formatiert

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist der kursiv zu setzende Text zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung des markierten Textes gesetzt.

Formel <pre>

Setzt den Text in pre-Tags

<pre>=FILTER(B2:C11;A2:A11=F1)</pre>

So sieht das dann aus

=FILTER(B2:C11;A2:A11=F1)

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Neben der optischen Hervorhebung dient die pre-Setzung auch der Verhinderung von HTML-Problemen, die dadurch entstehen, dass in Formeln enthaltene Kleiner-/Größer-Als-Zeichen vom Browser als HTML-Tags missverstanden werden.

Code <pre><code>

Setzt den Text in pre- und code-Tags

<pre><code class="language-vba">
Option Explicit
Sub NaEndlich()
MsgBox "Hallo Welt"
End Sub
</code></pre>

So sieht das dann aus


   Option Explicit
   Sub NaEndlich()
      MsgBox "Hallo Welt"
   End Sub

Erklärung

Ist vor dem Anklicken der Schaltfläche kein Text markiert, ist die Formel zwischen die neu generierten Tags einzufügen, andernfalls werden die Tags als Umrandung der markierten Formel gesetzt.

Liste <li>

Setzt den Text in li (Listenpunkte)

<li>Erste Zeile</li>
<li>Zweite Zeile</li>
<li>Dritte Zeile</li>

So sieht das dann aus

Erste Zeile
Zweite Zeile
Dritte Zeile

Erklärung

Bitte einen Nachrichtentext eingeben.