Code kürzen/ automatisch/ entflackern

Hallo,
der unten aufgeführte Code blendet Zeilen aus, wenn bestimmte
Zellen den Wert 0 enthalten.
Zwei Fragen dazu:
a) Kann man diesen Code noch kürzen?
b) Das Arbeitsblatt in dem sich der Code befindet, wird
erst dann aktuallisiert wenn ich irgendeine Zelle
anklicke. Geht das nicht auch automatisch?
(Der Wert O steht im Bezug zu einem anderen Blatt)
c) Wenn der Code sich durch die Zellen arbeitet(ich nehne
das mal so) flackert der Bildschirm. Ist das Normal?
Vorab schon mal ein Dankeschön.
LG
Doris


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [e3].Value = 0 Then
Rows("3").EntireRow.Hidden = True
Else
Rows("3").EntireRow.Hidden = False
End If
If [e4].Value = 0 Then
Rows("4").EntireRow.Hidden = True
Else
Rows("4").EntireRow.Hidden = False
End If
If [e5].Value = 0 Then
Rows("5").EntireRow.Hidden = True
Else
Rows("5").EntireRow.Hidden = False
End If
If [e10].Value = 0 Then
Rows("10").EntireRow.Hidden = True
Else
Rows("10").EntireRow.Hidden = False
End If
If [e11].Value = 0 Then
Rows("11").EntireRow.Hidden = True
Else
Rows("11").EntireRow.Hidden = False
End If
If [e12].Value = 0 Then
Rows("12").EntireRow.Hidden = True
Else
Rows("12").EntireRow.Hidden = False
End If
If [e13].Value = 0 Then
Rows("13").EntireRow.Hidden = True
Else
Rows("13").EntireRow.Hidden = False
End If
If [e14].Value = 0 Then
Rows("14").EntireRow.Hidden = True
Else
Rows("14").EntireRow.Hidden = False
End If
If [e15].Value = 0 Then
Rows("15").EntireRow.Hidden = True
Else
Rows("15").EntireRow.Hidden = False
End If
If [e16].Value = 0 Then
Rows("16").EntireRow.Hidden = True
Else
Rows("16").EntireRow.Hidden = False
End If
If [e17].Value = 0 Then
Rows("17").EntireRow.Hidden = True
Else
Rows("17").EntireRow.Hidden = False
End If
If [e18].Value = 0 Then
Rows("18").EntireRow.Hidden = True
Else
Rows("18").EntireRow.Hidden = False
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Long Application.ScreenUpdating = False For i = 3 To 18 If Worksheets("DeineBezugstabelle").Cells(i, 4).Value = 0 Then Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden End If Next i Application.ScreenUpdating = True End Sub

Private Sub Worksheet_Calculate() Dim i As Long Application.ScreenUpdating = False For i = 3 To 18 If Worksheets("HE5").Cells(i, 4).Value = 0 Then Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden End If Next i Application.ScreenUpdating = True End Sub

Private Sub Worksheet_Calculate() Dim i As Long Application.EnableEvents = False Application.ScreenUpdating = False For i = 3 To 18 If Worksheets("HE5").Cells(i, 4).Value = 0 Then Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden End If Next i Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Code kürzen/ automatisch/ entflackern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread