Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugeordnete Merkmale auflisten

Zugeordnete Merkmale auflisten
17.09.2013 17:51:38
Wolfango
Hallo zusammen,
ich habe eine Namensliste (Namen in einer Spalte),
Jedem Namen ist jeweils eines von drei Merkmalen (A oder B oder C) oder auch kein Merkmal in der Nachbarspalte zugeordnet.
Siehe Demo-Beispiel:
https://www.herber.de/bbs/user/87326.xlsx
Nun möchte ich aufgelistet bekommen wem das Merkmal A bzw. B bzw. C zugeordnet ist.
Die Auflistung kann in einer Zelle oder aber auch in benachbarten Zellen erfolgen. Ob die Auflistung in einer Spalte oder in einer Zeile erfolgt ist dabei nicht so wichtig.
Wie mache ich das am sinnvollsten?
Wenn möglich ohne VBA (oder aber VBA, welches nicht angetriggert werden muss)
Vielen Dank vorab und Gruß,
Wo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zugeordnete Merkmale auflisten
17.09.2013 18:05:22
ransi
HAllo
Schau es dir mal an.
Diesen Code in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Verkettenwenn(Kriterium As String, _
        Bereich As Range, _
        SuchSpalte As Integer, _
        ErgebnissSpalte As Integer, _
        Optional Unikate As Boolean = True, _
        Optional Trenner As String = ", ") As String
    Dim arrTmp
    Dim L As Long
    Dim Mydic As Object
    arrTmp = Bereich
    Set Mydic = CreateObject("Scripting.Dictionary")
    If Unikate = True Then
        For L = 1 To UBound(arrTmp)
            If arrTmp(L, SuchSpalte) Like Kriterium Then Mydic(arrTmp(L, ErgebnissSpalte)) = 0
        Next
        Verkettenwenn = Join(Mydic.keys, Trenner)
        Else:
        For L = 1 To UBound(arrTmp)
            If arrTmp(L, SuchSpalte) Like Kriterium Then Mydic(L) = arrTmp(L, ErgebnissSpalte)
        Next
        Verkettenwenn = Join(Mydic.items, Trenner)
    End If
End Function


Der Aufruf ist dann ganz einfach:
Demo

 CDEFGHIJKLM
1           
2   A oder  B oder C       
3  Name 1A       
4  Name 2B       
5  Name 3A       
6  Name 4A       
7  Name 5B       
8  Name 6B       
9  Name 7C       
10  Name 8C       
11  Name 9A       
12  Name 10B       
13  Name 11C       
14  Name 12C       
15           
16           
17Auswertung:   Oder: Auswertung:     
18AName 1, Name 3, Name 4, Name 9   AName 1Name 3Name 4Name 9 
19BName 2, Name 5, Name 6, Name 10   BName 2Name 5Name 6Name 10 
20CName 7, Name 8, Name 11, Name 12   CName 7Name 8Name 11Name 12 
21           

Formeln der Tabelle
ZelleFormel
D18=verkettenwenn($C18;$E$3:$F$14;2;1;WAHR;", ")
I18{=INDEX($E$3:$E$14;KKLEINSTE(WENN($F$3:$F$14=$H18;ZEILE($A$1:$A$12)); SPALTE(A1)))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
In I18:L20 ist die Ausgabe Zellenweise organisiert.
Allerdings mit Matrixformel.
ransi
Anzeige

13 Forumthreads zu ähnlichen Themen

fehler, wenn Control eine Zelle zugeordnet
TCO99


Hallo zusammen,
ich verzweifle weiterhin an meinem Problem (habe gestern schon das Problem ins Forum gestellt) und habe jetzt nochmal einen anderen Weg versucht. Meine Userform lässt sich wunderbar aufrufen, wenn sie noch keinerlei Funktion hat. Jetzt habe ich eine einzige Textbox geno...
16.02.2009 23:20:00
Thread-ID: 1051340
5 Beiträge
Anzeige
find Methode Bereich kann nicht zugeordnet werden
Jonathan

Hey,
ich habe folgenden - bisher funktionierenden - Code zum Suchen eines bestimmten Wertes innerhalb eines def. Bereichs:
Set WkSh = ThisWorkbook.Sheets("Suchwerte") With WkSh.Cells Set rZelle = .Range(WkSh.Cells(2, 1), WkSh.Cells(ersteZelleoDaten(Sheets("Suchwerte"), 1) _ - 1), 6).f...
26.09.2011 13:17:49
Thread-ID: 1231484
11 Beiträge
falsch zugeordnet! (oT)
Niko

Hi
22.07.2012 12:44:11
Thread-ID: 1272194
2 Beiträge
Anzeige
Zugeordnete Werte Auflisten
Franco

Hallo zusammen,
ich befürchte ich habe ein monströses Brett vor dem Kopf und hoffe die Lösung ist einfach.
Die Ausgangsdatei enthält in Spalte A Artikelnummern von 1 - 10000 (jede Zahl kommt nur ein mal vor) In Spalte B sind dieser Artikelnummer alternative Artikel zugeordnet, es kann...
09.04.2015 13:19:20
Thread-ID: 1419910
3 Beiträge
Numerischen Werten zugeordneten Text sortieren
FritzeBollmann

Guten Tag, ich habe ein für meine Begriffe etwas komplexeres Problem. Und zwar sollen in einer umfangreicheren Datenbank die Spalteneinträge der Kopfzeile mit numerischen Werten verknüpft und anhand dieser in absteigender Reihenfolge sortiert werden. Was meine ich konkret?
Wie im Beispiel h...
28.07.2016 09:20:59
Thread-ID: 1506672
10 Beiträge
Zugeordneter Werte in TextBox schreiben
Sabrina

Hallo,
ich möchte das jenachdem welche Wert in A2 steht in die TextBox der Userform geschriben wird. Bekomme es aber leider nicht hin.
Die Matrix ist in Tabelle2.
Kann mir jemand helfen?
Hier die Datei:
https://www.herber.de/bbs/user/123794.xlsm
LG Sabbel
05.09.2018 23:57:02
Thread-ID: 1643672
4 Beiträge
Beliebige Datei in zugeordnetem Programm öffnen
Alexander Zeng

Hallo,Unter Windows sind jedem Dateitypen entsprechende Programme zugewiesen:*.xls für Excel
*.doc für Word
*.pdf für Acrobat
*.pds für Photoshop
*.zip für WinZipusw.In meinem Makro kann der Anwender unter Excel jede beliebige Datei auswählen. Ich halte dann den Datei-Pfad!(zum Beis...
29.12.2002 13:32:26
Thread-ID: 197113
2 Beiträge
Werte nach zugeordnetem Datum selektieren
Dominik
Hi,

ich habe folgendes Problem. Ich möchte aus einer Tabelle Werte selektieren, die einem bestimmten Datum zugeordnet sind. In den Zeilen sind die zu selektierenden Werte enthalten. In der spalte steht jeweils das Datum, das jedoch immer nur das Monatsende von Juni oder Dezember enthalten ka...
04.12.2003 14:23:00
Thread-ID: 347565
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
1
7
2
9
3
1
3
3
2
6