Office: VBA QRCode löschen

Hallo zusammen,
ich habe einen QR-Code über VBA erzeugt und möchte, dass wenn die Zeile aus der der QR-Code erzeugt werden soll leer ist, das auch kein QR-Code erzeugt werden soll.

Function QRCode(QRCode_Wert As String) As String

'Variablen deklarieren
Dim rngCell As Range
Dim sURL As String

'Zelle auslesen
Set rngCell = Application.Caller

'URL definieren
sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=85x85&&chl=" & QRCode_Wert

'QR-Code alt löschen, falls vorhanden
On Error Resume Next
ActiveSheet.Pictures("QRCode_" & rngCell.Address).Delete
On Error GoTo 0


Sub CheckQRCode()
If rngCell <> Null Then

'Qr-Code einfügen
With ActiveSheet.Pictures.Insert(sURL)
.Name = "QRCode_" & rngCell.Address
.Left = rngCell.Left
.Top = rngCell.Top
End With

Else
Cells(rngCell) = ""
End Sub

End Function

Es wäre schön, wenn mir dazu jemand helfen könnte!
Danke vorab.

Gruß
Lukas

 

Hallo,

das ist nicht möglich, denn dein VBA-Code ist syntaktisch falsch.

Vermutlich müsste der VBA-Code in etwa so lauten:

Code:

Option Explicit

Function QRCode(QRCode_Wert As String) As String

   'Variablen deklarieren
   Dim rngCell As Range
   Dim sURL As String
  
   'Zelle auslesen
   Set rngCell = Application.Caller
  
   'URL definieren
   sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=85x85&&chl=" & QRCode_Wert
  
   'QR-Code alt löschen, falls vorhanden
   On Error Resume Next
   ActiveSheet.Pictures("QRCode_" & rngCell.Address).Delete
   On Error GoTo 0
  
   'Testen, ob Variable "QRCode_Wert" Text enthält:
   If Len(QRCode_Wert) Then
  
      'Qr-Code einfügen
      With ActiveSheet.Pictures.Insert(sURL)
         .Name = "QRCode_" & rngCell.Address
         .Left = rngCell.Left
         .Top = rngCell.Top
      End With
  
   End If
  
End Function

 

Vielen Dank für die schnelle Antwort.
Leider hat der Code keine Änderung gebracht.

Code funktioniert soweit, dass QR-Code erstellt wird wenn die Zeile beschrieben ist, bei leerer Zeile wird jedoch immer noch ein QR-Code erstellt.

 

Moin!
als Formel in der Spalte B (runterkopieren):

Code:

=WENN(A1="";"";QRCode(A1))

Grüße

 

Moin,
das hatten wir bereits getestet, leider ohne Erfolg.

Grüße

 

oder, wenn's denn VBA sein soll, im Worksheet:

Code:

Sub Test()
Dim i As Integer

For i = 1 To 10
    Cells(i, 2) = WorksheetFunction.QRCode(Cells(i, 1))
Next i
End Sub

Grüße

Vielleicht noch als Anmerkung: Die Function QRCode in ein allgemeines Modul, die Sub Test ins Worksheet. Bei mir funzt das.

 

Hi Bastler,

das funktioniert so aber nur, wenn du dein allgemeines Modul "WorksheetFunction" nennst. Davon würde ich allerdings tunlichst abraten!