Daten aus Ursprungstabelle sortieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ExportListe() Dim wksS As Worksheet, wksT As Worksheet Dim iRowS As Integer, iRowT As Integer Set wksS = Worksheets("ToDo") Set wksT = Worksheets("Gesamtübersicht") wksT.Rows("2:" & wksT.Rows.Count).ClearContents For iRowS = 2 To wksS.Cells(wksS.Rows.Count, 4).End(xlUp).Row If wksS.Cells(iRowS, 4).Value = "x" Then iRowT = wksT.Cells(wksT.Rows.Count, 1).End(xlUp).Row + 1 wksT.Cells(iRowT, 1).Value = wksS.Cells(iRowS, 1).Text & " " & wksS.Cells(iRowS, 3). _ Value End If Next iRowS End Sub

Private Sub Workbook_Open() Dim wksS As Worksheet, wksT As Worksheet Dim iRowS As Integer, iRowT As Integer Set wksS = Worksheets("ToDo") Set wksT = Worksheets("Gesamtübersicht") wksT.Rows("2:" & wksT.Rows.Count).ClearContents For iRowS = 2 To wksS.Cells(wksS.Rows.Count, 1).End(xlUp).Row If wksS.Cells(iRowS, 4).Value "x" Then iRowT = wksT.Cells(wksT.Rows.Count, 1).End(xlUp).Row + 1 wksT.Cells(iRowT, 1).Value = wksS.Cells(iRowS, 1).Text & " " & wksS.Cells(iRowS, 3).Value End If Next iRowS End Sub

Hallo Ihr Lieben,
meinen ganz herzlichen Dank für die Mühe, die Ihr Euch gemacht habt!
Ich habe mir Eure Vorschläge alle ausführlich angesehen. Leider klappt das alles nicht so wirklich.
Bei den VBA-Lösungen, kommt der Ansatz von Hans dem am Nächsten. https://www.herber.de/bbs/user/145648.xlsm
Hier weiß ich aber nicht, wie ich die Daten aus ToDo erst ab Zeile 15 in der Übersicht "offene Aufgaben" anzeigen lassen kann.
Ausserdem werden mir alle anderen Daten auf der Seite gelöscht. Hier nochmal das Layout: https://www.herber.de/bbs/user/145652.xlsm
Die Formellösungen machen mich kirre, weil ich sie auch nicht wirklich verstehe. So kannte ich "Aggregat" noch nicht.
=WENNFEHLER(INDEX(ToDo!A$2:A$99&", "&ToDo!B$2:B$99&", "&ToDo!C$2:C$99;AGGREGAT(15;6;ZEILE($C$1:$C$18) /(ToDo!$D$2:$D$99="x");ZEILE($C1)));"")
Also, Index ist mir klar.
Aggregat 15;6 führt kkleinste mit ignorieren der Fehlerwerte aus. Wozu an dieser Stelle kkleinste?
ZEILE($C$1:$C$18) geht mir nicht in den Kopf. In der Gesamtübersicht wird Spalte C gar nicht benutzt.
/(ToDo!$D$2:$D$99="x") Hier habe ich dann das x rausgenommen, weil es die bereits erledigten Aufgaben markiert. Ich brauche eine Anzeige der offenen Aufgaben.
ZEILE($C1) Sollte an dieser Stelle nicht der x-te Wert einer Matrix angegeben werden?
Es ist mir wichtig, dass ich das Ganze verstehe!
Dann muss ich Euch nicht mit meiner nächsten Aufgabe behelligen. Nämlich, mir die nächsten Liefertermine in der Gesamtübersicht anzeigen zu lassen ;-)

Hallo Christian,
... u.a. davon, was Du Dir als Zielstellung setzt bzw. Dir gesetzt wurde/wird. Also wichtig ist auf jeden Fall, wozu Du das zu erwerbende Wissen benötigst bzw. anwenden willst. Dann noch wie viel Zeit Du dafür zur Verfügung hast bzw. bekommst und nicht zuletzt natürlich auch, welchen finanziellen Aufwand Du investieren kannst/möchtest.
Die meisten wollen natürlich möglichst umfassenden Wissen möglichst sofort und das ganze für lau. Letzteres kann man haben. Dafür nutze einfach intensiv das Internet und werde parallel dazu aktiv in Foren wie diesem. Damit kannst Du Dich schon auf einen sehr hohen Level bringen. Natürlich bedarf es dazu aber auch viel bzw. zumindest mehr Zeit, als wenn Du Kurse belegst. Dafür kosten die auch entsprechend und bringen allein oft nur bedingt Erkenntniszugewinn.
Am effektivsten dürfte eine Individualschulung sein, z.B. wenn Du bestimmte Aufgaben regelmäßig mit Excel lösen musst bzw. möchtest und Dir dafür einen erfahrenen Ausbilder mit reichlich Praxiserfahrung zur Verfügung steht und Du in der Lage bist die richtigen Fragestellungen dazu vorzutragen.
Na und dann kannst Du auch vorgenanntes miteinander verschieden kombinieren. Aber ohne "Lernen durch Tun" wird es in seltenen Fällen zum Erfolg führen.
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

	A	B
1	Offene Aufgaben
2	13.04.2021	3x Büroausstattung bestellen
3	13.04.2021	Mail an Michael, alle Rechnungen zu mir
4	13.04.2021	Briefmarken besorgen
5	13.04.2021	IT - Kasse einrichten
6	13.04.2021	Reiner Aktenführung besprechen

Zelle	Format	Wert
A2	TT.MM.JJJJ h:mm	13.04.2021

Zelle	Formel
A2	=WENNFEHLER(AGGREGAT(15;6;(ToDo!A$2:A$99+ToDo!B$2:B$99)/(ToDo!D$2:D$99="x");ZEILE(A1));"")
B2	=WENNFEHLER(INDEX(ToDo!C:C;AGGREGAT(15;6;ZEILE(ToDo!A$2:A$99)/(ToDo!A$2:A$99+ToDo!B$2:B$99=A2);ZÄHLENWENN(A$2:A2;A2)));"")

Zelle	bedingte Formatierung...	Format
A2	1: REST(A2;1)=0	abc

Daten aus Ursprungstabelle sortieren

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread