Office: Zeilenhöhe abhängig von Zellenwert XY skalieren

Hallo zusammen,

ich möchte gerne erreichen, dass Excel die Zeilenhöhe über einen bestimmten Zeilenbereich, von der Größe eines einzelnen Zellenwertes abhängig, skaliert.

Ich habe mir hier schon einen VBA-Code rausgesucht:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value = 1 Then
Rows("1:1").RowHeight = 30
Else
Rows("1:1").RowHeight = 12.75
End If
End If
End Sub

Nun möchte ich weitere Zeilenhöhen für weitere Werte über 1 hinaus festlegen. Also meinetwegen für Target-Value=2 eine Zeilenhöhe von 40, usw...

Wie müsste ich das syntaktisch einfügen? Eine zusätzliche If Target.Value = 2 (...) Zeile mit anschließendem End If am Ende funktioniert nicht.

Diese Frage ist sicher sehr trivial, ich bitte daher um Nachsicht, ich bin absoluter VBA-Anfänger.

Noch eine vorsorgliche Frage: Ich möchte letztendlich für ca. 170 Werte eine bestimmte Skalierung der Zeilenhöhe festlegen. Ist das prinzipiell möglich oder ist VBA da in irgendeiner Weise begrenzt?

Vielen Dank schonmal!

Gruß

eufrat

:)

 

Moin!

Nö, prinzipiell nicht.
Gibt es eine Logik im Verhältnis Zellenwert zu Höhe?
(Kann man es mittels Formel errechnen?)

Ansonsten entweder ellenlange Select Case Anweisung oder Zugriff auf Verweistabelle in einem ausgeblendeten Blatt.

Gruß Ralf

 

Kommando zurück, mit ein bisschen Tüftelei habe ich es hinbekommen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$10" Then
If Target.Value = 2 Then
Rows("11:184").RowHeight = 240
Else
If Target.Value = 3 Then
Rows("11:184").RowHeight = 160
Else
If Target.Value = 4 Then
Rows("11:184").RowHeight = 120
End If
End If
End If
End If
End Sub

Falls es Einwände gibt, immer her damit!

Gruß eufrat

 

Ja, es gibt eine Logik: Der Wert für die Zeilenhöhe soll immer 480/Zellenwert(B10) sein.

 

Na, dann dürfte folgendes einfacher sein.
Ohne Fehlerbehandlung:

Gruß Ralf

 

Ralf, Du bist ein wahrer Engel. Vielen Dank!

Ich möchte in der selben Tabelle noch ein weiteres Makro ausführen lassen:

Dieses blendet, abhängig von einem anderen Zellenwert (hier bspw. A1), einen Zeilenbereich aus. Das ganze sieht im Ansatz so aus wie im beigefügten Anhang.

Das ganze würde ich jetzt nach der erkennbaren Logik weiterführen bis zum Target Value "174". Für diesen Wert soll keine Zeile ausgeblendet werden, für 173 die Zeile 11, für 172 die Zeilen 11 und 12, für 171 die Zeilen 11, 12, 13 usw. bis runter auf den Wert "2", bei dem dann alle Zeilen von 11 bis 184 ausgeblendet werden sollen. Das mag jetzt etwas verwirrend sein, weil mein VBA-Code bei 2 anfängt und den Wertebereich von 2-174 somit aufsteigend abfragt - Ich hoffe es wird trotzdem klar, was ich meine.

Fällt Dir auch hierfür ein einfacherer Code ein, als jetzt jeden Fall von "2" bis "174" aufzulisten? Grundsätzlich gilt hier ja die Regelmäßigkeit, dass angefangen bei Target.Value "2" für Zeilenausblendung (11:184) für jeden weiteren Wert Target.Value "3,4,5..." immer eine Zeile weniger ausgeblendet werden soll:

Also Rows("11:183").Hidden=True für 3
Rows ("11:182").Hidden=True für 4

u.s.w.

Mir fehlt einfach die notwendige Semantik um so eine Regelmäßigkeit in VBA auszudrücken.

Gruß

eufrat

 

Im Grunde brauche ich ja sinngemäß(!) solch eine Formulierung:

(Siehe Anhang)

Das frisst VBA so natürlich nicht. Kann mir jemand dabei helfen, diesen Code VBA tauglich umzuschreiben?

Gruß

eufrat

 

Wegen Deines Semantikdefizits *mrcool gibt es erst mal nur einen Teaser.
Kannst Du damit etwas anfangen?
Code:

Gruß Ralf

 

Oh je..

Sub x() soll eine Funktion definieren... das & bedeutet eine Verkettung. Woher die 15 kommt, ist mir nicht klar.

Zeile 3 des Codes ist soweit klar... Zeilen von 10 bis i werden ausgeblendet. Doch wie erhalte ich i?

Wo würde ich hier meine Funktion, die mir i liefert, eingeben?

Ich fürchte die Sache scheitert an meinem Unvermögen, die Zeile 2 richtig zu interpretieren. Was sagt diese konkret aus?

Gruß

eufrat

 

Weil Du es bist und ich gerade Zeit und Lust habe. *wink.gif*
Das & ist in dem Fall keine Verknüpfung, sondern ein Kurzzeichen, welches den Datentyp Long festlegt.
Siehe: https://de.wikibooks.org/wiki/VBA_in...Variablentypen

Ich wollte Dir mit diesem Snippet klarmachen, dass der String "11:184" in Rows("11:184") umgangen werden kann, indem man sich des Range-Objekts bedient:
Range(Rows(11), Rows(184)) ist das Gleiche wie Dein Rows("11:184")

Der Vorteil bei meiner Schreibweise ist, dass Du die 184 bei Rows(184) durch eine Variable setzen kannst!

Und nun beginnt die simple Mathematik:
Deine Startzeile ist immer die 11
die Endzeile lässt sich anhand des Targets errechnen
2->184
3->183
4->182
…
100->86

also: 186 - Target

noch mal also: Range(Rows(11), Rows(186 - .Value)).Hidden = True

Gruß Ralf

 

Ok, verstehe..

Leider funktioniert mein Code noch nicht (siehe Anhang). Ich habe Deinen ersten Code genommen und praktisch nur die Then - Zeile durch die neue Anweisung ersetzt. Rein logisch wirkt das für mich schlüssig, aber VBA scheint das anders zu sehen.

Was mache ich falsch? Gewiss eine ganze Menge. Ich kann bei VBA praktisch gar nichts. Ich versuche mit zusammengesuchten Codeschnipseln und Hilfestellungen wie Deiner irgendwie, diese zwei Funktionen hinzukriegen. Die Zeit, mich in VBA einzuarbeiten, um das selbst hinzukriegen, habe ich leider nicht. Aus diesem Grund bin ich zum jetztigen Zeitpunkt auf Hilfe angewiesen. Bitte nicht übel nehmen.

Um mein finales Anliegen schonmal vorneweg zu nehmen: Diese beiden Funktionen, also automatische Zeilenskalierung abhängig von Wert A und die automatische Zeilenausblendung abhängig von Wert B, sollen gleichzeitig in einer Tabelle angewendet werden. Ich hoffe, das ist prinzipiell machbar?

Mit der Bitte um Nachsicht und Gruß

eufrat

 

Ein kurzes Update: Besagter Code funktioniert bedingt.

Bei der Eingabe eines Wertes in A1, nennen wir ihn X, blendet der Code den entsprechenden Bereich brav aus. Bei der nachfolgenden Eingabe geringerer Werte aktualisiert er den Ausblendungsbereich entsprechend - Schön. Wird A1 jedoch mit Werten aktualisiert, die größer sind als der erste eingegebene Wert X, aktualisiert er den Ausblendungsbereich nicht.

Woran könnte das liegen?

Gruß

eufrat

 

Mir wurde geholfen, das Thema ist erledigt!

Gruß

eufrat