|
Prinzipiell könntest Du die IF-Anweisung weglassen und stets auf Spaltenbreite 7 stellen, sobald das Activate-Ereigniss eintritt.
Dann mit folgendem Einzeiler (im Codebereich des Tabellenblatts) zuweisen:
ThisWorkbook.ActiveSheet.Range("O:Q").ColumnWidth = 7
'bzw geht auch
ActiveSheet.Range("O:Q").ColumnWidth = 7
'oder noch kürzer
Range("O:Q").ColumnWidth = 7
|