Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige