Office: In Excel zur erste Zeile der aktuellen KW springen

Hallo

In meiner Tabelle sind teilweise mehrere Einträge zu der gleichen Kalenderwoche vorhanden. Ich möchte gern, das beim Öffnen der Tabelle die erste Zeile der aktuellen KW oben ist. Alles was ich bisher gefunden habe funktioniert leider nur wenn die KW's fortlaufend durchnummeriert sind.

Der Aufbau der Tabelle ist folgender:

lfd. Nr. KW Vorgang Beschreibung
1 12
2 12
3 13
4 14
5 15
6 17
7 17
8 17
9 18
10 19

Ich hoffe, das jemand eine Lösung für mein Problem hat.

winnipo

 

Hi,

schreibe den folgenden Code ins Codemodul DieseArbeitsmappe:

Code:

Private Sub Workbook_Open()
   Dim rngZelle As Range
   Set rngZelle = Worksheets("Tabelle1").Columns(2).Find(Application.WeekNum(Date), lookat:=xlWhole)
   If Not rngZelle Is Nothing Then Application.Goto reference:=rngZelle
End Sub

Noch ein Hinweis: der Name einer hochgeladenen Arbeitsmappe sollt schon etwas mit dem Problem zu tun haben, denn sonst ist es schwer, beim Herunterladen die Mappe wiederzufinden und einem bestimmten Beitrag zuzuordnen. Schließlich hat man als Helfer nicht nur mit einer einzigen fremden Arbeitsmappe zu tun.

Bis später,
Karin

 

Vielen Dank

das klappt sehr gut.
Gibt es auch noch die Möglichkeit die so ausgewählte Zeile nach oben an den Tabellenanfang zu scrollen?
Die Tabelle ist nach der Überschrift fixiert, so das die Überschriften beim scrollen stehen bleiben. Da die Tabelle recht lang ist, wäre das echt hilfreich.

Danke für die Hilfe
Lutz

 

Hi Lutz,

ergänze nach reference:=rngZelle scroll:=True

Bis später,
Karin

 

Perfekt

Vielen Dank Karin.
Das hat mir sehr geholfen. Jetzt kann ich den Rest der Auswertung angehen.

Bis später,
Lutz.