Supportnet / Forum / Tabellenkalkulation

Hallo ihr da draußen. Ich möchte eine Excel-Datei öffnen. Die Datei hat 2 Tabellenblätter - 1. und 2. Halbjahr. Beim Öffnen der Datei soll automatisch das Tabellenblatt angezeigt werden, auf dem das aktuelle Datum liegt. Das 1. Halbjahr geht vom 01. Januar bis 30.Juni. Das 2. Halbjahr geht vom 01. Juli bis 31. Dezember. Ich hatte folgendes versucht: If Date < DateSerial(2006, 7, 1) And Date >= DateSerial(2006, 1, 1) Then Worksheets("Tabelle1").Select Else Worksheets("Tabelle2").Select End If Was fehlt mir in dieser Aufstellung? Bzw. was hab ich falsch gemacht? Um schnelle Hilfe wird gebeten mit Dank im voraus. MfG Zoe

Moin Zoe,

wo steht denn dein Code?

Gruß

JöKe

Hallo JöKe.

Der Code steht in "Diese Arbeitsmappe" in VBA so wie ich ihn dir hier nochmal aufgeschrieben habe.


Private Sub Workbook_Open()
If Date < DateSerial(2006, 7, 1) And Date >= DateSerial(2006, 1, 1) Then
Worksheets("Tabelle1").Select
Else
Worksheets("Tabelle2").Select
End If
End Sub

MfG Zoe

Hallo Zoe,

dann sollte es doch wie gewünschte funktionieren.

Gruß

JöKe

Hallo JöKe.

Wenn du sagst, es sollte funktionieren, freu ich mich drüber, weil das meine ersten Versuche sind, eigene Makros zu schreiben.

Aber es funktioniert nicht. Ich bekomme beim Öffnen der Datei den Laufzeitfehler 9 angezeigt und kann nichts damit anfangen.

Kannst du mir weiter helfen?

Danke Zoe

Hallo Zoe,

steht da zusätzlich noch:

Index außerhalb des gültigen Bereichs

?

Wenn ja hast du einen Blattnamen falsch angegeben.
Klick mal auf "debuggen" wenn die Fehlermeldung erscheint. Es wird dir dann die Zeile im Code gelb markiert in der ein Fheler vorliegt.

Gruß

JöKe

Hallo JöKe,

ja die Meldung kommt in der Zeile

Worksheets("Tabelle2").Select.

In meinem Projektfenster, wo unter Microsoft Excel Objekte alle vorhanden Tabellen aufgelistet werden, habe ich doch aber Tabelle1 und Tabelle2 stehen. Hinter jedem steht zusätzlich die Benennung des Blattes:

Tabelle1 (1. Halbjahr)
Tabelle2 (2. Halbjahr)

Muss ich etwa die Klammerausdrücke einsetzen?

MfG Zoe

Hallo Zoe,

mit:

Worksheets("Tabelle2").Select

sprichst du das Blatt mit dem Namen an ( hier 1.Halbjahr bzw. 2. Halbjahr). Die Bezeichnungen Tabelle1 und Tabelle2 im Projektexplorer sind die Excelinternen Bezeichnungen.
Wenn du diese verwenden möchtest, dann ohne Worksheets().

Private Sub Workbook_Open()
If Date < DateSerial(2006, 7, 1) And Date >= DateSerial(2006, 1, 1) Then
Tabelle1.Select
Else
Tabelle2.Select
End If
End Sub

oder du sprichst die Blätter mit ihrem Namen an:

Private Sub Workbook_Open()
If Date < DateSerial(2006, 7, 1) And Date >= DateSerial(2006, 1, 1) Then
Worksheets("1. Halbjahr").Select
Else
Worksheets("2. Halbjahr").Select
End If
End Sub


Gruß

JöKe

Hallo JöKe,

vielen Dank für die Erklärung.
Jetzt funktioniert es.

Schönen Tag noch.
MfG Zoe

• Excel Datum HEUTE Zeilen übernehmen
• Datumsanzeige in Zelle unterdrücken