Makro funktioniert nicht
26.11.2004 15:27:16
Walter
habe ein kleines Problem.
Ich wollte die Texteingabe begrenzen und habe dafür folgendes Makro:
Private Sub TextBox29_Change()
1 'If Len(TextBox29) > 49 Then
2 ' Beep
3 ' MsgBox " Achtung " & Chr(13) & Chr(13) & _
4 ' "Zeilenende mit 50 Buchstaben erreicht !!!", vbCritical
Worksheets("Prov-Blatt").Range("AB80") = TextBox29.Value '"X"
TextBox29 = Worksheets("Prov-Blatt").Range("AB80") 'Text reinSonstige
' End If
End Sub
Wenn ich die Zeilen 1-4 rausnehme, kann ich in der TextBox normal eingeben und
die Eingabe wird auch direkt wieder angezeigt, funktioniert also.
Wenn ich die Zeilen 1-4 aktiviere zeigt mir die Text nichts an.
Wieso ?
Gruß Walter MB
Anzeige