Markierte Zellen zusammfassen

Bild

Betrifft: Markierte Zellen zusammfassen
von: Karl-Heinz
Geschrieben am: 19.11.2003 12:15:48

Hallo Excel-Experten !

"Den Inhalt von markierte/ untereinanderliegende Zellen in der
ersten markierten Zelle zusammenfassen".

Ich bitte um Unterstützung bei der Lösung von folgendem Problem:
Es werden untereinanderliegende Zellen markiert; zum Beipiel A8-A12.
Nach dem Start eines Makros soll der Inhalt der Zellen A8-A12 in der Zelle A8
stehen.

Eine noch komfortablere Lösung wäre, wenn die Zeilen A9-A12 gelöscht werden.

PS: Auf der Herber-CD, Ausgabe 6 und im Archiv konnte ich bis jetzt nichts finden.

Vielen Dank, Karl-Heinz

Bild


Betrifft: AW: Markierte Zellen zusammfassen
von: mathiasr
Geschrieben am: 19.11.2003 17:04:03


Sub zusammenfassen()
Dim c As Range
Dim sText As String
    For Each c In Selection
        'Leere Zellen werden ignoriert da sonst ein Leerzeichen pro leerer Zelle
        If c <> "" Then
            sText = sText & " " & c
        End If
        c.ClearContents
    Next
    Selection.Cells(1, 1) = sText
End Sub



Bild


Betrifft: Danke, hilft mir sehr !
von: Karl-Heinz
Geschrieben am: 20.11.2003 12:01:14

Danke, die Lösung hilft mir sehr.
Nun komme ich weiter.
Gruss, Karl-Heinz


Bild

Beiträge aus den Excel-Beispielen zum Thema " Markierte Zellen zusammfassen"