Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fuktion:Abhängige Verketten von mehrzeilenergebnis

Fuktion:Abhängige Verketten von mehrzeilenergebnis
26.10.2007 18:20:21
mehrzeilenergebnis
Hallo,
ich suche eine Funktion, die mir Werte aus Spalte X verkettet, wenn in Spalte A ein bestimmter Wert steht. (Oder gibt es das als Matrixfunktion, damit kenne ich mich leider gar nicht aus?)
Also z.B. verketten2("Suchwert";X;"Trennzeichen")
Ich habe schon versucht, folgenden Funktionscode anzupassen, aber leider ohne Erfolg. Denke dennoch, der könnte ein guter Ausgangspunkt sein.

Function Verketten2(ByRef bereich As Range, Trennzeichen As String) As String
Dim rng As Range
For Each rng In bereich
If rng  "" Then
Verketten2 = Verketten2 & rng & Trennzeichen
End If
Next
If Len(Verketten2) > 0 Then _
Verketten2 = Left(Verketten2, Len(Verketten2) - Len(Trennzeichen))
End Function


Vielen Dank für Eure Hilfe,
Pascal

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fuktion:Abhängige Verketten von mehrzeilenergebnis
26.10.2007 18:46:23
mehrzeilenergebnis
Ahh, ich bin im Forum doch noch einmal fündig geworden!
Es wurde schon einmal folgendes geschrieben und das funktioniert Super!
Danke Pascal
Einfügen in ein allgemeins Modul:
Option Explicit

Function verketten2(Suchbereich As Range, Suchbegriff As String, Ergebnisbereich As Range,  _
Optional Trennzeichen As String) As String
Application.Volatile
Dim C As Range, S As String
For Each C In Suchbereich
If C = Suchbegriff Then
S = S & C.Offset(0, Ergebnisbereich.Column - Suchbereich.Column) & Trennzeichen
End If
Next C
If Len(S) = Len(Trennzeichen) Then
S = ""
Else
S = Left(S, Len(S) - Len(Trennzeichen))
End If
verketten2 = S
End Function


In der Tabelle aufrufen mit:
=VERKETTEN2(E3:E5;3;B3:B5;", ")

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige