Userforn - Kalenderfuktion
21.03.2013 09:41:29
Peter
ich hatte mir vor einiger Zeit mal´ diese Funktion, hier aus dem Forum herausgesucht.
Klappte auch. Jetzt möchtze ich diese Userform in eien andere Datei einbauen, und da steh ich vor einem Problem.
Hier soll das Datum in der Zelle AD13 erscheinen.
Wenn in der anderen Datei die Zelle AD13 bis AH13 zu einer Zelle verbunden sind
klappt das nicht mehr.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 30 And Target.Row = 13 Then
'ist die Zelle AD 13
'Aber wie funktioniert es, wenn die Zellen AD13 bis AH13
'zu einer Zelle verbunden sind ? ?
UserForm1.Show
Else
If UserForm1.Visible Then Unload UserForm1
End If
End If
End Sub
Wie müßte es jetzt ausehen damit es in verbundenen Zellen funktioniert ?Im voraus schon mal´ besten Dank
Gruß Peter