akt Datum in mehreren Sheets

Hallo.
Ich hänge an der Aufgabe, bei öffnen des Workbooks das aktuelle Datum zu fokusieren.
Das macht er auch soweit.

Private Sub Workbook_Open()
' suche aktuelles Datum in allen Blättern mit Datums-Zellen
Dim ws As Worksheet
Dim cll As Range
For Each ws In Worksheets
For Each cll In ws.UsedRange
If cll = Date Then
ws.Activate
cll.Activate
cll.Activate.Interior.ColorIndex = 4
Exit Sub
End If
Next
Next
End Sub

Nun sollte der Code zwei Sachen machen.
1. Von der Zelle mit Datum zwei Spalten nach rechts (cll.Resize?)
2. Diese Zelle mit einer Hintergrundfarbe versehen.
Wie stelle ich das an?
Vielen Dank für eure Hilfe.
LG
Peer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() ' suche aktuelles Datum in allen Blättern mit Datums-Zellen Dim ws As Worksheet Dim cll As Range For Each ws In Worksheets For Each cll In ws.UsedRange If cll = Date Then ws.Activate cll.Activate cll.Interior.ColorIndex = 4 Exit Sub End If Next Next End Sub

Option Explicit Private Sub Workbook_Open() ' suche aktuelles Datum in allen Blättern mit Datums-Zellen Dim ws As Worksheet Dim cll As Range ActiveSheet.Unprotect For Each ws In Worksheets For Each cll In ws.UsedRange If cll = Date Then ws.Activate cll.Activate cll.Interior.ColorIndex = 4 Exit Sub End If Next Next ActiveSheet.Protect End Sub

Private Sub Workbook_Open() ' suche aktuelles Datum in allen Blättern mit Datums-Zellen Dim ws As Worksheet Dim cll As Range Dim row As Byte row = ActiveCell.row ActiveSheet.Unprotect For Each ws In Worksheets For Each cll In ws.UsedRange If cll = Date Then ws.Activate cll.Activate cll.Interior.ColorIndex = 6 Exit Sub End If cll.Cells(row, 3).SetFocus Next Next ActiveSheet.Protect End Sub

Hallo luschi.
Ich hatte beides probiert. Ich dachte mir, wenn das eine nicht geht, probiere das andere.
Geht aber auch nicht.
ws.Unprotect kommt mit Fehlermeldung.
ActiveSheet.Unprotect ohne Fehlermeldung und funktioniert.
Nun die Frage.
Was passiert im März. Funktioniert es dann auch?
Wenn ich den Code richtig interpretiere, dann wird erst das aktive Sheet entsperrt, dann nach dem Datum gesucht, das aktuelle Datum gefunden, dann das Sheet(ws) aktiviert, die Zelle aktiviert, der Hintergund farbig gemacht und zwei Spalten weiter fokussiert.
Und am Ende das aktive Sheet gesperrt.
Wenn ich ws.Unprotect nehme, sollte erst das gefundene Sheet (ws) entsperrt werden.
Habe ich hier einen Denkfehler?
LG
Peer

Private Sub Workbook_Open() ' suche aktuelles Datum in allen Blättern mit Datums-Zellen Dim ws As Worksheet Dim cll As Range For Each ws In Worksheets ws.Unprotect For Each cll In ws.UsedRange If cll = Date Then ws.Activate cll.Activate cll.Interior.ColorIndex = 6 cll.Offset(0, 2).Select Exit Sub End If Next ws.Protect Next End Sub

Private Sub Workbook_Open() ' suche aktuelles Datum in allen Blättern mit Datums-Zellen Dim ws As Worksheet Dim cll As Range Dim row As Byte For Each ws In Worksheets ws.Unprotect For Each cll In ws.UsedRange If cll = Date Then ws.Activate cll.Activate cll.Interior.ColorIndex = 6 cll.Offset(0, 2).Select Exit Sub ' setzt die Füllfarbe wieder zurück Else: cll.Interior.Color = xlNone End If Next ws.Protect Next End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

akt Datum in mehreren Sheets

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread