Hallo Leute,
Wenn ich:
Private Sub Worksheet_Activate()
Dim i As Long
With Worksheets("Tabelle1")
For i = 17 To 21
If .Cells(i, 17).Value = 0 Then
.Rows(i).Hidden = True
Else
.Rows(i).Hidden = False
End If
Next i
End With
End Sub
in das Modul zu der Tabelle1 eingebe und dann eben auf tabelle1 klicke, dann werden alle Zeilen zwischen 17 bis 21 ausgeblendet, die Zeilen "17", "18" und "19" sollten allerdings nicht ausgeblendet werden, weil sie keine 0 enthalten.
Wer findet den fehler ?
und noch eine sache, ich muss immer extra auf tabelle 1 klicken um das makro auszuführen, gibt es da eine möglichkeit es automatisch (unabhängig von dem klick auf die tabelle 1) durchführen zu lassen ?
Vielen Dank!
|