AW: Kalender zusammenfassen
01.08.2012 22:29:52
fcs
Hallo SJdelphin,
Formeln etc. kann ich nur teilweise einsehen.
Meinst du "teilweise einsehen" oder "teilweise verstehen"?
Formeln gibt es ja "nur" im Kalenderblatt der Standorte zur Berechnung des Datums
Zelle B4: hier muss das Datum des Monats eingegeben werden, an dem der Kalender begonnen werden soll.
Zelle B5:B8: für den Dienstag bis Freitag der Woche wird das Datum des Vortags um 1 erhöht.
Zelle B9: Für den Montag der Woche wird das Datum des Montags der vorherigen Woche um 7 erhöht.
Da in Excel 1 Tag den Wert 1 für Datumsberechnungen hat kann man so Datumswerte berechnen.
Für die restlichen Tage des Jahres hab ich dann die Zellen B5:B9 markiert und mit der Ziehen-/Autoausfüllenfunktion bis zum letzten Tag des Kalenders kopiert.
Mit der Formel in Spalte A wird der Wochentag des Datums in Spalte B angezeigt.
Zelle B2: =JAHR(B9) Hier wird aus dem Datum berechnet. Hier hab ich nicht Zelle B4 genommen, da die 1. Woche eines Jahres ggf. schon im Dezember des Vorjahres beginnt.
Ich hätte es letztendlich über bedingte Formatierung und dann einzelne Tabellenblätter umgesetzt,
Die Tages-Termine werden per Makro eingetragen. Sobald für eine Uhrzeit ein Wert eingetragen wird, wird per bedingter Formatierung die Zellfüllfarbe geändert.
aber wie bekomme ich es zum Beispiel hin, dass er mir die Auswahllisten im Tabellenblatt Termine anbietet?
Im Blatt "Auswahllisten sind für die Standorte und die Uhrzeiten in 2 Spalten die zulässigen Eingabewerte eingegeben.
Für die beiden Zellbereiche sind die Namen "Standorte" und "Uhrzeiten" festgelegt worden.
Danach dann im Blatt "Termine" für die Spalte B (Uhrzeit) bzw. C (Standort) via Menü Daten--Datengültigkeit eine Liste mit DropDownAuswahl als Gültigkeitsprüfung festgelegt.
Oder wie stelle ich die Bedienfelder "Sortieren" und "Kalender aktualisieren" ein?
Die Makros muss du im VBA-Editor in ein allgemeines Modul deiner Datei kopieren
Die Vorgaben für das Sortieren muss du im Makro anpassen.
Sub Sortieren()
Dim wks As Worksheet
Set wks = Worksheets("Termine")
With wks
'Sortieren nach Datum, Uhrzeit,Standort
With .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 5))
.Sort Key1:=.Range("A1"), order1:=xlAscending, _
Key2:=.Range("B1"), order2:=xlAscending, _
Key3:=.Range("C1"), order3:=xlAscending, Header:=xlYes
End With
End With
End Sub
Sortierbereich: .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 5))
= Zelle A1 bis zur letzten Zeile in Spalte 1 (A) und dann 5 Spalten nach rechts (bis Spalte F)
Mit den Werten für Key und Order wird die Spalte nach der sortiert werden soll festgelegt und die Sortierreihenfolge.
Im Makro "Kalender_aktualisieren" muss du die Tabellenblattnamen anpassen und die für die weiteren Standortblätter vorgesehenen Zeilen dürch löschen des Hochkommas am Anfang der Zeilen aktivieren.
Die Bedienfelder "Kalender aktualiseren" und "Sortieren" sind Schaltflächen aus den Formularsteuerelementen. Diese muss du im Menü anklicken und dann mit der Maus im Tabellenblatt plazieren. Danach mit Rechte-Maustasten-Klick dann Schaltfläche wählen und das entsprechende Makro zuweisen. Zusätzlich dann noch den Text auf den Schaltflächen anpassen.
Gruß
Franz