Entsprechend aktuellem Datum in Spalte springen

Hallo liebe Excelfreunde
Ich konnte mit Hilfe der Recherche den unten eingefügten und funktionierenden Code anpassen. Zur Zeit funktioniert der Code dahingehend, dass bei erfolgreicher Entsperrung die Anzeige direkt in Zeile 1 springt.
Nun wollte ich zum Abschluss noch die Besonderheit einbauen, dass immer dem aktuellen Monat entsprechend in die jeweilige Spalte gesprungen wird. Also z.B. für den Monat Februar, soll nach der Entsperrung die Anzeige für den User ab dem Bereich "U1" angezeigt werden.
Falls es für eine ev. Lösung bedeutend ist; das Datum (01.02.06) steht im Beispiel Februar in "U3"
Hier das was ich habe:


Sub Pass()
Dim strPW As String
Dim strEingabe As String
strPW = "abc123"
strEingabe = InputBox("Dieser Tabellebereich ist Passwort geschützt")
If strPW <> strEingabe Then
MsgBox "Das Passwort war falsch und der Vorgang wird abgebrochen"
Else
Worksheets("øZeitermittlung").ScrollArea = ""
MsgBox "Sie haben die Scrollsperre erfolgreich aufgehoben !",vbInformation
End If
Worksheets("øZeitermittlung").Select
ActiveWindow.ScrollRow = 1
End Sub

Ich bedanke mich vorab schon einmal für jede Unterstützung die mich weiter bringt.
Freundliche Grüsse, Glen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Pass() Dim strPW As String Dim strEingabe As String Dim rngMonth As Range strPW = "abc123" strEingabe = InputBox("Dieser Tabellebereich ist Passwort geschützt") If strPW <> strEingabe Then MsgBox "Das Passwort war falsch und der Vorgang wird abgebrochen" Exit Sub Else Worksheets("ØZeitermittlung").ScrollArea = "" MsgBox "Sie haben die Scrollsperre erfolgreich aufgehoben !", vbInformation End If Set rngMonth = Worksheets("ØZeitermittlung").Range("B3:B33").Find(Monat, _ LookIn:=xlValues, lookat:=xlWhole) If Not rngMonth Is Nothing Then Application.Goto rngMonth.Offset(-2, -1), True rngMonth.Activate End If Set rngMonth = Nothing End Sub

Hallo Glen!
"Es existierte ein Kommunikationsproblem, denn ich wollte eigentlich, dass der Sprung nur zum aktuellen Monatsersten geht. Also im Februar zur Zelle U3."
Und warum ist dann deine Tabelle ab Spalte U leer?
Das hättest du schon bedenken können, das ich das nicht wissen kann;-))
Nimm diesen Code!
Sub Pass()
Dim strPW As String
Dim strEingabe As String
Dim rngMonth As Range

strPW = "abc123"
strEingabe = InputBox("Dieser Tabellebereich ist Passwort geschützt")

If strPW <> strEingabe Then
  MsgBox "Das Passwort war falsch und der Vorgang wird abgebrochen"
  Exit Sub
Else
  Worksheets("ØZeitermittlung").ScrollArea = ""
  MsgBox "Sie haben die Scrollsperre erfolgreich aufgehoben !", vbInformation
End If

Set rngMonth = Worksheets("ØZeitermittlung").Range("3:3").Find(CDate(DateSerial(Year(Date), Month(Date), 1)), _
  LookIn:=xlValues, lookat:=xlWhole)

If Not rngMonth Is Nothing Then
  Application.Goto rngMonth.Offset(-2, -1), True
  rngMonth.Activate
End If

Set rngMonth = Nothing

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

Entsprechend aktuellem Datum in Spalte springen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Entsprechend aktuellem Datum in Spalte springen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread