ausdruck von wrapped text fehlerhaft
wrapped
ich habe folgendes problem: in einer tabelle sind einige zellen (einzeln, nicht verbunden) mit 'wrap text' und zeilenhoehe auf 'autofit' formatiert. das problem tritt nur bei umgebrochenem text auf. beim normalen arbeiten sieht alles korrekt aus. excel ist mit allen updates versorgt.
druckt man (auch druckvorschau) die seite aus, erscheint die letzte zeile des umgebrochenen texts nur zur haelfte - zeilenhoehe ist nicht ausreichend.
das problem habe ich im netz mehrfach beschrieben gefunden, jedoch keinen loesungsansatz. ist anscheinend ein excel problem. alternativ sollten zb. die nutzer alle 80-100 zeichen ein manuelles Alt+Enter einfuegen. das ist aber unbefriedigend.
meine idee war nun in vba zu pruefen, ob in der zelle ein zeilenumbruch vorhanden ist und dann die zeilenhoehe zu vergroessern. da haenge ich nun fest. hat jemand eine idee, wie man das ausknobelt?
das hier funktioniert nicht: InStr(1, ActiveSheet.Range("B" & i).Value, vbLf)
auch vbCrLf, Char(10) und Char(13) geben nicht das gewuenschte ergebnis. rueckgabewert ist immer null
fuer ideen waere ich sehr dankbar.
myles