Hallo zusammen,
ich sitze gerade an einem Projekt, in der ich Entfernungen aus einer symmetrischen Matrix benötige. Diese Matrix enthält die Entfernungen für bspw. 100 Standorte. Ich brauche in der Regel nicht mehr als 10 Standorte. Wenn ich mit diesen 10 Standorten arbeiten möchte, blende ich die Zeilen und somit die entsprechenden Spalten über das folgende Makro aus:
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 + 13).Hidden = Rows(i).Hidden
Next i
End Sub
Gibt es eine Möglichkeit über eine Userform bspw die Standorte einzugeben, die ich benötige und dass dann sämtliche Zeilen und die entsprechenden Spalten ausgeblendet werden?
Ich freue mich auf Tipps und Hilfe!
|