Office: (Office 2013) Bestimmten Bereich (Kalenderwoche) aus einem Tabellenblatt in ein anderes übertragen

Hallo Leute, ich mal wieder :D

ist es möglich, einen bestimmten Bereich in ein anderes Tabellenblatt zu übertragen?

Ich habe ein Monatsblatt und möchte daraus einzelne Wochen (Sonntag bis Sonntag einer KW) in ein anderes Tabellenblatt kopieren.

Ich habe folgende Spalten zum abfragen:
Tag, Datum, KW

Ist es möglich, die KW + Sonntag abzufragen (Evtl. per Dropdownmenü mit Einträgen der KW z.B.), und dann die zugehörige Woche (alle Zeilen z.B. A7-U14) in ein anderes Tabellenblatt zu kopieren?

Ich hoffe ich hab es verständlich genug erklärt. :D

 

Hola,

soll immer nur die aktuelle KW übernommen werden, oder immer eine bestimmte, oder immer eine andere?
Wo stehen die Daten genau, in welchem Format liegen die Daten vor?
Wie wurde die KW berechnet?

Gruß,
steve1da

 

Hey, im Grunde genommen nur die Vergangene (zum Abrechnen)

Ich habe 12 Tabellenblätter (Jan, Feb, Mrz, Apr, Mai, Jun, Jul, Aug, Sep, Okt, Nov, Dez)
Dort sind in den Spalten 7-37 die Monate abgebildet.

Die KW berechne ich so:
=WENN($B8="";"";WENN(WOCHENTAG(B8;2)=1;KÜRZEN((B8-DATUM(JAHR(B8+3-REST(B8-2;7));1;REST(B8-2;7)-9))/7);""))

Die Abzugreifenden Daten stehen im Bereich A7-U14

A (Tag) So,Mo Di, Mi, Do, Fr
B (Datum) 01.05.2016
C-M (D & M sind Angangszeit und Ende) sind Texte
N-Q Berechnete Arbeitszeiten (Soll, Ist, Überstunden & zu berechnende Stunden)
R-T Textfelder

ich hoffe das reicht als Info :)

 

Hola,

ich glaube hier wäre eine Beispieldatei sinnvoll ;-)

Gruß,
steve1da

 

Bitteschön :) Bsp.xlsm

 

Hola,

aktuell lade ich keine xlsm Dateien runter. Und warum nutzt du nicht die Möglichkeit, im Forum hochzuladen?

Gruß,
steve1da

 

Die Funktion im Forum lädt meine Datei nicht hoch. Kommt immer ein rotes Ausrufezeichen

 

also, die xlm Datei ist "zu groß" mit 900kb und eine rar Datei nimmt das Forum nicht an.

 

Hola,

eine Beispieldatei braucht auch keine 900kb ;-)
Es muss nur der Aufbau erkennbar sein und wie die Daten vorliegen.

Gruß,
steve1da

 

So, ich hoffe mal, das man noch genug sieht, habe jetzt das meiste "nicht nötige" gelöscht: Den Anhang Bsp.xlsm betrachten

 

Für Steve:
Ich habe die (unverfänglichen und hier überflüssigen) Makros mal gelöscht.

Gruß Ralf

 

Hola,

@Ralf. Danke!

Wenn du die Formel in U7 wie folgt änderst,

Code:

=KALENDERWOCHE(B7;21)

hast du in jeder Zelle die KW des Datums stehen.
Im separaten Blatt dann:

Code:

=WENNFEHLER(INDEX(Jan!A$7:A$37;AGGREGAT(15;6;ZEILE($7:$37)-6/(Jan!$U$7:$U$37=KALENDERWOCHE(HEUTE();21)-1);ZEILE(A1)));"")

Die Formel nach rechts und nach unten ziehen. Den Bereich bei Index dann jeweils auf die Spalten anpassen, die wiedergegeben werden sollen.

Gruß,
steve1da

 

Danke dir schonmal :)

Kann ich das mit der KW nicht so lassen? Zumindest so, das die KW nur am 1. Tag der KW angezeigt wird?

 

Hola,

wenn es dir nur um die Anzeige geht, dann pack meine Formel für die Berechnung der KW z.B. in AI7 und zieh sie nach unten (kannst die Spalte dann auch ausblenden).
Die zweite Formel dann wie folgt ändern:

Code:

=WENNFEHLER(INDEX(Jan!A$7:A$37;AGGREGAT(15;6;ZEILE($7:$37)-6/(Jan!$AI$7:$AI$37=KALENDERWOCHE(HEUTE();21)-1);ZEILE(A1)));"")

In U7 dann:

Code:

=KALENDERWOCHE(B7;21)

In U8:

Code:

=WENN(KALENDERWOCHE(B8;21)=KALENDERWOCHE(B7;21);"";KALENDERWOCHE(B8;21))

Gruß,
steve1da

 

Irgendwie bekomm ich es nicht hin, die Felder bleiben allesamt weiß