Werte aus Übersicht übernehmen

Hallo zusammen,

in einer Tabelle befindet sich eine Übersicht über Auszahlungen von 2005 - 2053.

A B
Jahr

1 2005 1000€
2 2006
3 2007 500€
4 2008 100€
5 2010
6 …

Wie zu sehen ist, findet nicht in jedem Jahr eine Auszahlung statt.

Wie kann ich in einer zweiten Tabelle nur die Jahre übernehmen, in denen Auszahlungen stattfinden?

Die zweite Tabelle würde dann so aussehen.

A B

1 2005: 1000€
2 2007: 500€
3 2008: 100€

PS: Die zweite Tabelle soll, also eine kompaktere Form haben, als die erste Tabelle, weshalb diese auch viel weniger Zeilen hat. Tabelle 1 hat z.B. 49 Zeilen, Tabelle 2 nur 3 Zeilen, in denen nur die drei Auszahlungen einzeln aufgeführt werden sollen.

THX im voraus.

Hallo zusammen,

Hallo Alex:smile:

in einer Tabelle befindet sich eine Übersicht über
Auszahlungen von 2005 - 2053.

A B
Jahr

1 2005 1000€
2 2006
3 2007 500€
4 2008 100€
5 2010
6 …

Wie zu sehen ist, findet nicht in jedem Jahr eine Auszahlung
statt.

Wie kann ich in einer zweiten Tabelle nur die Jahre
übernehmen, in denen Auszahlungen stattfinden?

Die zweite Tabelle würde dann so aussehen.

A B

1 2005: 1000€
2 2007: 500€
3 2008: 100€

PS: Die zweite Tabelle soll, also eine kompaktere Form haben,
als die erste Tabelle, weshalb diese auch viel weniger Zeilen
hat. Tabelle 1 hat z.B. 49 Zeilen, Tabelle 2 nur 3 Zeilen, in
denen nur die drei Auszahlungen einzeln aufgeführt werden
sollen.

THX im voraus.

Entweder Du setzt Daten=>Filter=Autofilter und filterst dann in der Spalte mit den Beträgen die Leeren heraus (Benutzerdefiniert: entspricht nicht: Leere)
oder Du legst eine Pivottabelle drüber.

Gruß
Suse

in diesem Fall würde ich einen Spezialfiter anwenden
Beispiel:
Tabelle1 Spalte A:Jahr
Tabelle1 Spalte B: Auszahlungsbetrag

in Tabelle2:
A1: Überschrift von Tabelle1 -Auszahlungsbetrag
A2: Formel: =">"&1

A4 und B4: identische Überschriften der Tabelle1 von Spalte Jahr und Auszahlungsbetrag.

und nun in Tabelle2 folgendes Modul legen:

Private Sub Worksheet_Activate()
Sheets(„Tabelle1“).Columns(„A:B“).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(„A1:A2“), CopyToRange:=Range(„A4:B4“), Unique:=False
End Sub

diese Modul hat die Eigenschaft, das bei aktivierung von Tabelle2 der betreffende Autofilter gestartet wird.

mfg
Spaguzzi

falls noch nicht alles klar ist kannst du ja ne Beispieldatei haben.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Danke für Eure Tipps!

Entweder Du setzt Daten=>Filter=Autofilter und filterst
dann in der Spalte mit den Beträgen die Leeren heraus
(Benutzerdefiniert: entspricht nicht: Leere)
oder Du legst eine Pivottabelle drüber.

Das mit dem Autofilter ist gar nicht schlecht, aber bei der Pivottabelle werden auch wieder die Jahre angezeigt, in denen gar keine Werte enthalten sind.

Kann man das irgendwie einstellen, dass diese Jahre in der Pivottabelle nicht angezeigt werden?

THX im voraus.

Danke für Eure Tipps!

Entweder Du setzt Daten=>Filter=Autofilter und filterst
dann in der Spalte mit den Beträgen die Leeren heraus
(Benutzerdefiniert: entspricht nicht: Leere)
oder Du legst eine Pivottabelle drüber.

Das mit dem Autofilter ist gar nicht schlecht, aber bei der
Pivottabelle werden auch wieder die Jahre angezeigt, in denen
gar keine Werte enthalten sind.

Kann man das irgendwie einstellen, dass diese Jahre in der
Pivottabelle nicht angezeigt werden?

aber sicher: Doppelklick auf Jahr, dann markierst Du diejenigen, die Du ausgeblendet haben möchtest

THX im voraus.

Gern geschehen:smile:)

aber sicher: Doppelklick auf Jahr, dann markierst Du
diejenigen, die Du ausgeblendet haben möchtest

THX im voraus.

Ist es möglich, dass die Jahre gleich automatisch ausgeblendet werden?

meines Wissens nicht…aber du musst sie ja auch nur einmal ausblenden…wird die Tabelle länger musst du zwar den Datenbereich der Pivottabelle anpassen, aber welche ausgeblendet sind, das merkt sie sich

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]