Verketten von Zellen ohne leere Zellen

• Verketten von Zellen ohne leere Zellen von R@iner vom 01.11.2003 22:07:31
  • AW: Verketten von Zellen ohne leere Zellen - von Josef Ehrensberger am 01.11.2003 22:12:28
    • AW: Verketten von Zellen ohne leere Zellen - von Rainer am 01.11.2003 22:18:50
      • Danke für die Rückmeldung (o.T.) - von Josef Ehrensberger am 01.11.2003 22:26:18

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
/

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