Formelösung

Liebe Leute,

Ich grüße Euch. Ich suche eine Formelösung für folgendes Problem: Ich habe eine Liste mit zwei Spalten mit ca. 1000 Zeilen. In Spalte A habe ich Inhalte die sich ab und an in der Spalte doppeln. In Spalte B habe ich Inhalte die zu den Inhalten in der gleichen Zeile von Spalte A gehören. Das sieht so aus:

Spalte A Spalte B
Lissabon Linie 1
Hamburg Linie 34
Berlin Linie 12
Hamburg Linie 23

Nun habe ich mir auf dem zweiten Tabellenblatt alle Orte aus Spalte A einmal aufgeführt. Nun möchte ich eine Formel finden, die mir alle Inhalte aus Spalte B hinter den entsprechenden Ort aufführt. Hier müsste also bei Hamburg Linie 34, Linie 12 stehen.

Hat hier jemand eine Idee?

Vielen Danke und Grüße
Andy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formelösung

21.06.2023 02:01:13

Piet

AW: Formelösung

21.06.2023 10:58:18

Andy Yomi

AW: Formelösung

21.06.2023 12:41:04

Pappawinni

AW: Formelösung

21.06.2023 13:53:54

Pappawinni

AW: Formelösung

22.06.2023 16:35:34

Andy Yomi

AW: Formelösung

21.06.2023 06:28:07

AW: Formelösung

21.06.2023 10:55:34

Andy Yomi

AW: Formelösung

21.06.2023 11:04:47

AW: Formelösung

22.06.2023 16:34:32

Andy Yomi

AW: Formelösung

23.06.2023 09:48:24

AW: Formelösung

23.06.2023 16:26:58

Andy Yomi

Sub Städet_Linien_zuweisen() Dim rFind As Range, Adr1 As String Dim Tb1 As Worksheet, Txt As String Set Tb1 = Worksheets("Tabelle1") With Worksheets("Tabelle2") lz1 = .Cells(Rows.Count, 1).End(xlUp).Row .Range("B2:B" & lz1).ClearContents For Each AC In .Range("A2:A" & lz1) Txt = Empty 'Linien Text löschen Set rFind = Tb1.Columns(1).Find(What:=AC, After:=[a1], LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) If Not rFind Is Nothing Then Adr1 = rFind.Address Do Txt = Txt & ", " & rFind.Cells(1, 2) Set rFind = Tb1.Columns(1).FindNext(rFind) Loop Until rFind.Address = Adr1 End If AC.Cells(1, 2) = Trim(Mid(Txt, 2)) Next AC End With End Sub

du kannst mal hier schauen
https://www.herber.de/forum/messages/1934304.html
in so ein Modul kannst du den Code rein schreiben, aber vielleicht auch einfach eine Funktion, etwa:


Public Function ayKeyList(key As String, Bereich As Range, wertespalte As Long) As Variant
    Dim i As Long
    Dim sOut As String
    
    Debug.Print key
    
    For i = 1 To Bereich.Rows.Count
       Debug.Print
       If Bereich.Cells(i, 1) = key Then
          sOut = sOut & Bereich.Cells(i, wertespalte) & ";"
       End If
    Next
    If sOut > "" Then
        sOut = Left(sOut, Len(sOut) - 1)
    End If
    ayKeyList = sOut
    
End Function

Da bräuchtest du kein Makro aufrufen, sondern einfach die Funktion in der Zelle anwenden....
also etwa =ayKeyList(D2;$A$2:$B$5;2)
wenn in D2 die Stadt steht, für die du die Auflistung brauchst und dein Tabelle mit Städten und Linien in A2:B5
dann bekommst du die Werte in Spalte 2 dieser Tabelle verkettet
mit =ayKeyList(D2;$A$2:$B$5;1), würdest du halt die Werte aus der ersten Spalte, die als Schlüssel dient so oft verkettet bekommen, wie sie in der Tabelle vorkommt.

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread