Clever-Excel-Forum

Normale Version: Zusammenfügen mehrerer Wörter aus verschiedenen Spalten/Zeilen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3
wenn du das dann ganz genau nimmst, dann sind das aber nicht Zellen die Zahlen oder Text beinhalten, sondern Zellen die Text und Zahlen Beinhalten und das hat der TE so nicht Geschrieben....
Hallöchen,

Es geht um Wörter und Zellen, die leer sind oder Zellen, die Zahlen beinhalten

Wenn in meinem Garten Bienen fliegen, er also Bienen beinhaltet, heißt das nicht, dass ich keine Blumen habe. Auch wenn ich nicht explicit darauf hingewiesen habe könnte es sein, das Blumen drin sind. Um mal die Sache mit den Bienen und den Blumen aufzugreifen Smile.

Hier mal eine Makrolösung. Die berücksichtigt aber auch nur reine numerische Zellen nicht. Sad

Code:
Public Function txtVerketten1(rngRange As Range, _
      Optional strConn As String = ";", _
      Optional bEmpty As Boolean = False, _
      Optional bNumOrTxt As Boolean = False) As String
'Variablendeklarationen
Dim rngCel As Range
Dim arrCel
Dim iCnt&
'Array entsprechend Zellen dimensionieren
ReDim arrCel(rngRange.Cells.Count)
'Schleife ueber alle Zellen
For Each rngCel In rngRange
 'wenn was in der Zelle ist
 'oder Leere beruecksichtigt werden sollen, dann
 If rngCel <> "" Or bEmpty Then
   'Wenn die Zelle dem Parameter bNumOrTxt entspricht, dann
   If IsNumeric(rngCel) = bNumOrTxt Then
     'Inhalt in Array uebernehmen
     arrCel(iCnt) = CStr(rngCel.Value)
     'Zaehler hochsetzen
     iCnt = iCnt + 1
   'Ende Wenn die Zelle dem Parameter bNumOrTxt entspricht, dann
   End If
 'Ende wenn was in der Zelle ist ...
 End If
'Ende Schleife ueber alle Zellen
Next
'Array entsprechend Inhalten dimensionieren
ReDim Preserve arrCel(iCnt - 1)
'Text verketten und Rueckgabe zuweisen
txtVerketten1 = Join(arrCel, strConn)
End Function



Arbeitsblatt mit dem Namen 'Tabelle1'
ABCD
1A1BA;B;C;D
2CD1

ZelleFormel
D1=txtVerketten1(A1:C2;";")
D2=txtVerketten1(A1:C2;";";;WAHR)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
(23.09.2018, 10:20)WillWissen schrieb: [ -> ]... Aber lassen wir mal die Strumpf-Maus zu Wort kommen.

Hallo, so wie bei den letzten Anfragen..? Hier wäre sicher ein sinnvolles Beispiel in einer XL-Datei hilfreich. Ich denke, dass das hier mit einer Formel schwer umsetzbar ist... Auch NICHT(mit_einer_VERKETTUNG())

VERKETTEN(WENN(NICHT())) ist schon speziell...
Vielen Dank für die vielen Vorschläge Smile
Was mein größtest Problem ist, ich muss in jeder Formel die Zellen angeben die Text enthalten könnten, d.h. wenn ich einen Bereich von 200 Zellen habe macht das viel Arbeit.
Gibt es nicht die Möglichkeit das einfacher zu gestalten, in dem man einfach einen Bereich angibt z.B. C3:T5 ?
Hallo,

erklär doch mal bitte, zu was das gut sein soll, 200 Zellen in einer einzigen zusammenzufassen. Einen sinnvollen Anwendungsbereich kann ich mir aktuell nicht vorstellen.
Hallöchen,

geht mit meiner VBA-Funktion. Ansonsten war noch die Frage offen, was mit Zellen geschehen soll, die Wörter und Zahlen enthalten.
Ich hab an einer kleineren Formel gebastelt, komm aber nimmer weiter! Vielleicht kommt noch jemand anderes auf die Lösung, wie ich aus den Adressen vll noch die Werte ziehen kann... ich hab's bereits mit Zelle("Inhalt",), Indirekt() und Index() versucht, das will er aber nicht...

Arbeitsblatt mit dem Namen 'Tabelle1'
ABCDEFGHIJKLMNOPQRST
5$F$5 $G$5 $I$5 $J$5 $K$5 $O$5 $F$6 $G$6 $F$7 $G$7 $F$8 $G$8lljlijoj65ö
6ll
7ll
8ll

ZelleFormel
A5{=TEXTVERKETTEN(" ";1;WENNFEHLER(ADRESSE(ISTTEXT(F5:T8)*ZEILE(F5:T8);ISTTEXT(F5:T8)*SPALTE(F5:T8));""))}
Achtung, Matrixformel enthalten!
Die geschweiften Klammern{} werden nicht eingegeben.
Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Moin!
Dem Wunsch nach einer kleinen Beispieldatei bist Du immer noch nicht nachgekommen.
Insbesondere ist unklar, ob Bienen und Blumen in EINEM Garten vorkommen können.  :21:
Hallo

Und es wäre wichtig zu erfahren ob Excel 2016 die Kaufversion oder die Aboversion ist.
Mit der Aboversion wäre der Einsatz von TEXTVERKETTEN() möglich.
(23.09.2018, 14:18)shift-del schrieb: [ -> ]Hallo
...
Mit der Aboversion wäre der Einsatz von TEXTVERKETTEN() möglich.

Hallo, und da gibt's ja ein Vorschlag (ob man den gut verwenden kann - keine Ahnung, ich habe "nur" die 16 er Kaufversion) ...
Seiten: 1 2 3