OnEntry für alle
02.07.2014 09:35:26
Michael
ich habe insgesamt 8 Tabellen in meiner Mappe und ich möchte gerne, dass alle Tabellen auf bestimmte Einträge sofort reagieren.
Heißt: trage ich in der Tabelle 1 Zelle xy ein Datum ein, möchte ich, dass diese Zeile ausgeblendet wird.
Habe es mit Worksheet_Change versucht, aber nur mit mäßigem Erfolg; die Zeile wird erst ausgeblendet, wenn ich in einer anderen Zelle etwas schreibe.
If ActiveCell.Column = 9 Then
With ActiveSheet.Rows(ActiveCell.Row)
If .Cells(9) "" Then Rows(ActiveCell.Row).Hidden = True
End With
End If
Michael