Makroanpassung, aktivierte Zelle soll blinken

Guten Tag, VBA Spezialisten,
dieses Makro habe ich in "Diese Arbeitsmappe" und es funktioniert einwandfrei.
Hier wird die Zelle UNTER dem aktuellen Datum im Jahreskalender aktiviert.
Meine bitte ist, das Makro so anpassen, dass sich beim öffnen der Datei (hier wird ja die Zelle UNTER dem aktuellen Datum markiert), diese Zelle 3 mal blinkt, wobei die Farbe egal ist.
Bisheriges Makro, und dafür nochmal meinen Dank an Josef Ehrensberger!

Option Explicit
'AW: Aktuelles Datum in Zeilen aktivieren - von Josef Ehrensberger am 15.09.2012 09:45:36

Private Sub Workbook_Open()
Dim lngMonth As Long, vntDay As Variant
Application.ScreenUpdating = False
lngMonth = Month(Date) * 2 + 1
With Sheets("StdKal")
vntDay = Application.Match(CLng(Date), .Rows(lngMonth), 0)
'Mx: Direkte Aktivierung des aktuellen Datums
'If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth, vntDay)
'Mx: Direkte Aktivierung der Zelle UNTER dem aktuellen Datum
If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth + 1, vntDay)
End With
Application.ScreenUpdating = True
End Sub

Danke für evtl. Anpassung und Hilfe.
Gruß, Dieter(Drummer)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim lngMonth As Long, vntDay As Variant Application.ScreenUpdating = False lngMonth = Month(Date) * 2 + 1 With Sheets("StdKal") vntDay = Application.Match(CLng(Date), .Rows(lngMonth), 0) 'Mx: Direkte Aktivierung des aktuellen Datums 'If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth, vntDay) 'Mx: Direkte Aktivierung der Zelle UNTER dem aktuellen Datum If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth + 1, vntDay) Application.ScreenUpdating = True For lngMonth = 1 To 6 Select Case lngMonth Case 1, 3, 5 ActiveCell.Interior.Color = 255 Case Else ActiveCell.Interior.ColorIndex = xlNone End Select Next lngMonth End If End With End Sub

Hallo Dieter,
von mir nicht, da ich die Datei nicht sehe.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe, Beispiel wird eine vorhandene überschrieben.
Ein Bild in Excel geöffnet sieht anders aus als das Bild.
Ich habe kein Tool um ein Bild in Excel zu importieren.
Gruß Hajo

Private Sub Workbook_Open() Dim lngMonth As Long, vntDay As Variant Application.ScreenUpdating = False lngMonth = Month(Date) * 2 + 1 With Sheets("StdKal") vntDay = Application.Match(CLng(Date), .Rows(lngMonth), 0) 'Mx: Direkte Aktivierung des aktuellen Datums 'If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth, vntDay) 'Mx: Direkte Aktivierung der Zelle UNTER dem aktuellen Datum If IsNumeric(vntDay) Then Application.Goto .Cells(lngMonth + 1, vntDay) Application.ScreenUpdating = True For lngMonth = 1 To 6 Application.Wait Now + TimeSerial(0, 0, 1) Select Case lngMonth Case 1, 3, 5 ActiveCell.Interior.Color = 255 Case Else ActiveCell.Interior.ColorIndex = xlNone End Select Next lngMonth End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Makroanpassung, aktivierte Zelle soll blinken

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread