GROSSBUCHSTABEN in TextBox , Fehlermeldung
08.03.2004 12:29:14
sepp
hallo Hajo, hallo Hans!
Ich benutze eine Textbox in UserForm zur Eingabe von Währungsangaben und/oder 3-stelliger Bezeichnung. Diese sollen immer in GROSSBUCHSTABEN "erscheinen".
Der Code:
Private Sub TextBox1_AfterUpdate()
' alle 3 Buchstaben groß
TextBox1.Value = _
UCase(Mid(TextBox1.Value, 1, 1)) & _
UCase(Mid(TextBox1.Value, 2, 1)) & _
UCase(Mid(TextBox1.Value, 3, 1))
End Sub
Mein PROBLEM:
In Excel 2000Prof funktioniert der Code einwandfrei, in XP Prof. nicht!
Fehlermeldung lautet:
"Projekt oder Bibliothek nicht gefunden" (makiert ist MID im Code..........).
Bin für jeden Rat dankbar,
Gruß sepp
Anzeige