Entsprechend aktuellem Datum in Spalte springen
24.01.2006 10:59:49
Glen
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