Zellen aktivieren mit Makro
12.01.2016 19:58:19
Michael
in meiner Arbeitsmappe wird beim Öffnen die Zelle neben dem aktuellen Datum aktiviert.
Die Mappe heißt "Vorlage", das Datum ist im Bereich B8:B42 und die jeweils zu aktivierende Zelle in Spalte E8:E42.
Das funktiooniert im Prinzip auch. Da aber die Zellen B11,B19,B27 und B35 leer sind, werden nach den Leerzellen die falschen Zellen in E aktiviert.
Beispiel: Zelle B19 ist leer. Beim Öffnen wird aber die Zelle E20 (mit dem gestrigen Datum in B20)aktiviert. Richtig sollte aber E21 (mit dem heutigen Datum in B21)aktiviert sein. Es müssten die genannten Leerzellen übersprungen werden. Lässt sich das machen?
Das Makro:
Private Sub Workbook_Open()
With ThisWorkbook.Sheets(Format(Date, "Vorlage"))
.Activate
.Cells(Day(Date) + 8, 5).Select
End With
End Sub
Gruß
mike49