Office: Excel Kalender mit bezügen und automatisation

Hallo zusammen,

ich möchte gerne eine Excel datei mit einem Kalender im Inhalt erstellen. Soweit so gut. Nun habe ich schon folgendes Grundgerüst:




Nun möchte ich die Tabellen folgendermaßen formatieren:

In der ersten Tabelle sollen die dementsprechenden termine für die Uhrzeit bzw. für die Wochentage automatisch aus der zweiten tabelle entnommen werden. Die roten bzw. grünen felder sind schon so eingerichtet das die aktuelle kw bzw. datum angezeigt wird.

In der zweiten Tabelle soll nach dem öffnen immer der aktuelle Tag neben den beiden fixierten Spalten links stehen. Diese liste soll also quasi mitlaufen.


Das größte Problem ist warscheinlich es hinzubekommen das in der ersten Tabelle auch wirklich immer die Termine von (Heute, Morgen, nächste woche, diese woche) stehen.

Ist soetwas überhaupt möglich?

 

Hallo,

Excel ist kein Grafikprogramm und somit sind Deine Bilder ungeeignet. Ne Bsp.-Datei würde bestimmt hier einig zum helfen animieren (da ich zu VBA zu doof bin ...wird aber gebraucht für Deinen zweiten Punkt!).

 

Dann machen wir das doch so.

Den Anhang Planungskalender.xlsx betrachten

Ich hoffe ihr könnt mir da helfen.

Vielen dank im vorraus.

 

Siehste, geht doch!;-)

[TABLE]
<COLGROUP><COL><COL width=66><COL width=66><COL width=66><COL width=66><COL width=66><COL width=93></COLGROUP><TBODY>[TR="bgcolor: #fafafa"]
[TD="colspan: 7"]Arbeitsblatt mit dem Namen 'Tabelle1'[/TD]
[/TR]
[TR="bgcolor: #cacaca"]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[TD]D[/TD]
[TD]E[/TD]
[TD]F[/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]2[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]3[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]4[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]5[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD]8:00 - 9:00[/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]6[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD][/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]7[/TD]
[TD="align: left"]Heute[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="bgcolor: #ff0000"]15.06.2012[/TD]
[TD="align: right"][/TD]
[TD="bgcolor: #ffff00, align: left"]Test[/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]8[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[/TR]
[TR]
[TD="bgcolor: #cacaca"]9[/TD]
[TD="align: left"]Morgen[/TD]
[TD="align: right"][/TD]
[TD="align: right"][/TD]
[TD="bgcolor: #92d050"]16.06.2012[/TD]
[TD="align: right"][/TD]
[TD="align: left"]frei[/TD]
[/TR]
</TBODY>[/TABLE]

[TABLE]
<COLGROUP><COL><COL></COLGROUP><TBODY>[TR="bgcolor: #eeaaaa"]
[TD]Zelle[/TD]
[TD]Formel[/TD]
[/TR]
[TR]
[TD]F7[/TD]
[TD]=INDEX(Tabelle2!$4:$23;VERGLEICH(F$5;Tabelle2!$A$4:$A$23;0);VERGLEICH($D7;Tabelle2!$4:$4;0))[/TD]
[/TR]
</TBODY>[/TABLE]
[TABLE]
<TBODY>[TR]
[TD]Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg[/TD]
[/TR]
</TBODY>[/TABLE]


Formel nach rechts und unten kopieren. Überflüssige Zellinhalte dann löschen.
Achte auch auf die Schreibweisen, denn "Allgemein" ist nicht "Allgemeine Erledigungen". Sonst kommt dort ein #NV-Fehler. Dieser kommt im übrigen bei 15.00-16.00 auch, da diese in Blatt 2 fehlt.

Allerdings wird es mit den Tagen so wohl nix, denn Du müsstest alle Termine in ein kleines Feld quetschen!

Rechtsklick auf das Blattregister "Tabelle2", "Code anzeigen" und folgendes einfügen:

Code:

Option Explicit
Private Sub worksheet_activate()
Dim der_Tag
Dim der_bestimmte_Tag As Range
der_Tag = Date
Set der_bestimmte_Tag = Range("4:4").Find(der_Tag, Lookat:=xlWhole)
    If Not der_bestimmte_Tag Is Nothing Then
        ActiveWindow.ScrollColumn = der_bestimmte_Tag.Column
    End If
    
Set der_bestimmte_Tag = Nothing
End Sub

Datei als .xlsm abspeichern und fertsch!

(Der Code ist von Heinz Schweigert und von mir nur angepasst worden!)