Hallo MAX,
ich vermute, dass das mit der Zufallszahl da ist, um das Worksheet_Calculate Ereignis unbedingt auszuloesen. Sonst kann es passieren dass der Code nicht startet.
Um den Code auf deine Matrix anzuwenden, die in Spalte W beginnt, muesstest du die Zufallszahl Formal halt in einer unbenutzten Spalte unterbringen. Wo ist eigentlich egal.
Dann den Code so anpassen. Klappt dann bis zur letzten benutzten Zeile (geprueft in Spalte W, also sollte dort ueberall was stehen):
Option Explicit
Private Sub Worksheet_Calculate()
Dim i As Long, Letzte As Long
Letzte = Cells(Rows.Count, 23).End(xlUp).Row
For i = 1 To Letzte
Columns(i + 12).Hidden = Rows(i).Hidden
Next i
End Sub
Gruss Tor
|