Archief - VBA : Cell hoogte in excel

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
C

Councy

Legacy Member
Ola,

ik heb een stukje code dat ervoor zorgt dat mijn cellen zich aanpassen aan de breedte van ingegeven tekst.

Nu zou ik dit willen veranderen zodat de hoogte van de cellen veranderd ipv de breedte.

Code: 
Dim ColWidth As Double

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Application.ScreenUpdating = False
.EntireColumn.AutoFit
If .ColumnWidth <= ColWidth Then
.ColumnWidth = ColWidth
End If
Application.ScreenUpdating = True
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ColWidth = Target.ColumnWidth
End Sub

Als ik deze code verander naar RowHeight dan resized hij niet. Ik denk dat ik ergens iets verkeerd aanroep.

Code: 
Dim Rowheight As Double

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Application.ScreenUpdating = False
.EntireRow.AutoFit
If .Height <= Rowheight Then
.Height = Rowheight
End If
Application.ScreenUpdating = True
End With
End Sub
--------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Height = Target.RowHeight
End Sub

:help:
P

Parnakra

Legacy Member
Code: 
Dim newHeight As Double

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Application.ScreenUpdating = False
.EntireRow.AutoFit
If .RowHeight <= newHeight Then
.RowHeight = newHeight
End If
Application.ScreenUpdating = True
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
newHeight = Target.RowHeight
End Sub

Probeer dit eens.
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan