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
Nun möchte ich das immer der Zellinhalt der gerade aktiven Zelle in TextBox1 steht! Wie muss ich das anstellen?Danke!
L.G. Frank H.