ich habe in Spalte A Text stehen, der mit einem oder zwei fett gedruckten Worten anfängt und dann normal formatiert weitergeht .... ist es möglich das fett gedruckte in Spalte A zu lassen und das normale in Spalte B zu verschieben?
Gruss,
Uwe
Sub tt()
Dim rngC As Range, i As Integer
For Each rngC In Range("A1").SpecialCells(xlCellTypeConstants)
For i = 1 To Len(rngC)
If rngC.Characters(i, 1).Font.Bold = False Then
rngC.Offset(0, 1) = Mid(rngC, i, 999)
rngC = Replace(rngC, rngC.Offset(0, 1), "")
Exit For
End If
Next i
Next rngC
End Sub
Gruß
Rudi
Option Explicit
Sub nn()
Dim Zei As Long, B
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For B = 1 To Len(Cells(Zei, 1))
If Cells(Zei, 1).Characters(B, 1).Font.Bold = False Then
Cells(Zei, 2) = Mid(Cells(Zei, 1), B)
Cells(Zei, 1) = Left(Cells(Zei, 1), B - 1)
Exit For
End If
Next B
Next Zei
End Sub
Gruß
Reinhard
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen