Heutigen Tag in Excel markieren UND in vordere Zeile bringen

Question

Hallo zusammen,

ich habe für die Arbeit einen Kalender in Excel erstellt, in der sich die Kollegen meiner Stelle eintragen können, wann sie anwesend oder im Urlaub sind oder von zu Hause aus arbeiten.

Nun habe ich für eine bessere Übersichtlichkeit pro Tabellenblatt immer ein Quartal. Somit habe ich für 2024 vier Tabellenblätter.

Ich habe jetzt einen "Heute-Button" im 3. Quartal eingefügt, wenn also beispielsweise einer seinen Urlaub für September einträgt und die Datei abspeichert, damit man nicht unnötig zum aktuellen Tag zurückscrollen muss, sondern er direkt mit einem Klick auf den heutigen Tag springt.

Jetzt haben sich hier aber zwei Probleme ergeben:

1. Leider weiß ich nicht, wie ich den Code abändern muss, damit dieser Heute-Button auch tabellenblattübergreifend funktioniert. Wenn also jemand eine Änderung im 4. Quartal, also im 4. Tabellenblatt vorgenommen hat, müsste ich mit der Heute-Funktion ja in ein anderes Tabellenblatt (aktuell also ins 3. Blatt) springen können.

Jemand eine Idee, wie sich das lösen lässt?

2. Wenn er auf den aktuellen Tag springt, hätte ich gerne, dass er diesen nicht bloß markiert und farbig hervorhebt (das ist bereits der Fall), sondern auch, dass er die entsprechende Spalte direkt vorne anstellt, und man nicht erst mit den Augen "suchen" muss, wo der Cursor hingesprungen ist.

Ich bedanke mich bereits im Voraus :)

Answer 1

Zeig mal die Datei und erklär mal genauer was "Spalte direkt vorne anstellt" bedeuten soll.

Andreas.

Answer 2

Anbei ein Bild, wie der Kalender aussieht.

Der grasgrüne Tag ist der aktuelle Tag.

Ich möchte, dass er nicht bloß mit dem Cursor auf diesen Tag springt, sondern sobald ich auf "Heute" drücke, er diese Spalte auch direkt vorn als erste Spalte anzeigt. Quasi dort, wo jetzt der 21. Juli zu sehen ist. Quasi als würde ich einfach so weit nach rechts scrollen, bis der Tag ganz links angezeigt wird.

Ich hoffe, das war jetzt etwas verständlicher :)

Das ist der momentane Code, der aber nur in dem Tabellenblatt vom 3. Quartal hinterlegt ist:

Private Sub CommandButton1_Click()
Dim IngZeile As Long
Dim IngSpalte As Long
Dim suchDatum As Date

suchDatum = Date ' Das Datum von Heute
IngZeile = 10
For IngSpalte = Range("C10").Column To Range("CP10").Column
If IsDate(Cells(IngZeile, IngSpalte).Value) Then
If CDate(Cells(IngZeile, IngSpalte).Value) = suchDatum Then
Cells(IngZeile, IngSpalte).Select
Exit For
End If
End If
Next IngSpalte
End Sub

Answer 3

Christine,

Ich brauche die Datei, keine Screenshots, das hilft nicht.

Andreas.

Answer 4

Tut mir leid, ich weiß nicht wie ich das hier senden kann. Ich habe nur die Möglichkeit gefunden, ein Bild oder einen Link einzufügen.

Wie kann ich Ihnen die Datei zukommen lassen?

Answer 5

Christine,

Lade die Datei auf einen Online File Hoster Deiner Wahl (DropBox, OneDrive, Google Drive, WeTransfer, ...) und poste den Download-Link hier.

Andreas.