Wie kann man dieses Macro verkürzen
05.05.2008 18:40:00
Karsten
Ich habe folgendes Macro:
Sub Auswahl
If Year(Now) = 2008 Then
If Month(Now) = 1 Then Sheets("0108").Select
If Month(Now) = 2 Then Sheets("0208").Select
If Month(Now) = 3 Then Sheets("0308").Select
If Month(Now) = 4 Then Sheets("0408").Select
If Month(Now) = 5 Then Sheets("0508").Select
If Month(Now) = 6 Then Sheets("0608").Select
If Month(Now) = 7 Then Sheets("0708").Select
If Month(Now) = 8 Then Sheets("0808").Select
If Month(Now) = 9 Then Sheets("0908").Select
If Month(Now) = 10 Then Sheets("1008").Select
If Month(Now) = 11 Then Sheets("1108").Select
If Month(Now) = 12 Then Sheets("1208").Select
End If
If Year(Now) = 2009 Then
If Month(Now) = 1 Then Sheets("0109").Select
If Month(Now) = 2 Then Sheets("0209").Select
If Month(Now) = 3 Then Sheets("0309").Select
If Month(Now) = 4 Then Sheets("0409").Select
If Month(Now) = 5 Then Sheets("0509").Select
If Month(Now) = 6 Then Sheets("0609").Select
If Month(Now) = 7 Then Sheets("0709").Select
If Month(Now) = 8 Then Sheets("0809").Select
If Month(Now) = 9 Then Sheets("0909").Select
If Month(Now) = 10 Then Sheets("1009").Select
If Month(Now) = 11 Then Sheets("1109").Select
If Month(Now) = 12 Then Sheets("1209").Select
End If
End Sub
Das möchte ich gerne verkürzen und auf die Zukunft vorbereiten, also nach 2009.
Wie mache ich das am besten?
MfG
Karsten J.