Worksheet_SelectionChange
Rainer
Kann man das nachfolgende Makro vereinfachen? Falls Spalten gelöscht oder eingefügt werden,
ist hier immer "Handarbeit" notwendig.
Makro ist dazu da, dass bei Klick auf z.Bsp. Zelle D1 alle Spalten, bis auf D1; nächste Spalte; _
letzte Spalte sowie die ersten 4 Spalten, ausgeblendet werden.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Or Target.Address = "$F$1" Or Target.Address = "$H$1" _
Or Target.Address = "$J$1" Or Target.Address = "$L$1" Or Target.Address = "$N$1" _
Or Target.Address = "$P$1" Or Target.Address = "$R$1" Or Target.Address = "$T$1" _
Or Target.Address = "$V$1" Or Target.Address = "$X$1" Or Target.Address = "$Z$1" _
Or Target.Address = "$AB$1" Or Target.Address = "$AD$1" Or Target.Address = "$AF$1" _
Or Target.Address = "$AH$1" Or Target.Address = "$AJ$1" Or Target.Address = "$AL$1" _
Or Target.Address = "$AN$1" Or Target.Address = "$AP$1" Or Target.Address = "$AR$1" _
Or Target.Address = "$AT$1" Or Target.Address = "$AV$1" Or Target.Address = "$AX$1" _
Or Target.Address = "$AZ$1" Or Target.Address = "$BB$1" Or Target.Address = "$BD$1" _
Or Target.Address = "$BF$1" Or Target.Address = "$BH$1" Or Target.Address = "$BJ$1" _
Or Target.Address = "$BL$1" Or Target.Address = "$BN$1" Or Target.Address = "$BP$1" _
Or Target.Address = "$BR$1" Or Target.Address = "$BT$1" Or Target.Address = "$BV$1" _
Or Target.Address = "$BX$1" Or Target.Address = "$BZ$1" Or Target.Address = "$CB$1" _
Or Target.Address = "$CD$1" Or Target.Address = "$CF$1" Or Target.Address = "$CH$1" _
Or Target.Address = "$CJ$1" Or Target.Address = "$CL$1" Or Target.Address = "$CN$1" _
Or Target.Address = "$CP$1" Or Target.Address = "$CR$1" Or Target.Address = "$CT$1" _
Or Target.Address = "$CV$1" _
Then Call SpaltenAusblenden
End Sub
Sub SpaltenAusblenden()
Application.ScreenUpdating = False
Dim Spalte As Long
Spalte = 4
While Spalte
Gruß, Rainer