Wieso keine Änderung in Textbox ?
28.11.2004 19:48:32
walter
habe ein kleines Problem:
Meine Eingabe in einer Textbox funktioniert jedoch wird nicht aktualisert Wieso ?
Hinweis: Ich rufe von der UserForm1 die UserForm2 auf funktioniert auch die Daten werden eingelesen.
Wenn ich jetzt auf der Userform2 in der TextBox1 etwas reinschreibe funktiniert, jedoch wird im Label nicht die Änderung angezeigt.
Hier mein Makro nach dem Aufruf von der UserForm1 aus:
Private Sub KulanzblattEinblenden_Click()
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
USFKulanzblatt.Show
End Sub
Und hier das Makro für die UserForm2:
Private Sub UserForm_Activate()
'-------------- ab hier Daten einlesen ----------------------------
Label1.Caption = Worksheets("Kulanzblatt-VK").Range("F5")
Label2.Caption = Worksheets("Kulanzblatt-VK").Range("T8") Label11.Caption = Worksheets("Prov-Blatt").Range("AD86")
TextBox1 = Format(Worksheets("Kulanzblatt-VK").Range("I31").Value, ("#,##0.00"))
Label26.Caption = Format(Worksheets("Kulanzblatt-VK").Range("I33").Value, ("#,##0.00")) 'Vorrats/Lager-Nr. anzeigen
TextBox2 = Format(Worksheets("Kulanzblatt-VK").Range("I32").Value, ("#,##0.00"))
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Gruß WAlter
Anzeige