Herbers Excel-Forum - das Archiv

Mittels Makro beim Öffnen zu best. Monat wechseln



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Mittels Makro beim Öffnen zu best. Monat wechseln
von: Schulz J.


Geschrieben am: 14.05.2002 - 08:06:06

Hallo!
Habe mir über Excel eine Urlaubsliste angelegt.
Nun meine Frage dazu:
Besteht die Möglichkeit, beim Öffnen der Tabelle mit einem Modul/Makro zum aktuellen Monat zu wechseln?
Habe ein ganzes Jahr in eine Tabelle gelegt(Monate untereinander)
Vielleicht kann mir jemand weiterhelfen.

Danke im voraus.

nach oben   nach unten

Re: Mittels Makro beim Öffnen zu best. Monat wechseln
von: andré

Geschrieben am: 14.05.2002 - 09:09:32

Private Sub Workbook_Open()

End Sub

wenn du mit der obenstehenden Sub nimmst und darin dann denn entsprechenden Monat (zelle) aktivierst, sollte es klappen.

TrY aNd ErRoR


nach oben   nach unten

Re: Mittels Makro beim Öffnen zu best. Monat wechseln
von: Schulz J.


Geschrieben am: 14.05.2002 - 10:35:46

Hallo!
Wollte es so machen!
Sub auto_open()
Sheets("Urlaubsplan").Select
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = False
If Range("Eintrag!U1") = 1 Then Call gehe_jan
If Range("Eintrag!U1") = 2 Then Call gehe_feb
If Range("Eintrag!U1") = 3 Then Call gehe_mar
If Range("Eintrag!U1") = 4 Then Call gehe_apr
If Range("Eintrag!U1") = 5 Then Call gehe_mai
If Range("Eintrag!U1") = 6 Then Call gehe_jun
If Range("Eintrag!U1") = 7 Then Call gehe_jul
If Range("Eintrag!U1") = 8 Then Call gehe_aug
If Range("Eintrag!U1") = 9 Then Call gehe_sep
If Range("Eintrag!U1") = 10 Then Call gehe_okt
If Range("Eintrag!U1") = 11 Then Call gehe_nov
If Range("Eintrag!U1") = 12 Then Call gehe_dez
End Sub
Im Eintrag U1 steht der aktuelle Monat.
Mit den gehe_... komme ich direkt zur Monatsansicht.
(Hat mein Vorgänger gemacht)
Bin auch nicht gerade ein VBA-Experte

 nach oben

Excel-Beispiele zum Thema "Mittels Makro beim Öffnen zu best. Monat wechseln"
Verhindern des Schließens einer UserForm mittels Schließkreuz Menüleiste wechseln
ListBox-Einträge auswechseln Zum nächsten Blatt wechseln
Aktiven Drucker in UserForm wechseln Farbe bei Mausberührung wechseln
Eine Serie von bestehenden Arbeitsblättern auswechseln Zwischen zwei UserForms wechseln, wobei sich die 1. Aktualisiert
Quellarbeitsmappe einer Verknüpfung wechseln Bei Dialoganzeige Blattauswahl wechseln