Herbers Excel-Forum - das Archiv
Verketten von Zellen ohne leere Zellen
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
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
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
Betrifft: Danke für die Rückmeldung (o.T.)
von: Josef Ehrensberger
Geschrieben am: 01.11.2003 22:26:18
/