Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalte anpassen, klappt nicht

Spalte anpassen, klappt nicht
Walter
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
mach' ma nen Punkt :-)
05.03.2011 14:06:30
Reinhard
Hallo Walter,
Sub tt()
With Sheets("Muster")
.Unprotect (getStrPasswort)
.Range("H:H,J:J,K:K,AJ:AJ,AN:AN,AO:AO,AP:AP,AQ:AQ").EntireColumn.AutoFit
End With
End Sub

Gruß
Reinhard
AW: Spalte anpassen, klappt nicht
05.03.2011 14:12:08
Josef

Hallo Walter,
wenn du mit With arbeitest, darfst du den Punkt (.) natürlich nicht vergessen!
With Sheets("Muster")
  .Unprotect (getStrPasswort)
  .Range("H:H,J:K,AJ:AJ,AM:AQ").EntireColumn.AutoFit
End With


Gruß Sepp

Anzeige
Danke auch Dir Sepp ! -)
05.03.2011 14:20:44
Walter

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige