Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Verketten von Zellen ohne leere Zellen"
Makros in Abhängigkeit vom Zellennamen aufrufen Zellen auf Kommentar überprüfen
Spalten bedingt summieren und Zellen formatieren Text aus Textbox in Zellen aufteilen
Zellen vergleichen und markieren Zählen formatierter Zellen
Daten aus Textdatei gezielt in Zellen übernehmen Zellen verbinden und trennen
Zellen bei Minuswerten schraffieren Zeilen oberhalb der markierten Zellen einfügen