Wie kann ich das Makro schreiben, dass das Makro automatisch ausgeführt wird, d.h. dass die Spalte ausgeblendet wird, sobald sich der Wert ändert?
Mein Makro lautet bis jetzt:
Sub Ausblenden()
If Range("R9").Value > 1 Then
Columns("H:H").Select
Selection.EntireColumn.Hidden = True
Columns("O:O").Select
Selection.EntireColumn.Hidden = True
Else
Columns("H:H").Select
Selection.EntireColumn.Hidden = False
Columns("O:O").Select
Selection.EntireColumn.Hidden = False
End If
End Sub
Funktioniert auch mit Strg.