Zeile ausblenden falls kein Wert
05.02.2009 21:01:00
Leon
Habe untenstehenden Code versucht, komme aber nicht weiter.
Wenn in der Zelle A12 nichts steht, wollte ich erreichen,daß die ganze Zeile automatisch ausgeblendet wird ohne Commandbutton.
Private Sub Worksheets_activate()
If Range("A12").Value = 0 Then
Range("A12").EntireRow.Hidden = True
Else
Range("A12").EntireRow.Hidden = False
End If
End Sub
Was mache ich falsch dabei.
Falls es möglich ist, kann man auch den range erweitern ohne, daß ich jede Zeile mit dem selben Code schreiben muss.
z.b. A12 - A20 und nur die Zeile/n ausblenden die kein Wert haben.
Für Eure Hilfe wäre ich sehr dankbar
Gruß
Leon