Zellen Verbinden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Achim,

sorry, ich muss mein Standpunkt besser erklären: bei Excel geht es darum, Zahlen zu verwalten, diese mit Formel zu adieren und noch mehr.
Für alle Leute, die sich intensiv mit Excel auseinandersetzen , ist "Formate aus Excel mit importieren" etwas, was man in dem Bereich "schön machen" zuordnet, genauso wie ein Motorenspezialist die Lackfarbe am Auto nicht mal merkt.

Adobe InDesign kann nicht nur mit Excel sondern auch mit Word umgehen:
https://helpx.adobe.com/de/indesign/using/paragraph-character-styles.html#convert_word_styles_to_indesign_styles

Aber weil das Problem schon irgendwie lustig ist, eine Lösung:
_ es muss am Ende aller Pizza-Bezeichnung einen Leerzeichen geben (kann man aber nachträglich einführen)
_ öffne den VBA-Editor (mit Alt+F11)
_ füge eine neuen Modul ein (Menü "Einfügen", "Modul")
_ Doppelklick auf dem Modul, um es zu öffnen,
_ Code untern copy-pasten
_ VBA-Editor entweder schliessen oder auf Excel umschalten,
_ die beide Spalten markieren (Sicherheitskopie von Datei bereits abgelegt? es gibt hier Kein "Rückgängig machen")
_ Makro mit Alt+F8 aufrufen
_ Makro "Zusammen" doppelklicken

Public Sub zusammen()

Dim i, j

Dim Ch

Dim R, Z1, Z2



    If Selection.Columns.Count > 2 Then MsgBox "es müssen genau 2 Spalten ausgewählt sein": Exit Sub

    For Each R In Selection.Rows

        Set Z1 = R.Cells(1)

        Set Z2 = R.Cells(2)

        j = Len(Z1.Text)

        Z1.Value = Z1.Value & Z2.Value

        For i = 1 To Len(Z2.Text)

            Set Ch = Z2.Characters(Start:=i, Length:=1).Font

            With Z1.Characters(Start:=j + i, Length:=1).Font

                .Name = Ch.Name

                .FontStyle = "Standard"

                .Size = Ch.Size

                .Strikethrough = Ch.Strikethrough

                .Superscript = Ch.Superscript

                .Subscript = Ch.Subscript

                .OutlineFont = Ch.OutlineFont

                .Shadow = Ch.Shadow

                .Underline = Ch.Underline

                .ColorIndex = Ch.ColorIndex

                .TintAndShade = Ch.TintAndShade

                .ThemeFont = Ch.ThemeFont

            End With

        Next

    Next

End Sub

VG
Yal

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen Verbinden

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread