Monatsanfang selektieren
13.12.2003 17:11:12
Jens_Pu
brauche wieder mal Eure Hilfe.
Im Bereich D2:D13 stehen die Monatsnamen von Januar bis Dezember.
Im Bereich B19:B383 steht das Datum vom 01.01.03 bis 31.12.03.
Bei einem Doppelclick auf einen Monatsnamen soll nun der erste Tag des angeclickten Monats selektiert werden. Meine Ereignisprocedure sieht bisher so aus:
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Excel.Range, Cancel As Boolean)
Application.EnableEvents = False
Select Case target.Column
Case 4 'Monat
If target.Row < 2 Or target.Row > 13 Then
Application.EnableEvents = True
Exit Sub
End If
MsgBox target.Value 'HIER SOLL DER 1. TAG DES GEWÄLTEN MONATS ANGESPRUNGEN WERDEN
Case 7 'Status
frmStatus.Show
Case Else
Application.EnableEvents = True
Exit Sub
End Select
Application.EnableEvents = True
End Sub
Gruss Jens