Office: Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Tayler · 26. Dezember 2006

Hallo.
Habe folgendes Problem: Habe Tabellenblätter von Januar bis Dezember. Nun soll beim öffnen der Exceldatei immer das akutelle Tabellenblatt zum passenden Monat geöffnet werden. (Wenn wir den Monat Februar haben, soll das Tabellenblatt "Februar" beim öffnen ausgewälht werden). Teil des Codes habe ich schon:

Code:

Private Sub Workbook_Open()
Dim a As String
a = ?
Sheets(a).Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir jemand sagen, was ich hinter die Variable a schreiben muss, damit immer das aktuellen Tabellenblatt des Monat´s geöffnet wird?

Gruß

Tayler

:)

Nepumuk · 27. Dezember 2006

Hallo Tayler,

auch das geht ohne eine Variable:

Private Sub Workbook_Open()
Worksheets(MonthName(Month(Date))).Select
End Sub

Tayler · 27. Dezember 2006

Hallo Nepumuk.
Danke für die Schnelle Hilfe. Funktioniert einbandfrei.

Gruß

Tayler

Blacky1980 · 11. Mai 2015

Das Thema ist zwar schon was älter aber ich hoffe das mir jemand helfen kann.

Der code ist klasse nur leider bekomme ich ihn bei mir zum Laufen.
Meine Tabellenblätter habe die Name so Januar Seite1, Januar Seite2, Februar Seite1, Februar Seite2 usw. Es kommen später noch mehr Seite pro Monat dazu!

Wie muss der Code dan ausehen?

Dazu kommt das wenn bei Januar Seite1 oder Februar Seite1 die Zelle A46 beschrieben ist soll gleich auf Januar Seite2 bzw Februar Seite2 in Zelle A10 gewechselt werden.

Anbei mal eine Test Mappe.

Gruß Michael

Nepumuk · 11. Mai 2015

Hallo,

teste mal:

Code:

Option Explicit

Private Sub Workbook_Open()
Dim strWorksheetName As String
Dim lngPage As Long
Dim blnPageFound As Boolean, PageNotFound As Boolean
Dim objWorksheet As Worksheet
strWorksheetName = MonthName(Month(Date)) & " Seite"
lngPage = 1
Do
PageNotFound = True
For Each objWorksheet In Worksheets
If objWorksheet.Name = strWorksheetName & CStr(lngPage) Then
PageNotFound = False
If IsEmpty(objWorksheet.Cells(46, 1).Value) Then
blnPageFound = True
objWorksheet.Select
Exit For
Else
lngPage = lngPage + 1
End If
End If
Next
Loop Until blnPageFound Or PageNotFound
If PageNotFound Then _
Call MsgBox("Keine leere Seite gefunden.", vbExclamation, "Hinweis")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Blacky1980 · 13. Mai 2015

Hallo Nepumuk

Habe nur gerade festgestellt das ich die Falsche Zelle angegeben habe. Es nicht A46 sondern A44. Habe es im code geänderung und es klappt.

Eine frage noch ist es möglich das wenn der Code mich auf die Seite bringt auch immer gleich in die letzte freie Zelle zwischen A10 und A44 bringt?

Vielen viele Dank genau so wie ich mir das vorgestellt haben.

Nepumuk · 13. Mai 2015

Hallo,

ist darunter alles leer oder können nach A44 noch Einträge kommen?

Blacky1980 · 13. Mai 2015

Danach kommen auch Einträge aber diese sind auf allen Blätter und werden auch nicht geändert. Die Daten Eingaben finden nur von A10 - K44 statt.

Alles was davor und danach ist sind Formeln und Daten die auf allen Blätter sind jedes Blatt ist gleich aufgebaut.

Nepumuk · 13. Mai 2015

Hallo,

teste mal:

Code:

Private Sub Workbook_Open()
Dim strWorksheetName As String
Dim lngPage As Long
Dim blnPageFound As Boolean, PageNotFound As Boolean
Dim objWorksheet As Worksheet, objCell As Range
strWorksheetName = MonthName(Month(Date)) & " Seite"
lngPage = 1
Do
PageNotFound = True
For Each objWorksheet In Worksheets
If objWorksheet.Name = strWorksheetName & CStr(lngPage) Then
PageNotFound = False
If IsEmpty(objWorksheet.Cells(44, 1).Value) Then
blnPageFound = True
objWorksheet.Select
Set objCell = objWorksheet.Range("A10:A44").Find(What:="*", LookIn:=xlValues, _
Lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
objCell.Offset(1, 0).Select
Set objCell = Nothing
Set objWorksheet = Nothing
Exit For
Else
lngPage = lngPage + 1
End If
End If
Next
Loop Until blnPageFound Or PageNotFound
If PageNotFound Then _
Call MsgBox("Keine leere Seite gefunden.", vbExclamation, "Hinweis")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Blacky1980 · 13. Mai 2015

Perfekt

Vielen vielen Dank Nepumuk

Office: Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen.

Beim öffnen der Exceldatei Tabellenblatt mit aktuellem Monat auswählen. - Similar Threads - öffnen Exceldatei Tabellenblatt

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Webadresse aus Formular öffnen

Wie aus word Exceldatei öffnen und dort Wert suchen-ersetzen

Exceldateien öffnen, Makro ausführen, speichern, schließen

Exceldatei nur von bestimmten Personen öffnen

Bei Klick auf Button soll sich eine andere Exceldatei öffnen

Virenprüfung vor jedem Öffnen einer Word-/Exceldatei