Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nicht fett gesetzten Text in Spalte B kopieren

Nicht fett gesetzten Text in Spalte B kopieren
19.06.2008 11:44:00
Uwe
Hallo,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Nicht fett gesetzten Text in Spalte B kopieren
19.06.2008 11:58:00
Rudi
Hallo,
in ein Modul:

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

AW: Nicht fett gesetzten Text in Spalte B kopieren
19.06.2008 12:03:02
Reinhard
Hi Uwe,

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

Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige