OrgZeichen aus verschiedenen Tabellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…eines ausführenden Pgms aus einer UF heraus festlegen willst/musst, Wolfgang,
könntest du ja dort auch eine Formel (Fml) benutzen. Eine Möglichkeit dafür bestünde in der Nutzung einer Xl-Fkt in Verbindung mit einer UDF (eigene Fkt in VBA), entweder als Fml für Einzel- oder MatrixFml für alle Werte, bspw so:
B2[:B9]:=KKLEINSTE(DataSet(DataSet(Tabelle1!$A$1:$A$3;Tabelle2!$C$1:$C$3;;1;1);Tabelle3!$B$1:$B$4;;1;1);ZEILE(A1))
B2:B9: {=KKLEINSTE(DataSet(DataSet(Tabelle1!A1:A3;Tabelle2!C1:C3;;1;1);Tabelle3!B1:B4;;1;1);ZEILE(1:8))}
Die QuellBlätter und Bereiche habe ich jetzt mal willkürlich gewählt. Die UDF DataSet ist auf mathematische Mengen lt Mengenlehre orientiert und verarbeitet deshalb immer nur 2. Für jede weitere Spalte muss also, in Analogie zur Xl-Fkt WECHSELN, ein kompletter FmlTeil hinzugefügt wdn. Im Bsp habe ich das schon mal für 2 Spalten/Blätter in der inneren und ein(e) weitere(s) in der äußeren UDF getan/angedeutet.
Der Vorteil: Die UDF liegt fertig im Archiv (in hier wohl ausreichender Version 1.0) vor und nichts muss mehr pgmmiert wdn!
Sie lässt sich aber auch, ebenso wie die abschließende Xl-Fkt in eine SubProzedur einbinden, wobei dann auch für jede/s zusätzliche Spalte/Blatt eine Schleife benutzt wdn kann.
DataSet (nur Vs1.0, aktuell 1.3): https://www.herber.de/forum/archiv/1500to1504/1503360_Anzahl_einmaliger_Werte_aus_versch_SpaltenZeilen.html#1504128
Morrn, Luc :-?
Besser informiert mit …

Sub test() Dim ws As Worksheet Dim Zelle As Range With Sheets("Tabelle1") .Range(.Cells(2, 2), .Cells(2, 1).End(xlDown)).ClearContents For Each ws In ThisWorkbook.Worksheets If ws.Name .Name Then Set Zelle = ws.Rows(1).Find(what:="Verkäufer") If Not Zelle Is Nothing Then Range(Zelle.Offset(1, 0), Zelle.End(xlDown)).Copy .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End If End If Next With .Columns(2) .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes .RemoveDuplicates 1, xlYes End With End With End Sub

Hallo Michael,
sorry - ich habe Dich wirklich nicht vergessen und hätte so oder so geantwortet. Situation ist die: Über meinen Dienstrechner kann ich keine Mappen herunterladen, so dass ich mir erst gestern Abend zuhause Deine Mappe herunterladen und testen konnte. Daniels Code konnte ich dabei schon gestern tagsüber auf meinen Dienstrechner kopieren und in mein Tool einfügen. Also, wirklich nicht von mir böse gemeint und auch wirklich jetzt von Herzen meinen tausend Dank für Deine Arbeit und den Code. Auch Dein Code macht genau das, was ich mir gewünscht hatte. Es hat sich zwischenzeitlich nur ein neuer Aspekt ergeben, den ich vorher nicht kannte, dass nämlich in bestimmten Tabellenblättern eine andere Überschrift gewählt wurde. Hast Du da evtl. noch zu Deinem Code eine Idee wie ich den anpassen könnte, um dann ggfs. mehrere Überschriften in den verschiedenen Tabellen abzufragen?
Vielen Dank nochmals und auch schon jetzt herzlichen Dank für Deine erneute Rückmeldung.
Gruß - Wolfgang

Beliebteste Forumthreads (12 Monate)

OrgZeichen aus verschiedenen Tabellen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread