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

Beiträge aus den Excel-Beispielen zum Thema "Alle Zellen in Bereich verketten mit Trennzeichen"