Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl der unterstrichenen Zeichen

Forumthread: Anzahl der unterstrichenen Zeichen

Anzahl der unterstrichenen Zeichen
atikar
Hallo Leute,
besteht die Möglichkeit zu erkennen an welcher Stelle ein Text unterstrichen ist.
z.B. in Zelle xy steht "heute ist montag" und montag ist unterstrichen
das Macro müsste dann erkennen das ab Zeichen 11 unterstrichen ist und das 6 Zeichen unterstrichen sind.
ciao
Atikar
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Anzahl der unterstrichenen Zeichen
Reinhard
Hi Atikar,
ein Ansatz, für keine Unterstreichung in der Zelle oder mehrere musste das noch anpassen.

Sub atikar()
lae = Len(Range("A1").Value)
n = 1
While Range("A1").Characters(n, 1).Font.Underline = -4142 And n + 1 < lae
n = n + 1
Wend
beginn = n
While Range("A1").Characters(n, 1).Font.Underline = 2 And n + 1 < lae
ende = n
n = n + 1
Wend
MsgBox "ab Zeichen " & beginn & " sind " & ende - beginn + 1 & " Zeichen unterstrichen"
End Sub

Anzeige
AW: Anzahl der unterstrichenen Zeichen
xXx
Hallo,
vielleicht hilft das:

Function unterstrich(Zelle As Range)
Dim i As Integer, j As Integer
For i = 1 To Len(Zelle)
If Zelle.Characters(i, 1).Font.Underline <> xlUnderlineStyleNone Then
For j = i To Len(Zelle)
If Zelle.Characters(j, 1).Font.Underline = xlUnderlineStyleNone Then
Exit For
End If
Next j
Exit For
End If
Next i
unterstrich = "Ab Zeichen " & i & " sind " & j - i & " Zeichen unterstrichen."
End Function

Gruß aus'm Pott
Udo
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige