Hallo,
Annahme: Deine 10x10 Matrix ist der Zellbereich von A1-J10
In K1: =ZUFALLSZAHL()
Formel bis K10 nach unten ziehen
Spalte K ausblenden
Folgenden Code ins Codemodul des entsprechenden Tabellenblattes:
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren.
Private Sub Worksheet_Calculate()
For i = 1 To 10
Columns(i).Hidden = Rows(i).Hidden
Next i
End Sub
Der Code blendet die zugehörige Spalte aus, sobald die entsprechende Zeile ausgeblendet wird. Beim Einblenden genau das selbe. Ausgeblendete Zeile einblenden, blendet auch die zugehörige Spalte wieder ein.
Gruß Werner
|