In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "springen":
Sub auto_open()
Dim heute As Date
Dim zelle As Range
heute = Fix(Now)
For Each zelle In ActiveSheet.Range("C5:C369")
If zelle.Value = heute Then
zelle.Activate
Exit For
End If
Next zelle
End Sub
Wie aber gelingt es mir, stets die entsprechenden, tagesaktuellen Daten der Spalten E:AA in eine andere Tabelle zu exportieren? Zudem ist vorgesehen, das sich diese Tabelle in einer anderern Arbeitsmappe befindet.
Vielen Dank für Eure Hilfe.
Uwe
PS: Des Rätsels Lösung bitte via VBA, wenn möglich...