bei mir klappt dies nicht:
"Laufzeitfehler" 1004
With Sheets("Muster")
.Unprotect (getStrPasswort)
' Columns("H:H").Select
Columns("H:H").EntireColumn.AutoFit
Columns("J:J").Select
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").Select
Columns("K:K").EntireColumn.AutoFit
Columns("AJ:AJ").EntireColumn.AutoFit
Columns("AM:AM").EntireColumn.AutoFit
Columns("AN:AN").EntireColumn.AutoFit
Columns("AO:AO").EntireColumn.AutoFit
Columns("AP:AP").EntireColumn.AutoFit
Columns("AQ:AQ").EntireColumn.AutoFit
End With
mfg walter K