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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen