Zeilenumbruch Textbox die 100ste...
Gegga
Ich benötige folgendes:
Textbox Multiline, das schon während der Eingabe folgendes macht:
Nach 35 Zeichen such das letzte vorhergehende Leerzeichen, und füge danach einen Strichpunkt und einen Zeilenumbruch (Wie wenn ich Shift+Enter drücke!!!) ein. Dann zähle in der zweiten Zeile wieder bis 35 und mache das selbe wieder.
(Also, es sollten nie mehr als 35 Zeichen in einer Zeile meiner Textbox drin stehen.)
Nach 5 Zeilen soll eine Meldung sich öffen, Das die max. Grösse erreicht ist, und eine weitere Eingabe soll verhindert werden. Allerdings möchte ich nicht das dann die komplette TB gesperrt ist.
Evtl. will ja der User seinen Text noch überarbeiten.
Beim Eintragen dieser Textbox in ein Sheet, sollen dann die gesetzen Zeilenumbrüche alle gelöscht werden, so das nur noch die Strichpunkte stehen bleiben.
Dann würde ich gerne diesen Code laufen lassen und hätte "optisch" auf meinem Tabellenblatt das gleiche Aussehen wie in meiner Textbox :)
Sub Umbruch_BEZEICHUNG()
Dim Pos As Integer, Cell As Range, ii As Integer
Range("F45:F5000").Select
Const Sep = ";"
For Each Cell In Selection
ii = 0
Pos = InStr(Cell, Sep)
While Pos > 0
ii = ii + 1
If Pos Das Prob bei meinen bisher gestellten Fragen war immer, das der "automatische" Textumbruch der Textbox, nicht berücksichtigt werden kann.
Da es später aber viele User geben wird, die beim Tippen die Augen auf der Tastatur haben und nicht am Bildschirm ;) und sie nicht mitbekommen ob es nun ein gewollter Umbruch ist oder nicht, und es zu unnötigen Fehlern bez. der "Optik" des später auszudruckenden Sheets kommen würde, benötige ich diese Variante.
Danke nochmals für eure Eselsgeduld und die evtl. Hilfe!!!!
Gruß Gegga
Anzeige