Excel VBA Zelle markieren, wenn
10.12.2018 09:53:57
Miracola
Ich habe eine Projekt-Excel-Liste (mit 650 Zeilen), wo der Text in einer Zelle teils zu lang ist, so dass die Zeilenbegrenzung von 409.5 erreicht wurde. Nun möchte ich die Zeilen markieren, welche die max. Zeilenhöhe erreicht haben, so dass ich bei diesen eine zusätzliche Zeile einfügen kann.
Ich habe es bereits versucht, aber irgendein Fehler ist da drin, denn es markiert mir die Felder nicht. PS. Es muss nicht Rot sein, kann auch Gelb markiert werden.
Sub Zeilenhöhe_Maximum_erreicht()
Dim r As Object
Application.ScreenUpdating = False
For Each r In ActiveSheet.UsedRange.Rows
r.EntireRow.AutoFit
If r.RowHeight > 409.5 Then r.Row.Interior.Color = vbRed
Next
Application.ScreenUpdating = True
End Sub
Ach ja, bitte nicht lachen, denn diese Programmierung habe ich aus verschiedenen VBAs vom Internet zusammengebastelt ;)
Vielen Dank und beste Grüsse
Claudia