Supportnet / Forum / Tabellenkalkulation

Hallo Zusammen Meine Problemstellung: Ich habe von A2 bis B32 Einträge der letzen 31 Tage! Die Zeile 32 wird immer mit dem jeweils "heutigen" Datum und Eintrag aktualisiert! Die Zeile 2 wird gelöscht sodass immer 31 Tage aufgezeigt werden! Ich möchte eine "Jahresübersicht" erstellen in der alle Eintäge übers Jahr ersichtlich sind - d.h. ein Makro muss die jeweils aktuellen Einträg von A32 + B32 übernehmen und am Schluss der unteren Tabelle "Jahresübersicht" einfügen. Mein Problem: 1. Wie findet das Makro die erste Leerzeile um die Daten in der Jahresübersicht einzufügen? 2. Wie muss die Formel für das Datum heissen! Vielen Dank im voraus. Stephi Vielleicht helfen folgende Daten mein Problem etwas zu verdeutlichen: Datum Kontakte 27.04.05 2121 28.04.05 3284 29.04.05 2412 30.04.05 2345 01.05.05 5432 02.05.05 4346 03.05.05 133 04.05.05 594 05.05.05 133 06.05.05 594 07.05.05 1465 08.05.05 717 09.05.05 493 10.05.05 929 11.05.05 917 12.05.05 3206 13.05.05 13784 14.05.05 10713 15.05.05 5935 16.05.05 4153 17.05.05 3236 18.05.05 3411 19.05.05 3381 20.05.05 3885 21.05.05 3858 22.05.05 3272 Formeln zu 23.05.05 2785 Datum 24.05.05 2179 25.05.05 1478 "=A31-1" 26.05.05 2723 "=A32-1" 27.05.05 1951 "=HEUTE()" Jahresübersicht Kontakte 01.01.05 717 02.01.05 493 03.01.05 929 04.01.05 917 05.01.05 3206 06.01.05 13784 07.01.05 10713 08.01.05 5935 09.01.05 4153 l l l l 26.05.05 2723 27.05.05 1951

Hi Stephi,

kopier dir nachfolgenden Code in ein Standartmodul:
Sub Übertragen()
Range("A32:B32").Copy
Sheets("Tabelle2").Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub
Der Code kopiert die Zellen A32 u. B32 und fügt sie in die erste freie Zelle der Spalte A auf Blatt 2 ein. Also befindet sich dein Zusammenstellung dann auf einem seperaten Blatt.
Ich hoffe du kommst zurecht.

MfG JöKe

• Zeile einfügen über einen bestimmten Wert
• Makro: Zeile einfügen
• letzte beschriebene Zeile kopieren VBA