Markierten Text in Zelle formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Sub FettKursiv() Dim lngZaehler As Long For lngZaehler = 1 To Len(ActiveCell) - Len(Range("C3")) + 1 If Mid(ActiveCell, lngZaehler, Len(Range("C3"))) = Range("C3") Then With ActiveCell.Characters(lngZaehler, Len(Range("C3"))).Font .Bold = True .Italic = True End With Exit For End If Next lngZaehler End Sub

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

Beliebteste Forumthreads (12 Monate)

Markierten Text in Zelle formatieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Markierten Text in Zelle formatieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread