Clever-Excel-Forum

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

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?

Hola,

dazu brauchst du VBA:

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

Gruß,
steve1da

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

(17.03.2015, 09:08)chris-ka schrieb: [ -> ]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 (:

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)

[/html]

Ihroquanshy

chris-ka

steve1da

Ihroquanshy

BoskoBiati