Markierten Text in Zelle formatieren

Michael · 2020-06-27T09:07:24+00:00

Hallo und guten Tag zusammen, ich bin gespannt, ob es für meine Problem eine Lösung gibt. Ich möchte innerhalb einer Zelle Text markieren und dann per Makro eine Formatierung vornehmen. Wenn ich das per Makroaufzeichnung versuche, dann wird entweder immer die ganze Zelle formatiert oder aber genau der eine Text, den ich im Beispiel verwendet habe :( Das muss doch anders gehen, oder? Viele Grüße Michael

Hi
noch ne Variante, wie gesagt, dass Problem ist, wenn du in die Zelle hinein geklickt hast, ist VBA gesperrt. Die Methode von Beverly funktioniert bei mir (Excel 2010) auch nicht, weil ich dann den VBA-Editor gar nicht erst aktivieren kann.
folgendes geht:
1. erstelle auf dem Blatt eine Textbox und einen Commandbutton.
2. füge im Modul des Tabellenblatts folgende zwei Makros hinzu:
das Selection-Change-Marko verknüpft die Textbox mit der aktiven Zelle, so dass der Inhalt der Aktiven Zelle in der Textbox erscheint.
Dann markierst du den Text in der Textbox und klickst dann auf den Button um die Färbung durchzuführen.
Der Buttoncode schaut, was in der Textbox selektiert ist und färbt dann diesen Text in der _ Zelle.


Private Sub CommandButton1_Click()
Dim L As Long, P As Long
With TextBox1
L = .SelLength
P = .SelStart + 1
End With
If L > 0 Then
With ActiveCell.Characters(P, L)
.Font.Bold = True
.Font.Color = vbRed
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.LinkedCell = ActiveCell.Address
End Sub

Gruß Daniel

tatsächlich es geht.
Das ist zwar jetzt nicht besonders komfortabel (einem Anwender würde ich das nicht zumuten wollen), aber es funktioniert, auch mit Excel 2010 (in Windows 10)
Allerdings habe ich noch eine Einschränkung festgestellt:
bei mir funktioniert das nur für bestimmte Formate.
Wenn ich diesen Code auf die beschriebene Weise ausführe:

Sub test()
With Selection.Font
.Bold = True
.Underline = True
.Strikethrough = True
.Color = vbRed
End With
End Sub

dann werden nur die ersten drei Formate ausgeführt (Fett, unter- und durchgestrichen), die Farbe bleibt.
Wendet man den Code auf die ganze Zelle an, dann wird auch die Farbe geändert, beim Formatieren eines Teiltextes jedoch nicht.
Gruß Daniel

Markierten Text in Zelle formatieren

Forumthread: Markierten Text in Zelle formatieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial