Tesxtlänge mittels VBA begrenzen
17.05.2008 12:05:00
HaKa
Ich gebe über eine InputBox einen Text ein der auf 10 Zeichen begrenzt sein soll, Ausgabe in Zelle A10. Anschliessend übertrage ich die einzelnen Buchstaben des Textes mit den Formel =TEIL($A$10;SPALTE();1) in die Zellen A1, A2, usw.. Der Grund, das Formular wird z.T. auch händisch ausgefüllt.
Die Textlänge ist Systembedingt auf 10 Felder begrenzt. Ich habe das, in der Zelle A10, über Daten Gültigkeit Testlänge max. 10 zu lösen versucht. Effekt: Ablauf über InputBox funktioniert nicht, d.h. es sind Texte > 10 Zeichen möglich. Direkteingabe in Zelle A10 funktioniert jedoch einwandfrei.
Kann man das im nachfolgenden VBA-Code integrieren?
Sub InputFeld1()
On Error GoTo errorhandler
Dim Wert As Variant
Sheets("Tabelle1").Select
Sheets("Tabelle1").Unprotect
Wert = InputBox("Feld1")
[A10] = Wert
Sheets("Tabelle1").Select
Sheets("Tabelle1").Protect
errorhandler: Exit Sub
End Sub
Gruss Heinz
Anzeige