Datenübernahme in andere Arbeitsmappe
13.03.2009 08:28:55
Uwe
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...
Anzeige