SpecialCells funkt nicht über ganze Spalte
Alois
Der gesuchte Code soll mir die Zeilen im gesamten Tabellenblatt ausblenden, wo Spalte C leer ist.
Oder anders herum:
Es sollen nur noch die Zeilen eingeblendet bleiben, wo die Spalte C einen Inhalt hat.
Habe zum Test ein leeres Tabellenblatt genommen und in den Zellen "C4:C6" Zahlen eingetragen.
Wenn ich nun folgenden Code aktiviere, werden mir nur die Zeilen von 1 bis 16000 entsprechend ein-/ausgeblendet. Die Zeilen von 16001 bis 65536 bleiben eingeblendet, obwohl Spalte C ab hier leer ist.
Private Sub HideBlankRows_InOrderOfColumn_C()
Range("C:C").EntireRow.Hidden = False
Range("C:C").SpecialCells(xlCellTypeBlanks).Cells.EntireRow.Hidden = True
End Sub
Liegt dies am Code, an der Funktion "SpecialCells" oder an der Excel-Version?
Für euere Hilfe schon mal vielen Dank im Voraus,
Gruß Alois
Anzeige