Textbox Fehler
01.06.2005 15:21:59
GeorgK
ich brauche mal wieder Eure Hilfe.
Mit folgendem Makro (ist aus dem Archiv) sollen Textboxen aufgerufen werden. In Textbox 5 soll die Anzeige mit Datumsformat funktionieren.
Private Sub USERFORM_Initialize()
With Me.ListBox1
.ColumnCount = 1
ColumnWidth = "80"
.ColumnHeads = False
.RowSource = "PROMO!E1:T100"
End With
' damit die Textboxen nicht geaendert werden koennen.
TextBox1.Locked = True
' damit der Unterschied optisch sichtbar wird.
TextBox1.SpecialEffect = fmSpecialEffectFlat
TextBox2.Locked = True
TextBox2.SpecialEffect = fmSpecialEffectFlat
TextBox3.Locked = True
TextBox3.SpecialEffect = fmSpecialEffectFlat
TextBox4.Locked = True
TextBox4.SpecialEffect = fmSpecialEffectFlat
TextBox5.Locked = True
TextBox5.SpecialEffect = fmSpecialEffectFlat
TextBox6.Locked = True
TextBox6.SpecialEffect = fmSpecialEffectFlat
TextBox7.Locked = True
TextBox7.SpecialEffect = fmSpecialEffectFlat
TextBox8.Locked = True
TextBox8.SpecialEffect = fmSpecialEffectFlat
TextBox9.Locked = True
TextBox9.SpecialEffect = fmSpecialEffectFlat
End Sub
Private Sub TextBox5_Change()
With TextBox5
TextBox5.Value = Format(TextBox5.Value, "dd.mm.yyyy")
End With
End Sub
Es erscheint immer eine Fehlermeldung hier ....fmSpecialEffectFlat.
Entferne ich diesen Teil, erhalte ich eine Fehlermeldung bei ...Format.. der Textbox5.
Kann mir bitte jemand helfen, was ich hier verändern muss.
Vielen Dank und Gruß
Georg