Per '&' viele Zellen auf einmal zusammenführen

[Ihroquanshy]

Guten Morgen liebe Excel-Freunde,

ich denke mein Problem sollte gar nicht so schwierig sein ^^
Ich habe einen gewissen Datensatz á la:

Anton
Berta
Cäsar
Dora
Emil

Ich möchte nun alle hintereinander weg schreiben.
Ungefähr so:
=A1&A2&A3&A4&A5.....
Da ich aber noch mehr Werte hab und mein Datensatz noch nicht ganz ausgetüftelt ist, erscheint mir das doch sehr langwierig und Zeitverschwenderisch.

Kann man das irgendwie abkürzen, wie:
=&(A1:A99)
(Ich weis, so funktioniert das nicht, aber ich denke es ist eindeutig, was ich möchte ^^)

Ich danke vorab, Exel-senseis

[chris-ka]

Hi,


drücke Alt + F11
Einfügen Modul

und füge diesen Code ein

Code:

Function verk(rng As Range) As String

Dim rng_cell As Range
For Each rng_cell In rng
    If rng_cell <> "" Then
        verk = verk & rng_cell
    End If
Next
End Function

im Tabellenblatt kannst du nun
=verk(A1:A99)
eingeben.

Soll wirklich kein Trennzeichen zwischen den Zellen sein?

[steve1da]

Hola,

dazu brauchst du VBA:

http://www.ms-office-forum.net/forum/sho...p?t=273352

Gruß,
steve1da

[Ihroquanshy]

Danke vielmals chris-ka,
ich hab mich immer vor VBA gedrückt, aber das war wirklich gut beschrieben und einfach umzusetzen.

Soll wirklich kein Trennzeichen zwischen den Zellen sein?

Da ich am Ende eine Datenbank hab, die sowieso niemand sieht,
stehen die Trennzeichen dann ungefähr so dazwischen:

Anton
-
Berta
-
Cäsar
_
...


Nochmals Danke (:

[BoskoBiati]

Hallo,

geht auch mit Formeln, die letzte Zeile dann über übernehmen:
[html]

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	A	A
2	B	A-B
3	C	A-B-C
4	D	A-B-C-D
5	E	A-B-C-D-E

Zelle	Formel
B1	=A1
B2	=WENN(A2="";"";B1&"-"&A2)
B3	=WENN(A3="";"";B2&"-"&A3)
B4	=WENN(A4="";"";B3&"-"&A4)
B5	=WENN(A5="";"";B4&"-"&A5)

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[/html]