Text aus Zelle in Textbox übertragen
03.02.2021 13:20:37
Dirk
ich habe folgendes Problem.
Ich habe in einer Tabelle1 eine Eingabemaske erstellt. In Tabelle 2 ist eine Grafik eingefügt, die ich mit Textboxen gefüllt und gruppiert habe.
Für die TextBoxen habe ich eine Code geschrieben, sodass sie nur sichtbar sind, wenn in ihnen was drinsteht
Private Sub TextBox1_Change()
If TextBox1.Value "" Then
TextBox1.BackStyle = 1
TextBox1.BackColor = RGB(255, 192, 0) ' orange oder &H80FF&
Else
TextBox1.BackStyle = 0
End If
End Sub
Mit den Befehlen hab ich es schon probiert, funktioniert aber nicht
Worksheets("Eingabemaske").Range("K24").Value = Me.TextBox1.Value
oder
TextBox1 = Worksheets("Eingabemaske").Range("K24").Value = Me.TextBox1.Value
Vielleicht kann mir hier jemand helfen
Vielen Dank schon mal im voraus
Gruß Dirk