Office: Verketten - durch Text getrennt

Hallo zusammen,

ich hätte da mal wieder ein kleines Problem :)

Also ich habe 25 Zellen (A1-A25)
Diese haben bezogen auf eine andere Registerkarte nur einen Inhalt, wenn dort eine Bedingung erfüllt ist!

Nun möchte ich in Zelle B1 den Inhalt von A1 bis A25 angezeit haben!
Mit Verketten ist das ja kein Problem ...
=A1&A2 ....

So nun möchte ich aber die Werte durch den Text "und" verkettet haben?!

Also wenn A1 einen Wert enthält, und Zelle A9, dann soll in B1 stehe
InhaltA1 und InhaltA9

Grüße
Ernst

 

Hallo!

=A1&" und "&A2&" und "&A3&" und "&A4...

Aber ich glaube, dass nach 30 & Schluss ist.
Also brauchst du wohl zwei Hilfszellen, in denen du jeweils eine Hälfte verkettest.

 

so gehts leider nicht .... da fehlt eine Funktion damit bei leeren Zellen kein und kommt!

So würde es dann so ausschauen

Inhalt A1 und und und und und und und InhaltA9 und und und und ....

Gruß
Ernst

 

Hallo!

	A
1	Text1
2
3
4	Text2
5	Text3
6
7	Text4
8
9
10	Text1 und Text2 und Text3 und Text4

Zelle	Formel
A10	=WECHSELN(WENN(A1="";"";A1&" und ")&WENN(A2="";"";A2&" und ")&WENN(A3="";"";A3&" und ")&WENN(A4="";"";A4&" und ")&WENN(A5="";"";A5&" und ")&WENN(A6="";"";A6&" und ")&WENN(A7="";"";A7&" und ")&WENN(A8="";"";A8&" und ");" und ";;SUMMENPRODUKT(N(A1:A8<>"")))

 

Danke funktioniert Super :)

 

hi Urmel_muc, wenn ich das richtig verstanden hab, geht auch wesentlich kürzer (A11)..:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	Text1
2
3
4	Text2
5	Text3
6
7	Text4
8
9
10	Text1 und Text2 und Text3 und Text4
11	Text1 und Text2 und Text3 und Text4

Zelle	Formel
A10	=WECHSELN(WENN(A1="";"";A1&" und ")&WENN(A2="";"";A2&" und ")&WENN(A3="";"";A3&" und ")&WENN(A4="";"";A4&" und ")&WENN(A5="";"";A5&" und ")&WENN(A6="";"";A6&" und ")&WENN(A7="";"";A7&" und ")&WENN(A8="";"";A8&" und ");" und ";;SUMMENPRODUKT(N(A1:A8<>"")))
A11	=WECHSELN(GLÄTTEN(A1&" "&A2&" "&A3&" "&A4&" "&A5&" "&A6&A7&" "&A8);" ";" und ")

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

 

Hallo!

Sehr schöne Idee!!!
(Dann wollen wir mal hoffen, dass die einzelnen Texte keine Leerzeichen beinhalten...)

 

hi Schatzi, das hatte ich in der tat nicht bedacht, wie gut, dass es dafür von dir (mal wieder) eine funzende lösung gibt... ;-)

 

hi Schatzi, als noch "unausgegorene" alternative könnte gehen..:

 

Hallo!

Ich würde in diesem Fall sogar mal ausnahmsweise über VBA gehen, denn im Original geht die Frage ja sogar über 25 Zellen! Da tippst du dir 'nen Wolf...

	A
1	Text1
2
3
4	Text2
5	Text3
6	Text mit Leerzeichen
7	Text4
8
9
10	Text1 und Text2 und Text3 und Text mit Leerzeichen und Text4
11	Text1 und Text2 und Text3 und Text und mit und LeerzeichenText4
12	Text1 und Text2 und Text3 und Text mit Leerzeichen und Text4

Zelle	Formel
A10	=WECHSELN(WENN(A1="";"";A1&" und ")&WENN(A2="";"";A2&" und ")&WENN(A3="";"";A3&" und ")&WENN(A4="";"";A4&" und ")&WENN(A5="";"";A5&" und ")&WENN(A6="";"";A6&" und ")&WENN(A7="";"";A7&" und ")&WENN(A8="";"";A8&" und ");" und ";;SUMMENPRODUKT(N(A1:A8<>"")))
A11	=WECHSELN(GLÄTTEN(A1&" "&A2&" "&A3&" "&A4&" "&A5&" "&A6&A7&" "&A8);" ";" und ")
A12	=kette(A1:A8;" und ")

Code:

Function Kette(Bereich As Range, Trenner As String)
    Dim Zelle As Range
    For Each Zelle In Bereich
        If Not IsEmpty(Zelle) Then Kette = Kette & Zelle & Trenner
    Next Zelle
    If Len(Kette) > 0 Then Kette = Left(Kette, Len(Kette) - Len(Trenner))
End Function