Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 17:04:38
Dieter(Drummer)
Mit diesem Code soll das Sonderzeichen aus UserForm1, TextBox3, in das Oval2 (Shape), im aktiven Tabellenblatt, eingefügt werden.
Bei Klick auf UserForm1,OptionsButton1, kommt aber ein Fehler: "Laufzeitfehler 13, Typen unverträglich".
Wie muss der richtige Code lauten?
Mit der Bitte um Hilfe,
grüßt,
Dieter(Drummer)
Muster Datei:
https://www.herber.de/bbs/user/172870.xlsm
Private Sub OptionButton1_Click()
If TextBox3 Then ActiveSheet.Shapes.Range(Array("Oval2")).Offset(, 1).Value = ChrW(TextBox3.Text) Else ActiveCell.Offset(, 1).Value = ""
OptionButton1.Value = False
End Sub
Anzeige