Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1356to1360
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen-ergänzen

Suchen-ergänzen
29.04.2014 11:38:43
Walter
Guten Tag,
wenn möglich, hätte ich von euch gerne
einen Rat zu einem Problem, welches ich
hochgeladen habe. Darin habe ich auch
meine Frage eingetragen.

Die Datei https://www.herber.de/bbs/user/90388.xlsm wurde aus Datenschutzgründen gelöscht


Liebe Grüße
Walter B.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen-ergänzen
30.04.2014 07:07:14
Walter
Guten Morgen,
kann mir jemand zu meinem Thread helfen?
M.f.G.
Walter

AW: Suchen-ergänzen
30.04.2014 08:45:35
Walter
Guten Morgen,
kann mir jemand helfen?
Gruß
Walter

AW: Suchen-ergänzen
30.04.2014 08:54:40
Hajo_Zi
Hallo Walter,
warum muss ich erst eine Datei runterladen um die Aufgabe zu sehen und um dann festzustellen das ist nichts für mich. Dazu ist der Beitrag da. Ich vermute der Auffassung sind viele.

AW: Suchen-ergänzen
30.04.2014 08:55:31
hary
Moin Walter
Da hilft nur eine UDF, also selbstgeschriebene Function. Hier mal auf die schnelle.
https://www.herber.de/bbs/user/90403.xlsm 
Function verketten2(Nummer As Long, Bereich As Range) As String
Dim zelle As Range
For Each zelle In Bereich
If zelle = Nummer Then
verketten2 = IIf(verketten2 = "", zelle.Offset(, 1), verketten2 & "," & zelle.Offset(, 1)) _
End If
Next
verketten2 = Mid(verketten2, InStr(1, verketten2, ",") + 1, 9 ^ 9)
End Function

r
gruss hary

Anzeige
AW: Suchen-ergänzen
30.04.2014 09:44:54
Walter
Guten Morgen hary,
vielen Dank für Deine Hilfe.
L.G.
Walter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige