Nach Wochentag bestimmte Tabelle öffnen
#1
Hallo Leute, 
ich möchte folgendes mit Excel realisieren:
 
Ich habe als Schichtübersicht für jeden Wochentag eine Tabelle erstellt. Jetzt wäre es super,
wenn sich beim öffnen der Mappe immer die Tabelle des Aktuellen Wochentages öffnen würde.

Die Tabellen sind entsprechend auch mit Montag, Dienstag, Mittwoch etc. beschriftet. Auch wäre für
Feiertage eine entsprechende Tabelle vorhanden.

(Ja, ich habe den Foreneintrag mit der gleichen Fragestellung bereits gesehen, jedoch bin ich leider was
Excel angeht überhaupt nicht bewandert und das Thema ist bereits geschlossen, dass ich keine weiteren Frage
dazu habe stellen können. Ich habe den dort genannten Code bereits im VBA Feld unter Diese Arbeitsmappe eingefügt
jedoch bekomme ich immer nur eine Fehlermeldung, dass der Code nicht ausgeführt werden konnte.

Private Sub Workbook_Open()
Worksheets(Format(Date, "dddd")).Activate
End Sub

Durch Excel wird mir die 2. Zeile als Fehlerhaft angezeigt. Der Fehlercode ist "Laufzeitfehler 1004". 
Muss hier noch etwas abändern, oder verweise auf die verschiedenen Tabellen im Bezug auf die Wochentage erstellen? 

Vielen dank schon einmal im voraus.

LG Daniel Weigl
Antworten Top
#2
Moin!
Der Fehler kann zwei Ursachen haben:
• es existiert kein Tabellenblatt "Sonntag"
• "Sonntag" existiert zwar, hat aber z.B. ein schließendes Leerzeichen "Sonntag "
Letzteres könnte man mittels Trim() entfernen:
Worksheets(Trim(Format(Date, "dddd"))).Activate

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#3
Hallo Ralf,
Danke für die super schnelle Antwort. Tatsächlich hat es jetzt mit deiner Anpassung Funktioniert, wobei
jedoch die Tabelle sowohl richtig geschrieben wurde und auch kein Leerzeichen davor oder nachstehend waren.


Herzlichen Dank und ein schönes Restwochenende.
Daniel  Blush
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste