Zelle mit aktuellem Datum markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub StartZelle() Const zlOff As Long = 2, adMonBer$ = "A7:A40" Dim axDatum As Variant, monBer As Range axDatum = Split(Format(Now, "yyyy-m d")) Set monBer = Range(adMonBer) monBer.Cells(WorksheetFunction.Match(CLng(CDate(axDatum(0) & "-1")), _ monBer, 0)).Offset(zlOff, CInt(axDatum(1))).Activate Set monBer = Nothing End Sub

…und die Mappe so hochgeladen, Mike?
Das habe ich nicht überprüft und einen solchen Fehler auch nicht abgefangen. Dann muss man das anders machen, nämlich sich ggf nach der Jahreszahl in der Tab richten:

Sub StartZelle()
Const zlOff As Long = 2, adJahrZ$ = "F3", adMonBer$ = "A7:A40"
Dim axDatum As Variant, monBer As Range
axDatum = Split(Range(adJahrZ).Text & Format(Now, "-m d"))
Set monBer = Range(adMonBer)
monBer.Cells(WorksheetFunction.Match(CLng(CDate(axDatum(0) & "-1")), _
monBer, 0)).Offset(zlOff, CInt(axDatum(1))).Activate
Set monBer = Nothing
End Sub

Aber eigentl ist das Quatsch, denn in anderen Jahren als dem aktuellen müssten eigentl andere Zellen ausgewählt wdn:
1. in Vorjahren evtl der 31.12. oder sonstwas bzw gar nichts,
2. in Folgejahren der 1.1. oder ebenfalls dito.
Deshalb schlage ich eher Folgendes vor:

Sub StartZelle()
Const zlOff As Long = 2, adJahrZ$ = "F3", adMonBer$ = "A7:A40"
Dim fxJahr As Long, axDatum As Variant, monBer As Range
On Error GoTo fx
fxJahr = Range(adJahrZ)
If fxJahr  Year(Now) Then Err.Raise xlErrNum
axDatum = Split(Format(Now, "yyyy-m d"))
Set monBer = Range(adMonBer)
monBer.Cells(WorksheetFunction.Match(CLng(CDate(axDatum(0) & "-1")), _
monBer, 0)).Offset(zlOff, CInt(axDatum(1))).Activate
GoTo ex
fx: If Err.Number = xlErrNum Then
MsgBox "Das eingestellte Jahr entspricht nicht dem aktuellen!", _
vbExclamation, "Jahresvergleich"
Else: MsgBox Err.Description, vbCritical, "Interner Fehler " & CStr(Err.Number)
End If
ex: Set monBer = Nothing
End Sub

Mann, du bringst mich noch um den Verstand… ;-]
Gruß Luc :-?

…Mike;
du könntest ja die Prozedur StartZelle - wie ich übrigens erwähnt hatte - auch direkt aufrufen. Aber es wäre auch möglich, diesen Aufruf mit einer Überprüfung der WertÄnderung von fxJahr zu verbinden. Wenn du das machen willst, ist Folgendes erforderlich:
1. Am Anfang des Moduls (vor allen Prozeduren), in das du StartZelle kopiert hast, trägst du in eigener Zeile Public Const adJahrZ$ = "F3": Public fxJahr As Long ein (noch davor sollte in ebenfalls eigener Zeile Option Explicit stehen → auf allen Code-Blättern ← zukünftig bei Neuanlage automatisch erreichbar durch Setzen des Hakens im VBE unter Menü Extras - Optionen - Variablendeklaration erforderlich ).
2. In der VariablenDeklaration von StartZelle musst du dann genau diese Constante und diese Variable entfernen, sonst klappt das nicht (Konstante und Variable sind dann global, d.h., andere Prozeduren können sie ebenfalls (die Variable mit jeweils aktuellem Stand) nutzen.
3. Im (Dokument-Klassen-)Modul Tabelle1 (2013) legst du anschließend den Rahmen einer Worksheet_Calculate-Prozedur an. Dazu wählst du im rechten Kopf-DropDown-Menü Calculate aus (im linken KopfFenster sollte dabei Worksheet stehen). In die Leerzeile der so angelegten Prozedur schreibst du: If Range(adJahrZ) fxJahr Then Call StartZelle
So, damit wäre dann auch das geschafft. ;-)
Viel Spaß! Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

Zelle mit aktuellem Datum markieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle mit aktuellem Datum markieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread