Office: (Office 2007) automatisches scrollen zur zeile mit aktuellem Datum

H2SO4 · 26. Juli 2008

Hi,

ich habe eine exceltabelle in der in einer Spalte in fortlaufende datums habe. Hier markiere ich mir schonmal das aktuell. Soweit so gut. Nur werde ich irgendwann dazu kommen, das das aktuelle datum ziemlich weit unten ist. Um nicht jedesmal erst runterscrollen zu müssen, möchte ich gerne, das excel beim öffne soweit runterscrollt oder halt ähnliches bis die zeile in der das aktuelle datum steht an oberster stelle steht.

Habe hierzu schon eine weile im netzt gefunden jedoch sowas ähnliches bisher nicht gefunden. Vielleicht hatte ich auch nur pech bei den stichworten. Hoffe mal, das hier jemand eine idee hat, wie ich dieses problem lösen könnte.

tschau *Smilie

:)

OfficeUser · 28. Juli 2008

Hallo Schwefelsäure *wink.gif* ,

kopiere folgenden VBA-Code in das Klassenmodul "DieseArbeitsmappe" im VBA-Editor (Alt+F11) :

VBA-Code:
Private Sub Workbook_Open()
    'Sucht in Spalte A das heutige Datum, rollt bis zu dieser Zeile und markiert das Datum
    With [A:A].Find(Date)
        ActiveWindow.ScrollRow = .Row
        .Select
    End With
End Sub

Code eingefügt mit Syntaxhighlighter 4.15
Beachte dabei, dass das Datum als feste Werte enthalten sein müssen und auch folgende Beiträge zu diesem Thema :
http://spotlight-wissen.de/lisp/page...84083646-20098
http://spotlight-wissen.de/lisp/page...183645020-2015

jinx · 28. Juli 2008

Moin, H2SO4,

Code:

'Basis Herber 114100
Dim rng As Range
Dim dat As Date
Dim var As Variant
dat = Date
var = Application.Match(CDbl(dat), Columns(1), 0)
If IsError(var) Then
Beep
MsgBox prompt:="Datum wurde nicht gefunden!"
Else
Application.Goto reference:=Cells(var, 1), scroll:=True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gurkenhobel · 28. Juli 2008

In meinem Fahrtenbuch löse ich das so
Code:

Sub Datumsuchen()
' Private Sub Workbook_Open()
Spalte = "A" ' in dieser Spalte steht das Datum
For Each a In ActiveSheet.Range(Spalte & "1:" & Spalte & "368")
' alternativ: For Each a In Worksheets("2008").......
If a = Date Then
zeile = a.Row
Exit For
End If
Next
On Error Resume Next
Application.Goto ActiveSheet.Cells(zeile, Spalte), True
' alternativ: Application.Goto Worksheets("2008")......
If Err.Number 0 Then
MsgBox ("Das aktuelle Datum wurde nicht gefunden.")
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

H2SO4 · 28. Juli 2008

super klappt *Smilie

Gibt es eine möglichkeit das ich das macro als "sicher" markiere? Möchte ungerne die sicherheitsstufe aufs niedrigeste stellen und auch nicht jedesmal sagen "ja du darfst das macro ausführen du blödes excel" einmal währe ja ok, jedoch merkt es sich das ja nicht.

Aber auch so schonmal vielen dank

H2SO4 · 28. Juli 2008

ups, habe ja noch 2 geantwortet *Smilie der dank geht vor allem an NoNet aber natürlich auch danke an die beiden anderen *Smilie

jinx · 28. Juli 2008

Moin, H2SO4,

siehe Eigenes Zertifikat ab Office 2000 erstellen, bitte die am Ende aufgeführten Bemerkungen beachten...

H2SO4 · 28. Juli 2008

cool danke, klappt wunderbar

die warnhinweise sind klar *Smilie

Office: (Office 2007) automatisches scrollen zur zeile mit aktuellem Datum

automatisches scrollen zur zeile mit aktuellem Datum

automatisches scrollen zur zeile mit aktuellem Datum

automatisches scrollen zur zeile mit aktuellem Datum

automatisches scrollen zur zeile mit aktuellem Datum

automatisches scrollen zur zeile mit aktuellem Datum - Similar Threads - automatisches scrollen zeile

eingehende Emails über bestimmtes Konto automatisch weiterleiten

Wie automatisch Word2016 cache löschen beim Exit?

StartFenster wird nicht automatisch geöffnet

Fortlaufendes Datum im Kopf für je 2 Seiten

Silbentrennung automatisch deaktivieren in blauem Text

automatische Abfrage URL via Artikelnummer

Memofeld automatisch scrollen