Automatische anpassung der Spaltenhöhe
Buser Hansjörg
Hab da mal eine kleine Frage:
Ist es möglich die Höhe der Zelle(n) automatisch anzupassen
wenn zb. im Sverweis ein Zeilenumbruch ist wird diese im
Hauptbereich nur mit der oberen Zeile angezeigt.
Es sollte doch sein das dies Excel selber erkennt.
Gruss Hansjörg
PS: Ich arbeite mit Exel 2000
Monika Weber
> Ist es möglich die Höhe der Zelle(n) automatisch anzupassen
> wenn zb. im Sverweis ein Zeilenumbruch ist wird diese im
> Hauptbereich nur mit der oberen Zeile angezeigt.
> Es sollte doch sein das dies Excel selber erkennt.
Du könntest die Spalte markieren und dann:
- Menüpunkt "Format | Zellen"
- Registerkarte "Ausrichtung" ---> "Zeilenumbruch" aktivieren
--
Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika Weber
------------------------------------------
Microsoft MVP für Excel
http://www.jumper.ch
http://www.jumper.ch/CODEBOOK.htm
Rudolf Hänni
Ich kenne die Datei, die Hansjörg meint, ich habe sie dir mal zugeschickt.
Das Problem mit dem Zeilenumbruch konnte ich bisher auch noch nicht lösen.
Da in besagter Tabelle die einträge immer wieder ändern, funktioniert dein
Vorschlag nicht.
Die Datei funktioniert so: in den ersten 3 Tabellen befinden sich
Dienstpläne. Die meisten Dienste sind Zwei-teilig. Nun hat es aber ein par
wenige Dienst, die drei oder vier- teilig sind.
In der Nächsten Tabelle werden dei Dienste mit der Funktion SVERWEIS
eingetragen. Die Tabelle ist soweit automatisiert, das man nur noch das
Datum und die Nr. des ersten Dienstes eintragen muss.
Wenn nun zum Beispiel der erste Dienst im Juni ein Zweiteiler ist, und dann
der erste Im Juli ein Vierteiler, muss man die Zeilen Höhe immer händisch
anpassen, damit alles angezeigt wird.
Genau das will Hansjörg automatisieren.
Ich hoffe Du hast das Problem verstanden.
Im übrigen Gratuliere ich Dir nachträglich auch noch zum MVP.
Gruss Rudolf
"Monika Weber" <mon...@jumper.ch> schrieb im Newsbeitrag
news:ObbowwAACHA.1940@tkmsftngp04...
Monika Weber
Ist das die Datei, die du mir vor längerer Zeit mal zugeschickt hast?
Mit verschiedenen Farben und so? Ich glaube, ich kann mich noch
erinnern. Leider hab ich sie wohl gelöscht.
Dennoch: Es ist nicht ganz einfach, das Problem nachzuvollziehen.
Normalerweise passt Excel die Zeilenhöhe ja von selbst an, es sei denn,
dass zu viel Text in der Zelle steht. Bei den Spalten muss man nachhelfen.
Das Einzige, was mir dazu noch einfällt, das evtl. helfen könnte,
wäre, dem entsprechenden Tabellenblatt eine Ereignis-Prozedur
zu hinterlegen.
Die könnte so aussehen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows("1:5").AutoFit
End Sub
PS: Danke für die Glückwünsche!
--
Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika Weber
------------------------------------------
Microsoft MVP für Excel
http://www.jumper.ch
http://www.jumper.ch/CODEBOOK.htm
Wolfgang Habernoll
ich kenne diese Datei nicht und verstehe es ev. auch falsch. In einem
simplen Beispiel hab ich das zur Sicherheit mit Sverweis mal nachgestellt
und es *funktioniert* , allerdings bleibt die Zeilenhöhe auf dem Maximum der
Zeilenumbrüche auch wenn man später mal weniger hat, ist aber logisch.
>wenn zb. im Sverweis ein Zeilenumbruch ist wird diese im
>Hauptbereich nur mit der oberen Zeile angezeigt.
wahrscheinlich stand der Cursor nur in der oberen Zeile der Spalte ?
Ich vermute das *nicht* die ganze Spalte markiert war als das
>- Menüpunkt "Format | Zellen"
>- Registerkarte "Ausrichtung" ---> "Zeilenumbruch" aktivieren
ausgeführt wurde, wie Monika es auch beschrieben hat. Das kann ich in meinem
simplen Beispiel nachvollziehen (XL2002)
Ich hoffe das ich das nicht total falsch verstanden habe ..
mfG Wolfgang
Rudolf Hänni
Genau die Datei war es, ist aber schon eine weile her. Damals ging es
hauptsächlich um bedingte Formatierungen und SVERWEIS usw.
Ich denke, es wäre am besten, wenn ich Dir die Fertige Datei nochmal
schicken würde, den es ist schwierig, die Problematik zu erklären.
Bitte gib mir ein OK. dann schicke ich die Datei mit genauen Erklärungen zu
den Problemen.news:uoXxpwBACHA.1340@tkmsftngp04...
Monika Weber
> Genau die Datei war es, ist aber schon eine weile her. Damals ging es
> hauptsächlich um bedingte Formatierungen und SVERWEIS usw.
> Ich denke, es wäre am besten, wenn ich Dir die Fertige Datei nochmal
> schicken würde, den es ist schwierig, die Problematik zu erklären.
> Bitte gib mir ein OK. dann schicke ich die Datei mit genauen Erklärungen
zu
> den Problemen.
Du kannst mir die Datei gerne mal zustellen.
Mal sehen, ob ich helfen kann.
--
Rainer Pflaum
"Buser Hansjörg" schrieb:
ich hatte auch diese Datei mal in Händen. Markiere alle Zeilen (oder das ganze
Blatt), die diese Einträge enthalten. Format > Zellen > Ausrichtung >
Zeilenumbruch.
Lass die Markierung bestehen und > Format > Zeile > optimale Höhe.
Sollte funktionieren.
Gruß
Rainer
Rudolf Hänni
Du hast recht, diese Datei war auch schon bei Dir, allerdings wesentlich
später, wie bei Monika.
Dein Rat ist zwar gut, es setzt aber voraus, das man das bei jeder änderung
wiederholt, weil Excel nicht von alleine Merkt, ob eine Zeile zu hoch oder
zu wenig hoch ist.
Gruss Rudolf
"Rainer Pflaum" <rainer...@cityweb.de> schrieb im Newsbeitrag
news:3CE96111...@cityweb.de...
Thomas Ramel
"Rudolf Hänni" schrieb:
>
> Dein Rat ist zwar gut, es setzt aber voraus, das man das bei jeder änderung
> wiederholt, weil Excel nicht von alleine Merkt, ob eine Zeile zu hoch oder
> zu wenig hoch ist.
Du könntest den Vorgang als Makro aufzeichnen und bei Bedarf laufen
lassen.
Möglicherweise mit dem Worksheet_Change-Ereignis verknüpfen, damit es
bei einer Ändrung 'automatisch' abgeatbeitet wird.
--
Mit freundlichen Grüssen
Thomas Ramel
http://www.4853.ch/Schlesinger
http://www.swissgeo.ch/mapit.php3?www=http//www.4853.ch/Schlesinger&swissgeo_id=241718
Rainer Pflaum
Thomas Ramel schrieb:
ja genau. Nach jeder Änderung oder wenn erforderlich eine Schaltfläche
betätigen.
Gruß Rainer
Rudolf Hänni
Ich habe das Makro aufgezeichnet und die überflüssigen Zeilen gelöscht, und
dann das ganze einem Button zugewiesen.
Das ganze funktioniert einwandfrei, nur mit dem automatisieren klappt es
noch nicht.
Welche befehl muss man untenstehendem Code noch beifügen?
Das Makro soll immer dann ausgeführt werden wenn der Wert in A1 geändert
wird.
Sub Zeilenhöhe()
'
' Zeilenhöhe Makro
' Makro am 21.05.2002 von Hänni Rudolf aufgezeichnet
Range("A4:O34").Select
Selection.Rows.AutoFit
Range("A4").Select
End Sub
Gruss und vielen Dank für die Hilfe Rudolf
"Thomas Ramel" <Schle...@ggs.ch> schrieb im Newsbeitrag
news:3CE9D476...@ggs.ch...
Thomas Ramel
"Rudolf Hänni" schrieb:
>
> Ich habe das Makro aufgezeichnet und die überflüssigen Zeilen gelöscht, und
> dann das ganze einem Button zugewiesen.
> Das ganze funktioniert einwandfrei, nur mit dem automatisieren klappt es
> noch nicht.
> Welche befehl muss man untenstehendem Code noch beifügen?
> Das Makro soll immer dann ausgeführt werden wenn der Wert in A1 geändert
> wird.
Wie wird der Wert in A1 denn geändert?
Wenn von Hand oder direkt per VBA kannst Du das
Worksheet_Change-Ereignis benutzen.
Wenn per Formel, dann müsstest Du etwas mit dem
Worksheet_Calculate-Ereignis basteln.
Klicke im VBA-Editor doppelt auf die gewünschte Tabelle und füge
folgende Zeilen ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Call Zeilenhöhe
End Sub
Nun wird bei einer Änderung in A1 Dein Makro aufgerufen.
Dieses funktioniert im Übrigen auch ohne Select (einer Vorliebe des
Recorders):
Sub Zeilenhöhe()
'
' Zeilenhöhe Makro
' Makro am 21.05.2002 von Hänni Rudolf aufgezeichnet
Range("A4:O34").Rows.AutoFit
End Sub
Rudolf Hänni
Vielen Dank für Deine Mühe, es funktioniert bestens.
Gruss Rudolfnews:3CEA6A63...@ggs.ch...
Monika Weber
> Vielen Dank für Deine Mühe, es funktioniert bestens.
Hey subi, wie ich gerade gelesen habe, hat sich das
Problem, gelöst! Dann brauche ich mich also gar nicht
mehr darum zu kümmern!
Rudolf Hänni
Wer ist subi?
Wie du richtig bemerkst, hat sich das Problem gelöst, Ich Danke Dir trotzdem
für deinen Einsatz.news:OvM4buPACHA.1648@tkmsftngp02...