Office: (Office 365) Makro, Zellensprung über Dropdown

Hallo Liebes Forum,

meine erste Frage hier und gleich bei Makros. Ich möchte über die Dropdownliste "Kalenderwoche", die KW auswählen und im rechten Feld zur entsprechnenden Zelle springen. Ich habe nur leider noch keinen Ansatz für mich gefunden wie ich das Realisieren kann.

Ich höffe ihr könnt mir hierbei helfen, vielen Dank schon Mal im voraus.

 

Moin!
Ins Modul der Tabelle
(rechtsklick auf Tabellenregister, Code anzeigen):

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
  If .Address(0, 0) = "D4" And .CountLarge = 1 Then
    Application.Goto Cells(6, Mid(.Text, 3, 2) * 7 + 2), True
  End If
End With
End Sub

Gruß Ralf

 

wow, das ging schnell. Vielen vielen Dank dafür. Funktioniert super

 

Gerne!
Ich erkläre ungefragt auch noch die dahinterstehende Logik:
• im Zelldropdown steht immer "KW" und mindestens eine Ziffer
• ich lese die Ziffer(n) mittels Mid("KW7", Start=3, Länge=2) aus
• somit erhalte ich den Text "7" (die angegebene Länge wird angepasst)
• der jeweilige Wochenbeginn steht in den Spalten 9 ("I") 16 ("P") usw., also jeweils 7 Tage, beginnend mit 9
• "1"*7+2=9; "2"*7+2=16; "3"*7+2=23 usw. (der Text wird durch die mathematische Operation in eine Zahl umgewandelt, nennt sich implizite Typumwandlung)
• mit Application.Goto wird die Zelle angesprungen, Scroll=:True bewirkt das Scrollen an den linken Rand der Fixierung

 

Hi,

ohne VBA ginge das mit einem Klick mehr:

E4:
=HYPERLINK("#Z5S"&VERGLEICH(D4;5:5;0);"zur "&D4)

Dann nur noch den so erzeugten Link in E4 anklicken.

 

Nochmal vielen Dank, auch für die ausführliche erklärung. Heute erst wieder gebraucht

 

Hi Ralf,

Hier ist doch die Prüfung mit CountLarge überflüssig. Wenn mehr als eine Zelle betroffen ist, kann .Address(0, 0) doch niemals D4 sein, sondern z.B. D4:D5