Code will nicht
Lorenz
Mit untenstehenden Code funkts in "Worksheet_Change"-Ereignis nicht! Wird die Sub "JedeInB1" aber direkt aufgerufen geht`s einwandfrei. Was ist an dem "Change-Erreignist" falsch oder verkehrt?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("B1")
If Not Intersect(Target, rngBereich) Is Nothing Then
Call JedeInB1
End If
Set rngBereich = Nothing
End Sub
Sub JedeInB1()
Dim Z As Range, A&, boHidde As Boolean, R As Variant
ActiveSheet.Range("a3:a65536").EntireRow.Hidden = True
R = ActiveSheet.Range("b1").Value
For A = 3 To ActiveSheet.Rows.Count Step R
If Not Z Is Nothing Then
Set Z = Union(Z, Rows(A))
Else
Set Z = Rows(A)
boHidde = Z.EntireRow.Hidden = False
End If
Next A
Z.EntireRow.Hidden = boHidde
End Sub
Danke f. d. Mühe(n) & Gruß
Lorenz
Anzeige