Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zusammenfügen mehrerer Wörter aus verschiedenen Spalten/Zeilen
#11
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....
Eine Menge reden, aber nichts sagen können viele...
Antworten Top
#12
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Frogger1986
Antworten Top
#13
(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...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top
#14
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 ?
Antworten Top
#15
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.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Nutzer sagt Danke an WillWissen für diesen Beitrag:
  • Jockel
Antworten Top
#16
Hallöchen,

geht mit meiner VBA-Funktion. Ansonsten war noch die Frage offen, was mit Zellen geschehen soll, die Wörter und Zahlen enthalten.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#17
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
Eine Menge reden, aber nichts sagen können viele...
Antworten Top
#18
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:
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
[-] Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:
  • Frogger1986
Antworten Top
#19
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.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Antworten Top
#20
(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) ...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht

"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste