Kolom selecteren volgens weeknummer.

[danny147]

Beste

Graag zou ik willen bij het openen van mijn excel bestand, dat automatisch de huidige weeknummer naast de titelblokkereing komt te staan. ( uit de lijst)
Zie bijlage.

Heb zelf een VBA formule geschreven dat enkel "K1" naast de titelblokkering plaatst.
Maar dat is het niet.

Groetjes Danny.

 

[jpvs]

Danny,

zie hier een voorbeeld (macro komt niet van mij).

Pierre

 

[Wigi]

Ik ga voor

Private Sub Workbook_Open()
    
    Application.Goto reference:=Sheets("Blad1").Range("D1:AJ1").Find(what:=CInt(Format(Date, "ww", 2)), LookIn:=xlFormulas, lookat:=xlWhole), scroll:=True
    
End Sub

Deze macro komt wel van mij.

Wigi

 

[danny147]

Beste jpvs en Wigi

jpvs. Bedankt, maar hij gaat naar die cel, maar mijn titelblokkering moest blijven staan.

Beste Wigi, bij jou is het wat ik natuurlijk zocht, wat anders hé

Beide bedankt :thumb:

Groetjes Danny.

 

[jpvs]

Wigi,

zo zie je maar dat de wereld klein is hé.
trouwens knap gevonden.

Pierre