gleiche Zellen in allen Zeilen verbinden



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: gleiche Zellen in allen Zeilen verbinden
von: Alex
Geschrieben am: 12.06.2002 - 14:00:12

Hallo Leute,

ich möchte in allen Zeilen die Zellen der Spalten A-F verbinden.
Also in Zeile A die Zellen A1 bis F1, etc.

Hat mir da einer ne Idee?
Vielen Dank im Voraus.

Grüße von
Alex


nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Alan Hathway
Geschrieben am: 12.06.2002 - 14:05:43

Probier mal folgendes Makro

For a = 1 To 10
Range("A" & a & ":F" & a).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge
Next a

nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Silvio
Geschrieben am: 12.06.2002 - 14:07:21

Mach die erste Zeile von A1 bis F1 manuell mit Zellen verbinden fertig.
Danach einfach die Zelle kopieren.

nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Hajo
Geschrieben am: 12.06.2002 - 14:08:16

Hallo Alex

ich würde vorschlagen die Zellen nicht verbinden sonder den Inhalt in Spalte A schreiben. Verbundene Zellen machen Probleme beim Formatieren.

Gruß Hajo


nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Klaus
Geschrieben am: 12.06.2002 - 14:09:15

Warum nicht einfach die Spalten 1 bis 7 markieren, dann Format und Zellen verbinden ?
Mfg vom Klaus

nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Alan Hathway
Geschrieben am: 12.06.2002 - 14:13:48

Hallo Klaus,

Dein Vorschlag macht eine einzige Zelle von a1 bis g65536

Mein Vorschlag macht eine Zelle in Zeile 1, eine Zelle in Zeile 2, eine Zelle in Zeile 3 usw.

So habe ich die Frage verstanden. Aber vielleicht hast Du Recht

Alan Hathway


nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Alex
Geschrieben am: 12.06.2002 - 14:15:21

Super,

und wie geht das???


nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: Hajo
Geschrieben am: 12.06.2002 - 14:24:47

Hallo Alex

ich bin mal davon ausgegangen das die länge der Tabelle an Spalte A festgestellt wird und die Zellinhalte mit einem Leerzeichen verbunden werden


Sub Zusammen()
    Dim As Long
    Dim Letzte As Long
    If [a65536] = "" Then
        Letzte = [a65536].End(xlUp).Row
    Else
        Letzte = 65536
    End If
    For I = 1 To Letzte
        Cells(I, 1) = Cells(I, 1) & " " & Cells(I, 2) & " " & Cells(I, 3) _
            & " " & Cells(I, 4) & " " & Cells(I, 5) & " " & Cells(I, 6)
    Next I
'   Alte Werte löschen
    Range("B1:F" & Letzte) = ""
End Sub

Gruß Hajo

nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: WernerB.
Geschrieben am: 12.06.2002 - 19:49:46

Hallo ThomasS,

horizontal verbundene Zellen sind so unnötig wie ein Kropf; den gewünschten Effekt (zentrierten Text) kann man auch anders erreichen.
Teste doch mal folgendes:

1. Verbundene Zellen markieren.
2. Format / Zellen / Ausrichtung / Horizontal (Zentriert über Spalten) / Zellen verbinden (Haken rausnehmen).

So lässt sich jede Zelle des (ehemaligen) Zellverbundes einzeln ansprechen und die Makro-Klimmzüge entfallen.
Für vertikal verbundene Zellen gibt es diese Möglichkeit leider nicht.

MfG
WernerB.

nach oben   nach unten

Re: gleiche Zellen in allen Zeilen verbinden
von: WernerB.
Geschrieben am: 12.06.2002 - 19:53:18

Hallo Alex,

bitte entschuldige, dass ich Dich mit "Thomas" angeredet habe.
Ich war mal wieder einen Moment unaufmerksam; als ich meinen Fehler bemerkt habe, war das Kind bereits in den Brunnen gefallen.

MfG
WernerB.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "gleiche Zellen in allen Zeilen verbinden"