ich bin neu im Forum, blutiger VBA-Anfänger und schlage mich mit vielen Problemen rum.
Konkret geht es diesmal um folgendes:
In der Spalte N befindet sich in vielen Zellen Text mit rot und/oder schwarz.
Ich muß jetzt z.B. den schwarzen Text in die benachbarten Zellen in der Spalte O kopieren.
Für eine einzelne Zelle habe ich das durch viel Probieren und spicken so hinbekommen.
Ich bin aber zu doof, das für die ganze Spalte N hinzubekommen.
Kann mir von Euch jemand helfen ?
Viele Grüße
Christian
Hier das "Listing" (welch großes Wort)
Sub Schwarzen_Text_rauskopieren()
[N1].Select
länge = Len(ActiveCell.Value)
For i = 1 To länge
If ActiveCell.Characters(Start:=i, Length:=1).Font.Color = 0 Then
inhalt = inhalt & ActiveCell.Characters(Start:=i, Length:=1).Text
End If
Next i
[O1].Value = inhalt
End Sub