Herbers Excel-Forum - das Archiv

Alle Zellen in Bereich verketten mit Trennzeichen

Bild

Betrifft: Alle Zellen in Bereich verketten mit Trennzeichen
von: Markus

Geschrieben am: 26.02.2005 14:56:06
Hallo Forum,
ich möchte gerne viele Zellen in einer Spalte in einer Zelle verketten.
Die Lösung =VERKETTEN(A1;"; ";A2;"; ";...) oder =A1&"; "&A2&"; ";...
ist leider viel zu aufwendig, da es sich um etliche Zellen handelt.
Gibt es eine Möglichkeit so eine Verkettung zu realisieren?
Viel Grüße
Markus
Bild

Betrifft: AW: Alle Zellen in Bereich verketten mit Trennzeichen
von: Rudi
Geschrieben am: 26.02.2005 14:57:30
Ja, aber nur mit VBA!
Rudi
Bild

Betrifft: AW: Alle Zellen in Bereich verketten mit Trennzeichen
von: Markus
Geschrieben am: 26.02.2005 14:58:38
Hallo Rudi,
danke für die Rückmeldung!
Leider bin ich kein Held in VBA -wäre die Lösung sehr aufwändig?
Gruß
Markus
Bild

Betrifft: AW: Alle Zellen in Bereich verketten mit Trennzeichen
von: Rudi
Geschrieben am: 26.02.2005 15:05:52
Markier die Zellen, die verkettet werden sollen. das Ergebnis wird in A1 ausgegeben:
Sub Verketten()
Dim c As Range, tmp As String
For Each c In Selection
tmp = tmp & c & ";"
Next
tmp = Left(tmp, Len(tmp) - 1)
[a1] = tmp
End Sub

mfg Rudi
Bild

Betrifft: AW: Alle Zellen in Bereich verketten mit Trennzeichen
von: Vielen Dank!! m.T.

Geschrieben am: 26.02.2005 15:09:23
Hallo Rudi,
vielen Dank für die Rückmeldung und die Lösung!
Werde aber die Lösung von Josef benutzen, da ich das einfacher den anderen Benutzern erklären kann!
Trotzdem Vielen Dank und ein schönes Wochenende!
Gruß
Markus
Bild

Betrifft: AW: Alle Zellen in Bereich verketten mit Trennzeic
von: Josef Ehrensberger

Geschrieben am: 26.02.2005 15:04:38
Hallo Markus!
Wie wär's mit einer kleinen Funktion?
 
 ABC
1test test; text; mit; leerzeilen; und; trennzeichen
2text  
3mit  
4   
5leerzeilen  
6und  
7trennzeichen  
Formeln der Tabelle
C1 : =verketten2(A1:A7;"; ")
 

Und die Funktion dazu. (gehört in ein allgemeines Modul!)
Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng <> "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: Ein Traum - wahnsinn!!! Vielen Dank!!!!!!!
von: Markus
Geschrieben am: 26.02.2005 15:07:44
 Bild
Excel-Beispiele zum Thema "Alle Zellen in Bereich verketten mit Trennzeichen"
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