Hallo Hans55,

was mir einfällt:
a) Die Sub Balken optimieren: Select - Case, KEIN Löschen der Zeile.
b) Die Subs BalkenXXX optimieren: Locate nur für den Zeilenanfang, sonst nicht. Die an 10 Zeichen fehlenden Blöcke als Leerzeichen ausgeben (löscht dadurch evtl. vorherige Blöcke). Nur 1 LCD-Kommando pro Zeile: LCD Chr(0); Chr(0); " " (für 2 Blöcke + 8 Leerzeichen).

Gruß Dirk