Verketten von Zellen ohne leere Zellen

Bild

Betrifft: Verketten von Zellen ohne leere Zellen
von: R@iner
Geschrieben am: 01.11.2003 22:07:31

Hallo,

bei mit stehen von A1 bis L1 verschiedene Einträge:
A1 = 1
B1 = leere Zelle
C1 = leere Zelle
D1 = 2
E1 = 2
.
.
.
Nun würde ich gerne in M1 das ganze mit + zusammengefasst haben. Es sollte also stehen: 1 + 2 + 2 (keine Summe). Es sollen also alle leeren Zellen ignoriert werden und alle Zellen mit Betrag mit "+" verbunden werden.

MfG R@iner

Bild


Betrifft: AW: Verketten von Zellen ohne leere Zellen
von: Josef Ehrensberger
Geschrieben am: 01.11.2003 22:12:28

Hi R@iner,

das selbe makro wie für Simone,
nur jetzt für Spalten.


Sub verketten()
Dim rng As Range
Dim trenner As String
trenner = " + "  'Trennzeichen
[M1].ClearContents   'Ausgabezelle
For Each rng In [A1:L1]
If rng <> "" Then
[M1] = [M1] & rng & trenner
End If
Next
[M1] = Mid([M1], 1, Len([M1]) - 1)  'letztes Trennzeichen entfernen
End Sub


Gruß Sepp


Bild


Betrifft: AW: Verketten von Zellen ohne leere Zellen
von: Rainer
Geschrieben am: 01.11.2003 22:18:50

Servus Sepp,

das klappt. Habe nur bei letztes Trennzeichen entfernen aus -1 ein -2 machen müssen. Vielen Dank

Gruß R@iner


Bild


Betrifft: Danke für die Rückmeldung (o.T.)
von: Josef Ehrensberger
Geschrieben am: 01.11.2003 22:26:18

/


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Verketten von Zellen ohne leere Zellen"