Prüfen ob ein Objekt schon vorhanden ist
30.08.2018 18:51:14
P.
ich habe eine Frage zum o.g. Thema.
Ich möchte folgendes umsetzen:
Bei "Strg+egal" soll ein Makro starten, dass ein paar Formatierungen erledigt (das ist soweit kein Problem) und anschließend aus dem Inhalt einer Zelle einen Data-Matrixcode erstellt. Das habe ich soweit auch mit "ActiveBarcode" umgesetzt bekommen. Im Anschluss möchte ich diesen Code Formatieren... Hier habe ich ein Problem:
Ich führe das Makro aus ein Barcode wird erstellt. Im nächsten Schritt steigt er aus mit der Fehlermeldung "'438' Objekt unterstützt diese Eigenschaft oder Methode nicht"
Wenn ich nun aber das Makro erneut ausführe... kein Problem er setzt die Eigenschaft des Barcodes wie gewünscht. Jedoch erstellt er dann jedes mal einen weiteren Barcode.
Was ich nun möchte ist eine Überprüfung ob das Objekt "Barcode1" schon vorhanden ist. Wenn ja _ dann soll kein neuer Barcode erzeugt werden und nur die Eigenschaften angepasst werden. So soll dann auch der Barcode aktualisiert werden bei wechselnden Zelleninhalt (A32).
Sub Makro1()
' Makro1 Makro
' Formaterung der Zellen
Range("A32").Select
ActiveCell.FormulaR1C1 = _
"=""**C2**""&R[-26]C[8]&""**""&R[-26]C[10]&""**""&R[-29]C[5]&""**"""
Range("A32").Select
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.NumberFormat = "General"
'Erzeugen des Barcodes
ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarcodeCtrl.1", Link:=False _
, DisplayAsIcon:=False, Left:=509.25, Top:=475.5, Width:=139.5, Height:=65.25 _
).Select
'Anpassen der Eigenschaften
ActiveSheet.Barcode1.Text = Range("A32")
ActiveSheet.Barcode1.Type = "43"
ActiveSheet.Barcode1.LinkedCell = Range("A32")
End Sub
Ich habe schon ein paar If-Anweisungen versucht... Ich lande jedoch immer beim Fehler "Benötigt Objekt".
Ist das denn so mit einer Wenn-Funktion umsetzbar?
Ich gehe schwer von Ja aus. Mir fehlt nur leider das nötige Wissen.
F1 F1 F1 =)