Excel - Zellen mit Formatierung 'fusionieren'

Hallo Leute,

ich brauche Excel-Hilfe; ich möchte zwei Zellen in einer dritten fusionieren. Prinzipiell ist mir klar, daß das nach dem Schema "=A1&B1" funktioniert. Wie kann ich Excel aber dazu überreden, die Formatierung beizubehalten?

In A1 steht z.B. Text
In B1 steht z.B. 4711
In C1 soll nun stehen Text4711

Über Eure Hilfe würde ich mich freuen...

armani

 

Hab ich ja geschrieben (siehe oben!) ^^
Wie wäre der Code, um die formatierung auszulesen und zu übernehmen???

 

Hi,

das ließe sich z.B. mit diesem Code machen

Code:

Sub zusammenfuegen()
    Cells(1, 3) = Cells(1, 1) & Cells(1, 2)
    With Cells(1, 3)
        With .Characters(Start:=1, Length:=Len(Cells(1, 1))).Font
            .Name = Cells(1, 1).Font.Name
            .FontStyle = Cells(1, 1).Font.FontStyle
            .Size = Cells(1, 1).Font.Size
            .Strikethrough = Cells(1, 1).Font.Strikethrough
            .Superscript = Cells(1, 1).Font.Superscript
            .Subscript = Cells(1, 1).Font.Subscript
            .OutlineFont = Cells(1, 1).Font.OutlineFont
            .Shadow = Cells(1, 1).Font.Shadow
            .Underline = Cells(1, 1).Font.Underline
            .ColorIndex = Cells(1, 1).Font.ColorIndex
        End With
        With .Characters(Start:=Len(Cells(1, 1)) - 1, Length:=Len(Cells(1, 2))).Font
            .Name = Cells(1, 2).Font.Name
            .FontStyle = Cells(1, 2).Font.FontStyle
            .Size = Cells(1, 1).Font.Size
            .Strikethrough = Cells(1, 2).Font.Strikethrough
            .Superscript = Cells(1, 2).Font.Superscript
            .Subscript = Cells(1, 2).Font.Subscript
            .OutlineFont = Cells(1, 2).Font.OutlineFont
            .Shadow = Cells(1, 2).Font.Shadow
            .Underline = Cells(1, 2).Font.Underline
            .ColorIndex = Cells(1, 2).Font.ColorIndex
        End With
    End With
End Sub

 

Super danke,
das werde ich gleich mal antesten...

 

Okay, soweit macht's prinzipiell fast das richtige...

Leider zählt er von der ersten Zellen scheinbar zwei Zeichen zu wenig und würfelt das Ganze durcheinander.
Mein Ergebnis sieht mit dem oberen Code so aus:

Text4711

Wo muß ich das Skript editieren? Ausserdem würde mich noch interessieren, wie ich das Skript ändern könnte, damit es gleich eine ganze Spalte runterfusioniert.

Jetzt wird ja aus A1+B1in C1 geschrieben. Wie kann man das Skript erweitern, damit er diese Fusion in C solange macht, solange in A und B Daten stehen. Also gleich etwas komplizierter, das Ganze...

Danke schonmal für Eure Hilfe...

 

Beim zweiten "With" muss es + 1 heissen und nicht -1...

Wenn Du mehrere Zeilen dasselbe machen willst, kannst Du es mit einer For-Next-Schleife machen:

Code:

FOR Zeile=1 TO 65536
  IF IsEmpty(Cells(Zeile, 1)) THEN EXIT FOR
  Cells(Zeile, 3) = Cells(Zeile, 1) & Cells(Zeile, 2)
  ...
NEXT Zeile

(Den mittleren Teil auch noch entsprechend anpassen.)

Gruss
Bruno

 

Danke, jetzt geht'S!

 

Danke, danke!
brum hat's mir vorher schon korrigiert!