Selection Change Ereignis
16.03.2004 14:22:01
Giuseppe
kann man der Code eleganter und kürzer schreiben?
(mit If Intersect(Target....? kenne die Syntax nicht!!!!)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell = Sheets("DlVertrag").Range("h9") Or ActiveCell _
= Sheets("DlVertrag").Range("j9") Or ActiveCell = Sheets("DlVertrag"). _
Range("c5") Then frm_kleineKalender1.Show
End Sub
Danke
Gruß Giuseppe