ich suche nach einer Möglichkeit beim öffnen einer Excel Datei bei leeren Zellen in der Spalte B die gesamte Zeile auszublenden. Dazu habe ich diesen Code gefunden:
Private Sub Workbook_Open()
Dim rngBlnk As Range
On Error Resume Next 'in case no blanks are present...
Set rngBlnk = Range("B1:B4600").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rngBlnk Is Nothing Then
Debug.Print rngBlnk.Address()
rngBlnk.EntireRow.Hidden = False
End If
End Sub
leider funktioniert es nicht weil ich scheinbar Formeln in den Zellen hab. Die formeln sollen bestehen bleiben, da ich hiermit Werte aus anderen Dateien rüber hole falls vorhanden. Wie müsste ich den Code anpassen damit trotz der Formeln leere Zellen (ohne Werte) und damit die gesamte Zeile ausgeblendet wird.Gruß
Michael