Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Zelle über aktuellem Monat markieren

VBA Zelle über aktuellem Monat markieren
13.04.2023 17:23:22
Dieter(Drummer)

Gute Tag an alle ...

In Tabelle "Gesamt" ist in Zeile 3 jeweils das Datum: 01.01.2023, 01.02.2023 etc. Das Datum beginnt in Zelle B3, dann E3, dann H3 usw. bis Ai3.

Mein VBA Wunsch:
Wenn die Tabelle "Gesamt" aktiviert wird, soll die Zelle direkt über der Zelle, in der der aktulle Monat zu finden ist, markiert werden.
Mein Versuchscode, unter Modul1, funktioniert so nicht und es fehlt sowieso die Zellmarkierung über der aktuellen Monatszelle.

Hier meine Musterdatei https://www.herber.de/bbs/user/158707.xlsm

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)

Public Sub MonatHeute()
Dim AktMonat As Integer

ActiveSheet.Range("B3:AI3").AktMonat = Month(Now)
  
Range.Cells Month(Now).Value

End Sub


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Danke Herbert und YaL und ...
13.04.2023 20:35:31
Dieter(Drummer
... Sorryfür späte Rückmeldung, musste leider kurz weg:
Danke Herbert und Yal für beide perfekten Lösungen.

Gruß, Dieter(Drummer)


AW: VBA Zelle über aktuellem Monat markieren
13.04.2023 18:34:56
Yal
Hallo Dieter,

wenn deinen Muster immer die Spalte 2,5,8, .. entspricht:
Cells(2, 3 * Month(Now) - 1).Select
Ansonsten (von Herbert inspiriert):
Private Sub Worksheet_Activate()
On Error Resume Next
   Range("3:3").Find(What:=DateSerial(Year(Date), Month(Date), 1)).Offset(-1).Select
End Sub
VG
Yal

Anzeige

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige