ich möchte in einer dritten zelle 2 zellen mit "&" verbinden.
das geht ja, aber ich möchte der 2ten zelle ein anderes format geben.
a3=a1 & a2(a2 aber format rot). geht das?
danke für tipps
jochen
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, 2).Value = ""
Else
Länge1 = Len(Target.Value)
Länge2 = Len(Target.Offset(0, 1).Value)
Target.Offset(0, 2).Value = Target.Value & " " & Target.Offset(0, 1).Value
Gesamtlänge = Len(Target.Offset(0, 2).Value)
Target.Offset(0, 2).Select
' Farbe rücksetzen
With Selection.Font
.ColorIndex = xlAutomatic
End With
'Farbe erste Hälfte rot setzen
With ActiveCell.Characters(Start:=1, Length:=Länge1).Font
.ColorIndex = 3
End With
'Farbe zweite Hälfte blau setzen
With ActiveCell.Characters(Start:=Länge1 + 1, Length:=Gesamtlänge).Font
.ColorIndex = 5
End With
End If
End If
End Sub