Automatisches Öffnen Blattregister

• Automatisches Öffnen Blattregister von Rainer vom 25.10.2003 21:00:22
  • AW: Automatisches Öffnen Blattregister - von Björn B. am 25.10.2003 21:07:01
    • AW: Automatisches Öffnen Blattregister - von Rainer am 25.10.2003 21:14:50
      • AW: Automatisches Öffnen Blattregister - von Björn B. am 25.10.2003 21:24:25
        • AW: Automatisches Öffnen Blattregister - von Rainer am 25.10.2003 21:32:22
          • Grrrmpf - von Björn B. am 25.10.2003 21:42:05
            • AW: Grrrmpf - von Rainer am 25.10.2003 21:45:17
              • Danke für die Rückmeldung - o. T. - von Björn B. am 25.10.2003 21:47:07
            • AW: Grrrmpf - von schadeschadeschade am 25.10.2003 21:50:51

Betrifft: Automatisches Öffnen Blattregister
von: Rainer
Geschrieben am: 25.10.2003 21:00:22
Hallo,

vor einiger Zeit erhielt ich hier ein Makro, daß mir automatisch den aktuellen Wochentag aktivierte (Wochentage Montag bis Freitag als Name der Blattregister.)

Private Sub Workbook_Open()
Sheets(WeekdayName(Weekday(Date), , 1)).Select
End Sub

Die Tage Samstag und Sonntag gibt es nicht. An diesen Tagen sollen aber nun auch Daten schon für Montag eingetragen werden. Natürlich kommt beim Öffnen der Datei immer eine Fehlermeldung:

Laufzeitfehler 9, Index außerhalb des gültigen Bereichs

Wie kann ich das Ganze ändern, daß am Wochenende der Montag aktiviert wird?

Vielen Dank im Voraus, Gruß Rainer

Betrifft: AW: Automatisches Öffnen Blattregister
von: Björn B.
Geschrieben am: 25.10.2003 21:07:01
Hallo Rainer,

versuchs mal hiermit:

Private Sub Workbook_Open()
Select Case Weekday(Date + 1, vbMonday)
Case 6, 7
Sheets(WeekdayName(1, , 1)).Select
Case Else
Sheets(WeekdayName(Weekday(Date), , 1)).Select
End Select
End Sub

Gruß
Björn

Betrifft: AW: Automatisches Öffnen Blattregister
von: Rainer
Geschrieben am: 25.10.2003 21:14:50
Hallo Björn,

geht auch noch nicht. Gleiche Fehlermeldung. Selektiert ist folgendes:
Sheets(WeekdayName(1, , 1)).Select
Kann es daran liegen, daß noch andere Blattregisternamen existieren?

Gruß

Betrifft: AW: Automatisches Öffnen Blattregister
von: Björn B.
Geschrieben am: 25.10.2003 21:24:25
Hallo Rainer,

immer diese Schnellschüsse...

Private Sub Workbook_Open()
Select Case Weekday(Date, vbMonday)
Case 6, 7
Sheets(WeekdayName(1, , 1)).Select
Case Else
Sheets(WeekdayName(Weekday(Date, vbMonday), , 1)).Select
End Select
End Sub

Hoffe das klappt besser.

Gruß
Bjrön

Betrifft: AW: Automatisches Öffnen Blattregister
von: Rainer
Geschrieben am: 25.10.2003 21:32:22
Hallo Björn,

klappt auch noch nicht. Habe das gleiche Problem wie vorher.

Gruß

Betrifft: Grrrmpf
von: Björn B.
Geschrieben am: 25.10.2003 21:42:05
Hallo Rainer,

sorry, hatte gedacht, ich könnte das ohne die Datei nachzubauen machen.
War wohl nichts.

Private Sub Workbook_Open()
Select Case Weekday(Date, vbMonday)
Case 6, 7
Sheets(WeekdayName(1, , vbMonday)).Select
Case Else
Sheets(WeekdayName(Weekday(Date, vbMonday), , vbMonday)).Select
End Select
End Sub

Over and ..........................................................................
...............................................................................out?

Zerknirschte Grüße
Björn

Betrifft: AW: Grrrmpf
von: Rainer
Geschrieben am: 25.10.2003 21:45:17
Hallo Björn,

jetzt haut es wunderbar hin. Vielen Dank für die Mühe und Zeit.

MfG Rainer

Betrifft: Danke für die Rückmeldung - o. T.
von: Björn B.
Geschrieben am: 25.10.2003 21:47:07

Betrifft: AW: Grrrmpf
von: schadeschadeschade
Geschrieben am: 25.10.2003 21:50:51
a little bit too late...

Select Case Weekday(Date, vbMonday)
Case 6, 7
Sheets("Montag").Activate
Case Else
Sheets(WeekdayName(Weekday(Date, vbMonday), False, 0)).Activate
End Select

ich denke mal activate ist "besser" als select

Excel-Beispiele zum Thema " Automatisches Öffnen Blattregister"
Automatisches Komplettieren einer Zelleingabe