Rowheight afhangelijk van waarde in een cel

[MikeyB]

Hoi allen,

Ik zit met het volgende:
Ik wil met behulp van excell een overzicht maken.
Daarin vul ik een waarde in een cel in, en de rowheight van die cel moet dan veranderen in het aantal dat ik in de cel invul.

Bv getal 20 is rowheight 20 pixels

Kan iemand me hiermee helpen?

 

[ExcelAmateur]

MikeyB,

Kijk even hier, misschien kun je het gebruiken.

 

[MikeyB]

Nou daar gaat het om dat de hoogte van de cell wordt weergegeven,
Ik moet juist andersom. Dat ik een waarde invoer, en dat die waarde bepaald hoe hoog mijn rij wordt.

 

[ExcelAmateur]

Kijk of het hier mee lukt.

Sub H()  
    ActiveCell.RowHeight = ActiveCell.Value
End Sub

 

[MikeyB]

Hij werkt! top, nu moet hij het nog automatisch doen voor de cellen die ik selecteer

 

[Roncancio]

Automatisch voor de geselecteerde cellen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rBereik As Range
    For Each rBereik In Selection
        rBereik.RowHeight = rBereik.Value
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[MikeyB]

Perfect!

 

[Warme bakkertje]

Bv getal 20 is rowheight 20 pixels

Rijhoogte wordt gerekend in Points, jij wil het in Pixels dus dan wordt het
1 Pixel = 0.75 Points

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rBereik As Range
    For Each rBereik In Selection
        rBereik.RowHeight = rBereik.Value * 0.75
    Next
End Sub