Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spaltenbreite optim. per Button im geschütz. Blatt

Spaltenbreite optim. per Button im geschütz. Blatt
Sascha
Hi Leute!
Ich möchte mit einem Commandbutton die optimale Breite der ersten 3 Spalten schalten. Mein Blatt ist geschützt. Nach dem Öffnen der Datei funktioniert das im Excel2000 immer nur einmal. Wenn ich nochmal klicke, wird der Laufzeitfehler 1004 angezeigt. Was mache ich falsch? Dieser Vorgang müsste im Excel5, Excel7 und Excel9 funktionieren, im Excel10 gehts.

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
Columns("A:C").Select
Selection.Columns.AutoFit
Range("A11").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Vielen dank für die Hilfe!
mfg
Sascha

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

Betreff
Benutzer
Anzeige
AW: Spaltenbreite optim. per Button im geschütz. Blatt
DieterB
Hallo sascha,
ich habe den Code gerade bei mir (Excel2000) getestet und er funzt
einwandfrei.
Kommentiere mal deine letzte Zeile:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
aus und teste es dann nochmal. Wahrscheinlich liegt es daran.
gruß
DieterB
AW: Spaltenbreite optim. per Button im geschütz. Blatt
Sascha
Stimmt, funzt wirklich. Bei mir lag es allerdings daran, dass ich Excel97 & Excel2000 auf einem Win98-System installiert hatte. Unter WinXP gehts.
Danke für die Hilfe.
Sascha
freut mich, gern geschehen. o.T.
22.03.2004 16:08:48
DieterB
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige