Ist folgendes möglich?
ich habe zb. A12 markiert. Jetzt öffne ich eine Userform mit einer TextBox. in der TextBox soll jetzt automatisch der Inhalt von A12 stehen.
Danke fürs lesen
Private Sub UserForm_Activate()
TextBox1.Value = ActiveCell.Value
End Sub
In diesem Bsp wird der Inhalt der aktiven Zelle in die Textbox geschriebenPrivate Sub UserForm_Activate()
TextBox1.Value = ActiveCell.Value
End Sub
Es soll nur in A7:A253 funtkionieren.If ActiveCell.Column = 1 And ActiveCell.Row > 6 And ActiveCell.Row "gesperrt" Then
TextBox1.Value = ActiveCell.Value
End If
Gruß MatthiasIf Not Intersect(Range("A7:A253"), ActiveCell) Is Nothing Then _
TextBox1.Value = ActiveCell.Value