Textfeldverbindung mit Zelle
13.07.2003 15:14:54
Björn
ich möchte Folgendes erreichen:
Per Button, der auf einem Tabellenblatt angeordnet ist, soll eine Userform aufgehen. So weit kein Problem. Die Userform hat ein Textfeld. Gewollt ist, dass das Textfeld nun bei Eintritt der If-Bedingung (siehe unten) den Wert der Zelle B4 des Tabellenblattes haben soll, also bei Öffnung der Userform in dem Textfeld der Wert angezeigt wird. Weiterhin soll man aber auch die Möglichkeit haben, einen anderen Wert in das Textfeld eingeben zu können und dieser Wert soll dann sofort in der Zelle B4 den vorherigen Wert ersetzen.
Meine bisherige Formel
Range("b4").Value = _
Me.TextBox1.Value
Erlaubt mir nur Werte in die Zelle B4 einzugeben. Das Textfeld zeigt mir aber bei Öffnung der Userform nicht den aktuellen Wert der Zelle B4 an.
Ich hatte es dann mit TextBox1.ControlSource = b4 versucht aber es hat nicht funktioniert.
Wie muss ich die Formel ändern?
Vielen Dank im Voraus.
Björn
Private Sub TextBox1_Change()
Dim eingabe
If Range("an1") = Range("ap1") And Range("ar1") = Range("at1") Then
Range("b4").Value = _
Me.TextBox1.Value
End If
End Sub