ich möchte in einer Tabelle alle Zeilen, in denen in Spalte A nichts steht, auf Zeilenhöhe 1 bringen. Es gibt schon ein einen Vorschlag dafür, dieser funktioniert aber nicht, da er immer in der ganzen Zeile nachschaut, ob alle Zellen leer sind. In meinem Fall steht das Filterkriterium in Spalte A, in den anderen Spalten steht aber zufällig etwas oder sie sind leer. Hier die leider nicht funktionierende Lösung von Rola aus 2005.
Option Explicit
Sub Zeilehoehe_Leerzeilen()
Dim c As Range
For Each c In Selection.Rows
If Application.CountA(Rows(c.Row)) = 0 Then
c.RowHeight = 5
End If
Next
End Sub
Vielen Dank, Michael