Tabellenblatt abhängig von Jahreszahl öffnen
04.11.2017 07:54:28
Jahreszahl
Habe für VB-Spezialisten wahrscheinlich ein relativ kleines Problem:
Im Tabellenblatt "Daten" steht in E1 eine Jahreszahl
Abhängig von dieser Jahreszahl soll sich dann das entsprechende Monatsblatt öffnen.
"DP Jan" bis "DP Dez"
Im aktuellen Jahr (also jetzt 2017) soll der aktuelle Monat öffnen - also das Blatt "DP Nov". Wenn da eine andere Jahreszahl steht, dann soll sich immer das Blatt "DP Jan" öffnen
Mein Ansatz ( mit meinen sehr bescheidenen VB-Kenntnissen).
Sub Monat_Suchen()
If Sheets("Daten").Range("E1").Value = Format(Now, "YYYY") Then
Sheets("DP " & (Format(Date, "MMM"))).Activate
Else
Sheets("DP Jan").Activate
End If
End Sub
Allerdings ist da noch was falsch! Nur was?
Ganz herzlichen Dank im voraus.
Anzeige