Hallo Zusammen.
Ich habe eine Arbeitsmappe, in der durch einen SVerweis Daten übernommen werden.
Diese Daten sind jedoch mitunter größer als die Zelle in die sie geschrieben werden.
Nun habe ich als Zell-Formatierung „Zeilenumbruch“.
Aber nicht immer passt Excel die Zeilenhöhe so an, dass auch alles zu lesen ist, sondern belässt die Zeile oft in einfacher Höhe, obwohl der Text in einer Zelle mitunter bis zu zwei Zeilenumbrüche hat.
Der Ausdruck erfolgt mittels eines Makros.
Nun meine Frage, besteht die Möglichkeit innerhalb des Druck-Makros zu testen, ob alle Zeilen die richtige Höhe haben und ggf. anzupassen?
Vielen Dank schonmal für Eure bisher immer hilfreichen Tips.
Lieben gruß
LE
Hallo,
Nun meine Frage, besteht die Möglichkeit innerhalb des
Druck-Makros zu testen, ob alle Zeilen die richtige Höhe haben
und ggf. anzupassen?
Könntest Du in das Makro nicht einfach einbauen, dass alles markiert wird, und dann „optimale Zeilenhöhe“ einstellen?
Gruß Verena
Hallo Verena,
ja genau sowas hab ich mir auch gedacht.
Nur ist folgendes zu beachten:
Durch dieses Makro werden ungebrauchte Zeilen und Spalten ausgeblendet.
Also sollte die Erweiterung leidglich die eh „sichtbaren“ Zeilen auf optimale Höhe bringen.
Nur dazu fehlt mir der Code…
LG
LE
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
HalloLE!
(Klingt ja fast schwäbisch…)
Also sollte die Erweiterung leidglich die eh „sichtbaren“
Zeilen auf optimale Höhe bringen.
Nur dazu fehlt mir der Code…
Dann mache vorm Ausblenden einfach ein
Tabelle1.Rows.EntireRow.AutoFit
Weitere Details für AutoFit gibt’s in der Online-Hilfe…
Gruß, Manfred
Hallo Manfred!
*ggg*
Danke Dir. Genau dieses fehlte mir! Autofit kannte ich bisher noch nicht!
Gruß
LE
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hmmm… doch nicht ganz…
Dér Code funktioniert bei den Zellen, die durch den SVerweis gefüllt werde perfekt.
Allerdings sind auch Zellen dabei, welche durch „normale“ Verknüpfungen gefüllt werden (Bsp.: „=A1“). Bei diesen wird die Höhe nicht angepasst…
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Allerdings sind auch Zellen dabei, welche durch „normale“
Verknüpfungen gefüllt werden (Bsp.: „=A1“). Bei diesen wird
die Höhe nicht angepasst…
Dann schau mal, ob bei denen auch der Zeilenumbruch aktiviert ist. Bei mir macht das keinen Unterschied, ob ich SVERWEIS oder direkt =A1 nehme. Autofit passt beides an, aber eben nur, wenn auch in der Zelle mit =A1 der Zeilenumbruch aktiv ist.
Gruß, Manfred
Der Zeilenumbruch ist eingestellt. Bei den SVerweis-Zellen funktioniert das ja auch perfekt.
Ich arbeite mit Excel XP, kanns sein, dass es an der Version liegt?
Gruß
LE
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Der Zeilenumbruch ist eingestellt. Bei den SVerweis-Zellen
funktioniert das ja auch perfekt.
Was genau passt denn dann nicht? Ist die Zelle ein wenig zu hoch? Das macht Excel öfter…
Ich arbeite mit Excel XP, kanns sein, dass es an der Version
liegt?
Eigentlich nicht, ich hab das auch. Und bei mir sieht’s normal aus…
Gruß, Manfred
Der Zeilenumbruch ist eingestellt. Bei den SVerweis-Zellen
funktioniert das ja auch perfekt.
Was genau passt denn dann nicht? Ist die Zelle ein wenig zu
hoch? Das macht Excel öfter…
Nun, beim Blick auf die Zelle vor dem Ausdruck ist die „letzte Zeile“ des Inhaltes zu lesen (Zeilenhöhe = 1 Zeile) nach dem Ausdruck (und dem Makro) nur die erste Zeile der Zelle zu lesen (also höhe=1 Zeile)
Was genau passt denn dann nicht? Ist die Zelle ein wenig zu
hoch? Das macht Excel öfter…
Nun, beim Blick auf die Zelle vor dem Ausdruck ist die „letzte
Zeile“ des Inhaltes zu lesen (Zeilenhöhe = 1 Zeile) nach dem
Ausdruck (und dem Makro) nur die erste Zeile der Zelle zu
lesen (also höhe=1 Zeile)
Hi LE,
setz in den Druckcode noch „Call Zeilenhoehe“ ein.
Option Explicit
'
Sub Zeilenhoehe()
Dim Hoehe As Integer, Z, Zelle As Range
Hoehe = 12.75
ActiveSheet.UsedRange.Rows.RowHeight = Hoehe
For Each Zelle In ActiveSheet.UsedRange
Z = Split(Zelle.Value, Chr(10))
If Round(Zelle.Height / Hoehe)
Gruß
Reinhard
(also höhe=1 Zeile)
Hi LE,
setz in den Druckcode noch „Call Zeilenhoehe“ ein.
Option Explicit
’
Sub Zeilenhoehe()
Dim Hoehe As Integer, Z, Zelle As Range
Hoehe = 12.75
ActiveSheet.UsedRange.Rows.RowHeight = Hoehe
For Each Zelle In ActiveSheet.UsedRange
Z = Split(Zelle.Value, Chr(10))
If Round(Zelle.Height / Hoehe)
Gruß
Reinhard
Hallo Reinhard!
Auch wenn Deine Hilfe mir hier schon oft weitergeholfen hat, muss ich Dir leider sagen, dass ich den gleichen Effekt habe wie zuvor.
Jetzt sogar noch die Zeilen, die größer sein sollten, plötzlich nur „normale“ höhe haben.
LG
LE
setz in den Druckcode noch „Call Zeilenhoehe“ ein.
muss ich Dir leider sagen, dass ich den gleichen Effekt habe
wie zuvor.
Jetzt sogar noch die Zeilen, die größer sein sollten,
plötzlich nur „normale“ höhe haben.
Hallo LE,
ich hatte es an paar Beispielzellen getestet, da klappte es. Manfred konnte ja anscheinend auch nicht deine Problematik nachbilden.
Kannst du eine Mappe wo das auftritt hochladen bei www.hostarea.de oder www.badango.com o.ä.
Den Inhalt der Zellen kannst du ja anonymisieren falls nötig, wichtig ist nur daß die Problematik bleibt.
Achja, habs vergessen oder es stand nicht da, ist das bei Seitenansicht und dem Ausdruck so oder unterscheiden die sich?
Welcher Drucker ist der Standarddrucker.
Passiert es auch wenn du kurzzeitig einen anderen Drucker, z.B. den HP Deskjet 600 (ist meiner, ich bin technisch immer top aktuell *gg*) zum Standarddrucker erklärst?
Du erwähntest Code zum Drucken, wie sieht der aus?
Passiert es nur bei einer Datei, bei einigen oder bei allen?
Wie ist es bei Tabellenzellen in Word, ähnliches Verhalten?
Hast du die Möglichkeit die Datei auf einem anderen Rechner (Arbeitskollege, Bekannter) zu testen bzw. testen zu lassen?
Gruß
Reinhard
setz in den Druckcode noch „Call Zeilenhoehe“ ein.
muss ich Dir leider sagen, dass ich den gleichen Effekt habe
wie zuvor.
Jetzt sogar noch die Zeilen, die größer sein sollten,
plötzlich nur „normale“ höhe haben.
Hallo LE,
ich hatte es an paar Beispielzellen getestet, da klappte es.
Manfred konnte ja anscheinend auch nicht deine Problematik
nachbilden.
Danke Euch für Eure Mühe,
habe das Problem jetzt wie folgt gelöst:
Habe den direkten Verweis (=A1) in einen SVerweis geändert und siehe da, es funktioniert…
keine Ahnung was da bei mir anders läuft…
Trotzdem habt Dank!
LG
LE
Kannst du eine Mappe wo das auftritt hochladen bei
www.hostarea.de oder www.badango.com o.ä.
Den Inhalt der Zellen kannst du ja anonymisieren falls nötig,
wichtig ist nur daß die Problematik bleibt.
Achja, habs vergessen oder es stand nicht da, ist das bei
Seitenansicht und dem Ausdruck so oder unterscheiden die sich?
Welcher Drucker ist der Standarddrucker.
Passiert es auch wenn du kurzzeitig einen anderen Drucker,
z.B. den HP Deskjet 600 (ist meiner, ich bin technisch immer
top aktuell *gg*) zum Standarddrucker erklärst?
Du erwähntest Code zum Drucken, wie sieht der aus?
Passiert es nur bei einer Datei, bei einigen oder bei allen?
Wie ist es bei Tabellenzellen in Word, ähnliches Verhalten?
Hast du die Möglichkeit die Datei auf einem anderen Rechner
(Arbeitskollege, Bekannter) zu testen bzw. testen zu lassen?
Gruß
Reinhard