ich will Zwei Zellinhalte Zelle A1 und B1 mit "&" verknüpfen, jedoch soll die Schriftgröße von dem Zellinhalt von B1 in einer kleineren SChriftgröße dargestellt werden. Wie kann ich das machen?
Vorab vielen Dank!!!!
Gruß
Bernhard
Public Sub Verknuepfen()
Range("A1").Value = Trim(Range("A1").Value)
Range("B1").Value = Trim(Range("B1").Value)
With Range("C1")
.Value = Trim(Range("A1").Value) & ", " & Trim(Range("B1").Value)
With .Characters(Start:=1, Length:=Len(Range("A1").Value)).Font
.Name = "Arial"
.Size = 9
End With
With .Characters(Start:=Len(Range("A1").Value) + 3, _
Length:=Len(Range("B1").Value)).Font
.Name = "Arial"
.Size = 16
End With
End With
End Sub
Gruß Peter