Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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