bei öffnen entsprechende Tabelle / Tag&Uhrzeit

Guten morgen alle zusammen,
bei einer Excel Mappe ist jeder Tag im Jahr vorhanden, also beschriftet 01.01.2011, 02.01.2011, usw.
Ich möchte, das wenn ich die Excel Mappe öffne automatisch die entsprechende Tabelle vom Tag geöffnet wird. Also wenn ich am 20.11.2011 die Excel Mappe öffne sollte als Startbildschirm die Tabelle 20.11.2011 sein.
Als kleines Schmankerl wenn es möglich ist und jemand sich da auskennt,
in den Zellen B14 bis B36 stehen die Uhrzeiten (stündlich) drinnen (in jeder Tabelle gleich), vielleicht geht ja noch das wenn ich die Excel Mappe öffne, als Startbildschirm eben die entsprechende Tabelle vom Tag und das die Zeilen + / - eine Stunde von der aktuellen Uhrzeit markiert wird.
(Markierung bei den Zellen B-F)
Hat jemand eine Lösung dafür?
Vielen Dank für Eure Hilfe.
Lieben Gruß
Amina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub auto_open() Const Offset = 13 ' Diesen Wert anpassen, in Abhängigkeit davon, mit welcher Uhrzeit in B14 _ angefangen wird Sheets(CStr(Day(Date)) & "." & CStr(Month(Date)) & "." & CStr(Year(Date))).Activate Rows(CStr(Hour(Time()) - 1 + Offset) & ":" & CStr(Hour(Time) + 1 + Offset)).Select End Sub

Private Sub Workbook_Open() Dim intStunde As Integer Dim rngStunde As Range On Error GoTo Errorhandler ThisWorkbook.Worksheets(Format(Date, "dd.mm.yyyy")).Activate intStunde = Hour(Now) With ThisWorkbook.ActiveSheet Set rngStunde = .Range("B14:B36").Find(intStunde, LookIn:=xlValues, LookAt:=xlWhole) If Not rngStunde Is Nothing Then Select Case intStunde Case 1 .Range(.Cells(rngStunde.Row, 2), .Cells(rngStunde.Row + 1, 6)).Select Case 2 To 22 .Range(.Cells(rngStunde.Row - 1, 2), .Cells(rngStunde.Row + 1, 6)).Select Case 23 .Range(.Cells(rngStunde.Row - 1, 2), .Cells(rngStunde.Row, 6)).Select End Select Else MsgBox "Im Blatt " & Format(Date, "dd.mm.yyyy") & " konnte der Stundeneintrag " & _ intStunde & " nicht gefunden werden!", vbCritical, " Info von Amina´s Makro!" End If Set rngStunde = Nothing End With Exit Sub Errorhandler: MsgBox "Eine Tabelle mit dem Namen (Datum) " & Format(Date, "dd.mm.yyyy") & " wurde nicht _ gefunden!", vbCritical, " Info von Amina´s Makro!" ThisWorkbook.Worksheets(1).Activate End Sub

Also wenn der Code so aussieht funktioniert es,

Private Sub Workbook_Open()
Dim intStunde As Integer
Dim rngStunde As Range
On Error GoTo Errorhandling
ThisWorkbook.Worksheets(Format(Date, "dd.mm.yyyy")).Activate
Cells(Hour(Now) + 13, 2).Resize(3, 5).Select
intStunde = Hour(Now)
With ThisWorkbook.ActiveSheet
Set rngStunde = .Range("B14:B36").Find(intStunde / 24, LookIn:=xlValues, LookAt:=xlWhole) _
If Not rngStunde Is Nothing Then
'           Select Case intStunde
'               Case 1
'                   .Range(.Cells(rngStunde.Row, 2), .Cells(rngStunde.Row + 1, 6)).Select
'               Case 2 To 22
'                   .Range(.Cells(rngStunde.Row - 1, 2), .Cells(rngStunde.Row + 1, 6)).Select
'               Case 23
'                   .Range(.Cells(rngStunde.Row - 1, 2), .Cells(rngStunde.Row, 6)).Select
'           End Select
'       Else
'           MsgBox "Im Blatt " & Format(Date, "dd.mm.yyyy") & " konnte der Stundeneintrag " &  _
intStunde & " nicht gefunden werden!", vbCritical, " Info von Amina´s Makro!"
'       End If
'       Set rngStunde = Nothing
'   End With
'   Exit Sub
Errorhandling:
MsgBox "Eine Tabelle mit dem Namen (Datum) " & Format(Date, "dd.mm.yyyy") & " wurde nicht  _
gefunden!", vbCritical, " Info von Amina´s Makro!"
ThisWorkbook.Worksheets(1).Activate
End Sub

Kann man die msgBox ändern, das da wenn neben der Uhrzeit nichts steht, dann die Meldung kommt kein Stundeneintrag vorhanden ?
Gruß Amina

Option Explicit Private Sub Workbook_Open() On Error GoTo ErrorHaendler1 Sheets(Format(Date, "DD.MM.YYYY")).Activate On Error GoTo 0 On Error GoTo ErrorHaendler2 If Cells(Hour(Now) + 13, 2).Offset(, 1).Value "" Then Cells(Hour(Now) + 13, 2).Resize(3, 5).Select Else Application.Goto ErrorHaendler2 End If On Error GoTo 0 Exit Sub ErrorHaendler1: MsgBox "Das Blatt " & Format(Date, "DD.MM.YYYY") & " existiert nicht !" Exit Sub ErrorHaendler2: Cells(Hour(Now) + 13, 2).Resize(1, 2).Select MsgBox "am " & Format(Date, "DD.MM.YYYY") & " ist um " & Format(Time, "hh") & " Uhr - kein _ Termin eingetragen !" ActiveSheet.Cells(1, 1).Select 'muß nicht sein 'Tabelle1.Activate' oder was auch immer End Sub

Private Sub Workbook_Open() On Error GoTo ErrorHaendler1 Sheets(Format(Date, "DD.MM.YYYY")).Activate On Error GoTo 0 ' On Error GoTo ErrorHaendler2 If Cells(Hour(Now) + 13, 2).Offset(, 2).Value "" Then Cells(Hour(Now) + 13, 2).Resize(3, 5).Select MsgBox "am " & Format(Date, "dd.mm.yyyy") & " ist um " & Format(Time, "hh") & " Uhr ein _ Termin" & " " & Cells(Hour(Now) + 13, 2).Offset(, 2).Value & " " & "eingetragen!" Else Cells(Hour(Now) + 13, 2).Resize(1, 2).Select MsgBox "am " & Format(Date, "DD.MM.YYYY") & " ist um " & Format(Time, "hh") & " Uhr - kein _ Termin eingetragen !" 'Application.Goto ErrorHaendler2 End If On Error GoTo 0 Exit Sub ErrorHaendler1: MsgBox "Das Blatt " & Format(Date, "DD.MM.YYYY") & " existiert nicht !" Exit Sub ErrorHaendler2: ' Cells(Hour(Now) + 13, 2).Resize(1, 2).Select ' MsgBox "am " & Format(Date, "DD.MM.YYYY") & " ist um " & Format(Time, "hh") & " Uhr - kein _ Termin eingetragen !" ActiveSheet.Cells(1, 1).Select 'muß nicht sein 'Tabelle1.Activate' oder was auch immer End Sub

Beliebteste Forumthreads (12 Monate)

bei öffnen entsprechende Tabelle / Tag&Uhrzeit

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread