AW: Zellen mit &verbinden
19.02.2005 11:10:16
Cardexperte
Hello jochen,
sieh mal hier :http://spotlight.de/zforen/mse/m/mse-1108756221-1604.html und darüber sind weitere Hinweise, also erstmal geht es nicht!, dennoch gibt es eine Lösung in VBA:
1. das Ergebnis muss als reiner Text in einer Zelle vorliegen, d.h. die Zelle darf keine Formel enthalten , sondern die Zusammenfügung muss mit Makro erfolgen!!!
2. mittels Textfunktion, werden die Längen der Texte aus a1 und b1 ermittelt und dies zur Steuerung der Schriftfarbe benutzt, also in meinem Beispiel wenn die Zelle A1 geändert wird, wird in c1 der Text zusammengesetzt aus a1 und b1 und und der erste Anteil wird rot (a1) und der 2. blau, hier der Code (im Blatt):
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
Gruss WS