String kürzen
25.01.2013 12:22:47
reiner
https://www.herber.de/bbs/user/83570.xls
die Beispieldatei enthält in Zelle "A1" einen String der mittels Makro in "A9" kopiert wird.
Dann werden die ersten 2 Zeichen "0," entfernt und gleichzeitig wird der gesamte String auf eine Länge von 250 Zeichen begrenzt.
Mit Hilfe der Zeilenadressen in diesem String sollen die entsprechenden Zeilen eingefärbt werden.
Das jedoch ist begrenzt auf eine Anzahl Zeilen die max. 250 Zeichen in vorliegender Schreibweise entspricht. Die genannten Zeilenadressen können somit 35 Zeilen einfärben.
(Bei kürzeren Zeilenadressen sind es entsprechend mehr Zeilen)
Entscheidend für diese Aktion ist nachfolgender Programmcode:
Range("A9").Value = Mid(Range("A9").Value, 3, 250)
Die String muss nach der Bearbeitung lauten: "$C$225,$C$226,.......,$C$258,$C$259" (244 Zeichen)
Wie müsste ein Programmcode lauten der alle Zeichen ab dem letzten "," innerhalb der 250-Zeichen-
Begrenzung löscht?
mfg
reiner