...(ByVal Cancel As MSForms.ReturnBoolean)
02.02.2007 08:36:17
Peter
ich habe eine Excel-Anwendung, bei der in einer Userform nachstehender Code verwendet wird. Auf vielen PCs läuft das problemlos. Auf manchen PCs jedoch kommt beim Start der Anwendung die Meldung:
Datei nicht gefunden? Was kann ich da machen? Ich denke die MS-Forms sind auf jedem PC drauf? Wer weiss da Abhilfe.
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim xLen As Integer
xLen = Len(TextBox1.Text)
If xLen > 0 And xLen < 10 Then
Cancel = True
End If
End Sub
Vielen Dank für Euere Hilfe
Peter