|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 2 QR Codes erstellen |
26.07.2022 12:19:41 |
Sinan |
|
|
|
26.07.2022 13:36:17 |
Gast95964 |
|
|
|
26.07.2022 19:39:59 |
Gast15772 |
|
|
|
27.07.2022 17:47:28 |
Gast16832 |
|
|
Von:
Sinan |
Datum:
26.07.2022 12:19:41 |
Views:
1196 |
Rating:
|
Antwort:
|
Thema:
2 QR Codes erstellen |
|
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
2 QR Codes erstellen |
26.07.2022 12:19:41 |
Sinan |
|
|
|
26.07.2022 13:36:17 |
Gast95964 |
|
|
|
26.07.2022 19:39:59 |
Gast15772 |
|
|
|
27.07.2022 17:47:28 |
Gast16832 |
|
|