Makro Schleife wird übersprungen
Seher
Option Explicit
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim p As Long
'Dim sh As Worksheet
On Error GoTo Fehlerbearbeitung
Application.ScreenUpdating = False
Application.EnabelEvents = False
If Sh.Name = "MDAX" Then
For p = 3 To 60
If Sh.Cells(p, 8) = 1 Then
Sh.Cells(p, 8).EntireRow.Hidden = False
Else
Sh.Cells(p, 8).EntireRow.Hidden = True
End If
Next p
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
Fehlerbearbeitung:
Application.EnableEvents = True
End Sub
Was möchte ich:
1. Filterung der Zeilen nach Spalte H (8 spalte in Excel)
2. Wenn in Spalte H eine 1 berechnet wird, dann Filterung nach 1 (Anzeige der Zeile in der die 1 steht)
3. Sobald durch Berechnung in Spalte 8 die 1 wieder "erlischt", dann Zeile ausblenden.
4. Grundlage für die Berechnung sind Daten welche über einen Server gezogen werden. Durch mich erfolgen
keine manuellen Eingaben.
Mit dem obigen Code, wird jedoch die Filterung nicht mehr durchgeführt. Wenn ich den Code "On Error..."
herausnehme, dann läuft das Programm in einen Endlosschleife und Excel "flackert" nur.
Könnt Ihr mir hierbei helfen dieses Problem zu lösen?
Grüße
Peter