Supportnet / Forum / Tabellenkalkulation

Die Felder A1 und A2 sollen verkettet werden. In A1 steht der Vorname, in A2 der Nachname. Der Nachname ist bsp Weise fett formatiert. Verkettet man nun beide Felder geht die Formatierung in fett verloren; das soll sie aber nicht. Hilfe erbeten Gruß Holgie

Hallo,

das wird nicht gehen, da die Formatierung nur für die ganze Zelle gilt.

Aber ich such mal weiter, vielleicht gibt's ja ne VB-Lösung.

Gruß
cmkatz

Hallo,

So, nun nach langem Probieren und Suchen hab ich eine VBA-Lösung (Makro) gefunden. Erst der Code und dann die Erklärung:

Sub verketten()
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"" "",RC[-1])"
    ActiveCell.Select
    Selection.Copy
    ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    With ActiveCell.Characters(Start:=InStr(1, [ActiveCell], " ")).Font
    .FontStyle = "Fett"
    End With
End Sub

Du gibst in eine Zelle deiner Wahl einen Vornamen ein, in die rechte Zelle daneben den Nachnamen. Danach markierst du die nächste Zelle rechts daneben und klickst anschließend auf den Button, den du wie folgt einfügst. Button deshalb, weil es so am schnellsten ist, das Makro auszuführen.
Ergebnis: in der markierten Zelle erscheint Vorname und Nachname, wobei Nachname fett geschrieben ist.

So, zum Einbau kurz: wie gesagt, am einfachsten ist es, das Makro einem Button zuzuordnen.

Vorgehensweise:

Unter Ansicht - Symbolleisten - Steuerlement-Toolbox aktivieren

eine Befehlsschaltfläche in die Tabelle machen, evtl. umbenennen in "Verketten" (Rechtsklick auf Schaltfläche - Befehlsschaltfläche-Objekt - Bearbeiten)

in gewünschte Position verschieben

dann durch Klick auf das grüne Dreieck in der Toolbox den Entwurfsmodus beenden

mit ALT + F11 den VB-Editor starten

mit Einfügen - Modul ein "Modul1" erzeugen, Doppelklick darauf (Fenster öffnet sich, leer)

obigen Code kopieren und dort einfügen.

Doppelklick auf "Tabelle1(Tabelle1)" (Fenster öffnet sich, leer), dort nachfolgenden Code einfügen

VB-Editor schließen

durch Klick auf Button ausprobieren.


Button-Code in Tabelle1(Tabelle1):

Private Sub CommandButton1_Click()
    Verketten
End Sub

Gruß
cmkatz
P.S: hats geholfen?

scheint wohl nicht mehr akut zu sein, das Problem...

• Bereiche Verketten
• Verketten
• anlagenzeile in outlook 2002 ausdrucken
• Dateien Verketten
• endlos-Schleife beim installieren von WIN XP