OrgZeichen aus verschiedenen Tabellen

Wolfgang · 2017-04-24T15:10:29+00:00

Hallo, ich würde gerne erreichen, dass aus der Tabelle 3 - Spalte I Tabelle 4 - Spalte AI Tabelle 5 - Spalte N Tabelle 6 - Spalte E Tabelle 7 - Spalte E Tabelle 8 - Spalte N Tabelle 9 - Spalte S die jeweiligen OrgZeichen ausgelesen werden und in Tabelle Ergebnisse ab B2 chronologisch eingefügt werden. Wäre so etwas über VbA denkbar? Gestartet werden soll der Code aus dem UF_Abfragen. Danke schon jetzt für die Rückmeldungen. Gruß - Wolfgang

…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 …

Hi
hier noch ne Codevariante.
es werden automatisch alle Blätter durchsucht, außer dem, in welchem eingefügt wird.
eine "Chronologie" ist aus deinen Daten nicht zu erkennen, daher werden die Werte für sich sortiert.
fürs Duplikate-Entfernen gibt's in Excel ne eigene Funktion, die man nach dem zusammenkopiern ausführen kann.

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

Gruß Daniel

OrgZeichen aus verschiedenen Tabellen

Forumthread: OrgZeichen aus verschiedenen Tabellen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

OrgZeichen aus verschiedenen Tabellen

Forumthread: OrgZeichen aus verschiedenen Tabellen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread