Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1992to1996
1992to1996
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen aus TextBox3 in Oval2 einfügen

Forumthread: Zeichen aus TextBox3 in Oval2 einfügen

Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 15:04:38
Dieter(Drummer)
Guten Tag an alle ...

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 15:32:08
Dieter(Drummer)
Musterdatei: https://www.herber.de/bbs/user/172872.xlsm

Hatte für Klick auf Grafik Userform die Verbindung zum Code vergessen.

Gruß,
Dieter(Drummer)
AW: Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 17:05:06
Yal
Hallo Dieter,

eine Zelle innerhalb eines Blattes kann einen Offset(..) haben (es sei denn, diese ist bereits am Rand)
Ein Shape nicht.

Es müsste eher so aussehen: 
ActiveSheet.Shapes("Oval 2").OLEFormat.Object.Caption = "Mein Text"


VG
Yal
Anzeige
AW: Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 17:49:54
Dieter(Drummer)
Danke Yal für Rückmeldung.

Es soll aber das Zeichen aus UserForm1.TextBox3, mit Klick auf CommandButton1, in das Shape "Oval2", eingefügt werden.
Wäre toll, wenn Du da noch eine Lösung hättest.

Gruß,
Dieter(Drummer)
AW: Zeichen aus TextBox3 in Oval2 einfügen
14.10.2024 18:00:36
Dieter(Drummer)
Hallo Yal,

habe Lösung mit deiner Hilfe gefunden: 
ActiveSheet.Shapes("Ellipse 2").OLEFormat.Object.Caption = TextBox3.Text


Danke dir und noch einen erfolgreichen Tag.

Gruß,
Dieter(Drummer)
Anzeige
;

Forumthreads zu verwandten Themen

Zeichen aus dem Text holen
Oskar

Hallo
Ich möchte aus einem Text immer 2 Zeichen holen. ZB das 3. un4. Zeichen.
Beispiel:
AABBCCDD Wenn ich das 5. und 6. Zeichen Will muss das Ergebnis so aussehen CC
Besten Dank für die Hilfe
14.10.2008 12:07:00
Thread-ID: 1016292
2 Beiträge
Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Userform soll Teil eines Strings in Spalte suchen
Jaffi

Hallo liebe Mitstreiter,
nun habe ich mal wieder ein Problem welches ich nicht alleine lösen kann :(
Ich möchte mithilfe einer UserFom und einer For-Schleife 3 Buchstaben bzw, Zahlen oder beides in einer Spalte suchen. Ich gebe also 3 Zeichen in die Textbox ein und die Prozedur soll nun...
11.11.2009 08:39:13
Thread-ID: 1116052
14 Beiträge
nicht gültige Zeichen aus String filtern
heinzs

Hallo Excelfreunde,
in VBA möchte ich aus einem String nicht erlaubte Zeichen entfernen:
gn_erlaubte_zeichen = "1234567890HIN"
gn_string_original = "abc123HIN"
gn_string_resultat = "123HIN"
Da ich sehr viele Strings zu kontrollieren habe, würde ich ungern mit einer for-Next...
29.12.2010 11:42:18
Thread-ID: 1193168
7 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 Beiträge
Anzeige
Sonderzeichen aus Spalte entfernen
Peter

Hallo,
ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel() Dim a As Integer For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row If Cells(a,...
03.03.2011 00:32:51
Thread-ID: 1203960
2 Beiträge
%-Zeichen aus Hyperlink entfernen
Stefan


Hallo zusammen,
ich habe ein Problem mit meiner Tabelle, in denen Fotos zu Namen per Hyperlink hinterlegt sind.
Warum auch immer, stehen auf einmal in allen Hyperlinkadressen '%20' mit drin, also so:
Name,%20Vorname%20200800022991%20opg%202%20.jpg
Richtig heißt die Datei (u...
30.03.2011 20:26:02
Thread-ID: 1208245
3 Beiträge
VBA - Leerzeichen löschen
WalterK

Hallo,
mit diesem Teil meines Codes lösche u.a. die Leerzeichen aus der Tabelle:
With ActiveSheet
With Range(Cells(1, 1), Cells(lngA, LCol))
.EntireColumn.NumberFormat = "General"
.Replace What:=" ", Replacement:=""
.Replace What:="FALSCH", Replacement:=""
End With
06.05.2011 07:44:28
Thread-ID: 1213288
6 Beiträge
Per VBA , in . ändern in ersten 7-String-Zeichen
TommiH

Moin,
gibt es eine einfache Möglichkeit (einfacher als per left/mid/instr. oder split) um in den ersten 7 Zeichen einer Zelle die Kommas in Punkte zu ändern? Und das per VBA-Code?
Tommi
04.07.2011 15:34:05
Thread-ID: 1220870
3 Beiträge
Bereich markieren u. Zeichen daraus entfernen
Wolfgang

Guten Abend, liebe Excel-Gemeinde !
Irgendwie stehe ich auf dem Schlauch. Hoffentlich kann mir jemand helfen...
Ich bekomme aus unterschiedlichen Quellen Materialnummern im Excelformat
für die Erstellung von Versandaufträgen zugeschickt.
Mal haut der Absender Leerzeichen dazwis...
26.09.2011 19:42:13
Thread-ID: 1231545
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige