Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
576to580
576to580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Zellen in Bereich verketten mit Trennzeichen

Alle Zellen in Bereich verketten mit Trennzeichen
26.02.2005 14:56:06
Markus
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zellen in Bereich verketten mit Trennzeichen
Rudi
Ja, aber nur mit VBA!
Rudi
AW: Alle Zellen in Bereich verketten mit Trennzeichen
Markus
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
AW: Alle Zellen in Bereich verketten mit Trennzeichen
Rudi
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
AW: Alle Zellen in Bereich verketten mit Trennzeichen
Vielen
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
Anzeige
AW: Alle Zellen in Bereich verketten mit Trennzeic
26.02.2005 15:04:38
Josef
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!
Anzeige
Ein Traum - wahnsinn!!! Vielen Dank!!!!!!!
Markus

86 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige