Hallo,
Ich habe ganz einfache UserForm mit 3 Textfelder und einem "Speichern"-Button.
Die Daten werden dann im Arbeitsblatt "Versicherungen" in den benannten Zellen (z.B. "car_vs")
gespeichert.
Problem: Ich hätte gerne, dass wenn ich die UserForm erneut öffne, dann die wieder
dieselben Daten aus den Zellen (z.B. "car_vs") geladen werden. Derzeit sind die
Textfelder leider leer.
Wäre über Eure Hilfe sehr dankbar.
[Code]
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
MsgBox ("Nicht möglich weil leer")
Else
Sheets("Versicherungen").Range("car_vs").Value = TextBox1.Text
End If
If TextBox2.Text = "" Then
MsgBox ("Nicht möglich weil leer")
Else
Sheets("Versicherungen").Range("car_sb").Value = TextBox2.Text
End If
If TextBox3.Text = "" Then
MsgBox ("Nicht möglich weil leer")
Else
'Sheets("Versicherungen").Range("car_em").Value = TextBox3.Text
UserForm2.TextBox3.Text = Sheets("Versicherungen").Range("car_em")
End If
End Sub
[/Code] |