Zellen nach Datumsbezug adressieren

Ich möchte regelmäßig erfasste Wetterdaten in einem Formularblatt eingeben. Gleichzeitig soll der untere Teil ab der 21. Zeile des Arbeitsblattes alle Daten chronologisch geordnet jeweils mit wöchentlichen Abständen zusammenfassen. Dabei möchte ich mir die doppelte Dateneingabe ersparen.
Kann ich in Excel eine Zelle in Abhängigkeit vom Formelergebnis in einer
anderen Zelle adressieren?

In Excel kann ein Makro diese Aufgabe für Sie erledigen: Führen Sie den Befehl »Extras | Makro | Makros« aus. Geben Sie im Feld »Makroname« einen Namen für das neue Makro ein und klicken auf die Schaltfläche »Erstellen«. Tragen Sie nun im VBA-Editor folgende Programmzeilen ein oder kopieren Sie die Datei von der Heft-CD CHIP-Code ZELLADR:



Sub Zelladressierung()
Dim Zeile As Integer, Datum As 
Long
Wert=Worksheets(äTabelle1ô).
Cells(2,2).Value
Datum=Worksheets(äTabelle1ô).
Cells(2,1).Value
Dat$=Worksheets(äTabelle1ô).
Cells(2,1).Value
Zeile=(Datum - 36000) / 7 + 20
Worksheets(äTabelle1ô).Cells
(Zeile,1).Value=Dat$
Worksheets(äTabelle1ô).Cells
(Zeile,2).Value=Wert
End Sub




Danach führen Sie den Menübefehl »Datei | Schließen und zurück zu Microsoft Excel« aus.

Hier die Erklärung zur Funktion des Makros:In der ersten Zeile definieren Sie die nötigen Variablen. Die zweite Zeile weist »Wert« den Inhalt der Zelle B2 aus der Tabelle 1 zu. Die nächste Zeile speichert den Datumswert aus der Zelle A2 in Tabelle 1 in die Variable »Datum«. In diesem Beispiel sind die Zellen A2 und B2 Ihre Formularfelder für die Eingabe. Die nächste, ähnliche Zeile ist notwendig, um das formatierte Datum zu übertragen. Der nächste Befehl berechnet ausgehend vom Datumswert die Zeile für den Eintrag. Der Beispielwert »36000« steht für ein Bezugsdatum (Starttermin) und entspricht hier dem 24.7.1998. Den Wert für Ihren Starttermin ermitteln Sie mit dem Funktionsaufruf »=DATWERT (ä24.07.1998ô)«. Die Division durch »7« bewirkt einen wöchentlichen Eintrag in der Liste. Die Addition von »20« überspringt Kopfzeilen im Arbeitsblatt. Die letzten beiden Befehlszeilen schreiben schließlich das formatierte Datum und den eingegebenen Wert in die ersten zwei Spalten der errechneten Zeile.

Im Arbeitsblatt können Sie eine Schaltfläche einfügen und dieser das Makro zuweisen. Führen Sie dazu den Befehl »Ansicht | Symbolleisten | Formular« aus und klicken Sie in der Symbolleiste auf das Element »Schaltfläche«. Ziehen Sie mit der Maus die gewünschte Schaltfläche im Formular auf. Im Fenster »Zuweisen« wählen Sie das oben definierte Makro aus und klicken auf »OK«. Nun können Sie die Bezeichnung und Gestalt des Buttons bearbeiten. Wenn Sie fertig sind, überträgt ein Klick darauf die Daten geordnet in den unteren Tabellenbereich.