Kursiven Text aus Zelle extrahieren
02.10.2019 20:40:49
Peter
ich habe hier schon viele nüztliche Tips gefunden, selber aber noch nichts eingestellt. Sollte ich daher gewisse Konventionen nicht einhalten, bin ich dankbar für entsprechende Hinweise. Nun zu meinem Problem.
ich habe eine Tabelle mit Zellen, die normalen (am Anfang) und kursiven (am Ende) Text enthalten. Der kursive Text soll ohne den normalen Text in eine zweite Zelle übertragen werden.
z.B.
A1= normaler Text, kursiver Text, der in einer weiteren Zelle z.B. A2 übertragen werden soll
A2= kursiver Text, der in einer weiteren Zelle z.B. A2 übertragen werden soll
ich dachte, kann es damit lösen (bei Zahlen funktioniert es einwandfrei):
Function isItalic(zelle As Range) As Boolean
isItalic = zelle.Font.Italic
End Function
Sub test()
Dim zelle As Range
Dim neu As String
Dim i As Integer
For Each zelle In Selection
For i = 1 To Len(zelle)
Select Case Mid(zelle, i, 1)
Case isItalic = True
neu = neu & Mid(zelle, i, 1)
End Select
Next i
zelle.Offset(0, 1).Value = neu
neu = ""
Next zelle
End Sub
Kann mir bitte vielleicht jemand sagen, wie ich das lösen kann?
Vielen Dank für eure Unterstützung!
Gruß Peter