Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blatt mit Jahreszahl aktivieren

Blatt mit Jahreszahl aktivieren
Herbert
Guten Morgen Forianer
Ich habe eine Mappe mit 10 Blättern deren Namen die Jahreszahlen 2008 - 2017 haben. Beim Öffnen der Mappe möchte ich gerne, daß immer das aktuelle Blatt (also jetzt 2009) aktiviert wird, komme aber nicht weiter, kommt immer ne Fehlermeldung :
Sub Workbook_open()
jahr = Year(Now)
Sheets(jahr).Select
End Sub
Danke für Eure Hilfe
Gruß Herbert

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Blatt aktivieren
12.10.2009 09:12:04
Backowe
Hallo Herbert,
Sub Workbook_open()
Sheets("" & Year(Date) & "").Activate
End Sub
Gruß Jürgen
AW: Blatt mit Jahreszahl aktivieren
12.10.2009 09:13:17
Tino
Hallo,
versuche es mal so
Sheets(Format$(Year(Date), "0000")).Select
Gruß Tino
Danke für die schnelle Hilfe o.T.
12.10.2009 09:18:22
Herbert
AW: Blatt mit Jahreszahl aktivieren
12.10.2009 09:33:08
JogyB
Hi Herbert,
hier zeigt sich mal wieder der Sinn einer Variablendeklaration:
Private Sub Workbook_Open()
Dim jaHr As String
jaHr = Year(Now)
Sheets(jaHr).Activate
End Sub
ist nicht dasselbe wie
Private Sub Workbook_Open()
Dim jaHr As Long
jaHr = Year(Now)
Sheets(jaHr).Activate
End Sub
Mit ersterem Code funktioniert was Du willst, ohne dass Du Anführungszeichen oder den Format-Befehl nehmen mußt.
Gruss, Jogy
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige