Zeilen automatisch ausblenden
28.04.2014 17:07:14
Gira
nachdem ihr mir letzte Woche schon super weitergeholfen habt, hab ich noch eine letzte Frage, damit meine Datei so funktioniert, wie ich es mir wünsche.
Der bisherige Code lautet:
Private Sub Worksheet_Calculate()
Static dSaved As Double
Dim lCol As Long
If dSaved Range("AO53").Value Then
dSaved = Range("AO53").Value
For lCol = 9 To 39
Cells(53, lCol).EntireColumn.Hidden = (Cells(53, lCol) = 0)
Next lCol
With ActiveSheet.PageSetup
If Range("A1:AO78").Height > Range("A1:AO78").Width Then
.Orientation = xlPortrait
Else
.Orientation = xlLandscape
End If
End With
End If
End Sub
Jetzt möchte ich, dass zusätzlich zum Ausblenden der o.g. Spalten auch immer ins Tabellenblatt2 geschaut wird und dort alle Zeilen ausgeblendet werden, die aktuell in der Spalte B "NEIN" vermerkt haben.
Wahrscheinlich ganz einfach, oder? Aber wie sage ich's in VBA?
Bereits im Voraus vielen Dank und viele Grüße
girasol