Ausgeblendete Spalten einblenden

[atilla]

Hallo Edgar,

nach rechts scrollen bis Spalten A:D nicht sichtbar sin.
E2 auswählen und Fenster fixieren.

[snb]

Code:

Sub M_snb()
  Sheets(1).Columns.Hidden = False
  ThisWorkbook.Windows(1).FreezePanes = False
  Sheets(1).Range("A4:G4") = Split(Replace(Space(7), " ", "222|"), "|")
  Sheets(1).Columns.AutoFit
End Sub