![]() |
||
![]() |
Zellen nach Datumsbezug adressierenIch 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 HCHIP-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. |
![]() |