Inhalt der aktiven Zelle in UF
26.09.2012 17:37:26
Frank
Wieder 'ne Frage,leider!
Ich wäre gern allein dahinter gekommen, doch ich produziere immer nur 'ne Fehlermeldung!
Folgender Code öffnet mir eine UF!
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Zelle As Range
Dim RaBereich As Range
Set RaBereich = Range("B9:H11")
If Not Intersect(Range(Target.Address), RaBereich) Is Nothing Then frmGeburtstagskind. _
Show vbModeless
Set RaBereich = Nothing
End Sub
Danke!
L.G. Frank H.
Anzeige