Zeilen eines Jahres in neue Tabelle

[dreamer84]

Hi Leute,

ich habe jetzt viel Stunden gesucht und ausprobiert, finde aber nichts was mir wirklich hilft.
Hier mein Problem:

Ich besitze eine Tabelle, in der alle Einnahmen mit genauen Datum erfasst sind.
Nun möchte ich, dass alle Zeilen in eine neue Tabelle kopiert werden, die im Jahr 2015 bzw. 2016 eingenommen wurden.

Dabei wird in Zukunft nur die "Tabelle1" von mir aktuell gehalten.
Die Tabelle "2015" und "2016" sollen sich dabei in Zukunft selbst aktualisieren.


  Einnahmen.xlsx (Größe: 9,37 KB / Downloads: 4)

Vielen Dank

[Fennek]

Hallo,

Test diesem Code:


Sub sTest()
Dim rng as range
Dim c as range
With columns("A")
For i = 2015 to 2016
Set c = .find(i)
Start = c.address
Set rng = range(c, c.offset(0,2)
Do
Set c = .findnext©
Set rng = union(rng, range(c, c.offset(0,2)))
Loop until c.address = Start
Rng.copy destination:=sheets(i - 2013).cells(2,1)
Next i
End with
End sub



Mfg

[WillWissen]

Hi,

falls du kein VBA einsetzen willst/darfst, hier eine Lösung mit 2 Hilfsspalten. Die farbig markierte in Tabelle1 kannst du ausblenden, dann stört sie nicht mehr. Die zweite mit den zum Vergleich stehenden Jahreszahlen kannst du offen lassen oder ausblenden - ganz nach persönlichem Gusto.

Tabelle1

	A	B	C	D	E
1	Datum	Agentur	Betrag
2	01.05.2014	A	800		2015
3	05.10.2014	B	600		2016
4	25.12.2014	A	300
5	02.02.2015	C	750	5
6	04.06.2015	B	400	6
7	22.07.2015	D	250	7
8	03.09.2015	A	900	8
9	11.10.2015	E	500	9
10	30.12.2015	B	400	10
11	02.04.2016	C	800
12	08.07.2016	E	600

Formeln der Tabelle

Zelle Formel D2 =WENN(JAHR(A2)=$E$2;ZEILE();"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

2015

	A	B	C
1	Datum	Agentur	Betrag
2	02.02.2015	C	750
3	04.06.2015	B	400
4	22.07.2015	D	250
5	03.09.2015	A	900
6	11.10.2015	E	500
7	30.12.2015	B	400
8
9
10

Formeln der Tabelle

Zelle Formel A2 =WENNFEHLER(INDEX(Tabelle1!A:A;KKLEINSTE(Tabelle1!D:D;ZEILE(A1)));"") B2 =WENNFEHLER(SVERWEIS(A2;Tabelle1!$A$2:$C$20;2;0);"") C2 =WENNFEHLER(SVERWEIS(A2;Tabelle1!$A$2:$C$20;3;0);"")

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Hier das Beispiel für Jahr 2015; für 2016 musst du halt die Formeln anpassen. Die Formeln ziehst du einfach so weit runter, wie du meinst, eines Tages Daten darin zu haben.

[atilla]

Hallo,

wenn kein VBa eingesetzt werden dar, dann würde ich eine Pivottabelle nutzen.

Wenn VBA möglich, dann würde ich es mit dem Spezialfilter machen.
Mit dem Aufbau in der eingestellten Beispielmappe ginge es wie folgt:

Folgenden Code in das Codemodul DieseArbeitsmappe einfügen:

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If ActiveSheet.Name <> "Tabelle1" Then aktualisieren
End Sub

und folgenden Code in ein allgemeines Modul einfügen:

Code:

Sub aktualisieren()
  Cells(2, 4).FormulaLocal = "=JAHR(Tabelle1!A2)=" & Format(ActiveSheet.Name, "0000")
  Cells(1, 1).CurrentRegion.Offset(1, 0).Resize(Cells(1, 1).CurrentRegion.Rows.Count, 3).Clear
  Sheets("Tabelle1").Cells(1, 1).CurrentRegion.AdvancedFilter 2, Cells(1, 1).CurrentRegion, Range("A1:C1")
End Sub

Das war es. Beim betreten der Jahrestabellen werden sie dann jedes mal aktualisiert.


Und hier Deine Beispielmappe mit den Codes:



  Kopie von Einnahmen(ati).xlsm (Größe: 17,96 KB / Downloads: 3)

[dreamer84]

Ich danke euch erst mal für eure Hilfe.
Mit den Makros kenne ich mich leider überhaupt nicht aus.
Deshalb werde ich wohl den Weg mit den Hilfsspalten nehmen müssen.
Das habe ich auch gerade gemacht und es funktioniert  :19: 
Danke auch, dass du die Formeln direkt mitgeschickt hast. Den Rest bekomme  ich selber hin...

Vielen Dank auch nochmal für die Makro-Codes. Ich werde sie mir auf jeden Fall mal speichern,
für den Fall, dass ich mir in Zukunft doch mal anschauen muss was das so wirklich ist und wie es funktiert.

Großes DANKE!!!  :19: