Formatierung Teilstring in Zellinhalt

Hallo Excel Community
manuell kann die Formatierung eines Teilstrings einer Zelle einfach durch Markierung des Teilstrings in Zelle in der Bearbeitungsleiste durchgeführt werden um die Schriftart dieses Teils auf kursiv zu ändern.
Ich möchte aber mehrere Änderungen am String durchführen, zum Beispiel noch rote Schrift, kleinere Schrift kursiv etc..
Laut ChatGPT kein Problem dies zu automatisieren. Nur hat der eine Eselsgeduld und alle seine Vorschläge führen zu einer Fehlermeldung.
Der Makrorekorder verwendet zur Änderung eines Teilstrings zum Beispiel
With ActiveCell.Characters(Start:=4, Length:=4).Font
also er kennt Start und die Länge des markierten Text.
Alle Vorschläge von ChatGPT für die automatisierte Verarbeitung versucht es im Wesentlichen mit
Start:=Selection.Start und Verwendung von Selection.End.
Da im Bearbeitungsmodus der Makrorecorder nicht aufgerufen werden kann und Kurzwahlkombination nicht funktioniert, schlägt er ein Commandbutton zum Start des Makros vor. Nach Stunden des Versuchen dachte ich mir, ich frag bei wirklichen Fachleuten nach.
Geht das mit VBA überhaupt einen angewählten Teilstring weiter zu verarbeiten und wenn ja wie?
Grüße Roland

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke Ralf.
Du verwendest Excel vermutlich als Tabellenkalkulation - man kann es auch für andere Aufgaben nutzen und da ist hervorgehobener Text wegen Lesbarkeit nach meiner Einstufung durchaus sinnvoll. Danke auf Verzicht der Kommentierung :-)).
Ich habe mir von der Microsoft Seite folgenden Code kopiert:

Sub TestSelection()
    Dim str As String
    Select Case TypeName(Selection)
    Case "Nothing"
        str = "No selection made."
    Case "Range"
        str = "You selected the range: " & Selection.Address
    Case "Picture"
        str = "You selected a picture."
    Case Else
        str = "You selected a " & TypeName(Selection) & "."
    End Select
    MsgBox str
End Sub

Und über einen Commandbutton1 lässt sich das Makro starten, z.B. Clickevent.
Als Ergebnis bringt die MsgBox im

Sub TestSelection() von oben dann die Adresse der activecell. 
Ich habe es auch über einer Grafik mit zugeordnetem Makro probiert. Es kann auch da gestartet werden und es kommt auch da die Adresse der activecell.. Nicht wie von mir vermutet die Meldung "You selected a picture." 
Wenn ich den Teilstring von Hand markiere und über kontextbezogene Symbolleiste gehe, bleibt meine Markierung in der Zelle erhalten. 
Bei Einzelschrittausführung des Makros ist die Markierung des Teilstrings sofort weg. Durchaus möglich dass es nicht geht.
Danke für deine Angaben.
Gruß Roland

Sub Commandbutton1_Click() Dim Start as Long Dim Länge as Long It Textbox1.Text = "" Then Textbox1.Text = ActiveCell.Text Else Start = Textbox1.SelStart Länge = Textbox1.SelLength ... Hier dann der Code für die Formatierung Textbox1.Text = "" End If End Sub

Beliebteste Forumthreads (12 Monate)

Formatierung Teilstring in Zellinhalt

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatierung Teilstring in Zellinhalt

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread