kalender in agenda

[john wings]

Hallo,
Ik had een paar vraagjes ivm vba in excel: ik heb een kalender in gezet in excel: met onderstaande code heb ik geprobeerd om de kalender altijd in zicht te houden als ik naar beneden scroll:
[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Calendar1.Top = ActiveCell.Top
End Sub]
Ik zou nu graag bereiken dat de kalender wel zichtbaar blijft maar in een bepaalde kolom, vb kolom H.
Alvast bedankt.

 

[snb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
      .Left = cells(target.row+1,8).Left 
      .Top = cells(target.row+1,8).Top
  End With
End Sub

 

[john wings]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Calendar1
      .Left = cells(target.row+1,8).Left 
      .Top = cells(target.row+1,8).Top
  End With
End Sub

Bedankt, dit werkt perfect.

 

[Wigi]

Bedankt, dit werkt perfect.

Aub de vraag dan nog eventjes op opgelost zetten