Formatierung übernehmen und zusammenführen
onkelbobby
habe in Spalte I vereinzelten Text stehen, der rot markiert und fett gedruckt wird.
Diesen Text möchte ich in Spalte H (in gleicher Formatierung) stehen haben, jedoch verbunden mit dem Text, der bereits in dieser Spalte H steht.
Also Beispiel: Zelle H5 = "Hallo", Zelle I5 = "Super"
Zelle H5 (neu) = "Hallo Super", wobei Text aus I5 fett und rot ist und auch in H5 so erscheinen soll, der Text aus H5 ("Hallo") soll weiterhin "normal" formatiert sein.
Mit diesem Code habe ich die Spalte I formatiert und danach H und I zusammengeführt.
Sub Farb()
Dim Zelle As Range
For Each Zelle In Sheets("Laufliste").Range("I5:I1000")
Zelle.Font.ColorIndex = 3
Zelle.Font.Bold = True
Next Zelle
With Sheets("Laufliste")
Dim t As Long
For t = 5 To Sheets("Laufliste").Cells(Sheets("Laufliste").Rows.Count, 1).End(xlUp).Row
Cells(t, "H").Value = Cells(t, "H").Value & " " & Cells(t, "I").Value
Next t
End With
End Sub
Formatierung von I verschwindet aber.
Wie löse ich das?
Danke!
Robert