Tabellenblätter auswählen

Martin · 2005-01-27T11:00:24+00:00

In einer Datei möchte ich auf 53 Arbeitsmappen per Makro zugreifen, es soll in jeder Arbeitsmappe das gleiche umgesetzt werden. Zum Beispiel: Es soll in allen 53 Arbeitsmappen die Spalten 10:29 gruppiert werden, danach soll die Arbeitsmappe mit einem Blattschutz versehen werden. Ein kleiner Auszug aus dem Makro: Sheets("KW 53-04").Select ' Mappe wird geöffnet Rows("10:29").Select ' Spalten werden markiert Selection.Rows.Group Selection.EntireRow.Hidden = True ' Spalten werden gruppiert Cells.Select Selection.Locked = True Selection.FormulaHidden = True ActiveSheet.Protect Password:="xxxxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlUnlockedCells Range("A32").Select Für eine kurzfristige Hilfe wäre ich sehr dankbar. Gruß Martin

Hallo Harald,
hast du deine Korrektur getestet oder glaubst du nur das es so funktionieren kann.
Ich habe den Code wie folgt geändert und bekomme immer noch eine Fehlermeldung.
Das Makro bleibt in folgender Zeile stehen, mit einem gelben Pfeil am Zeilenanfang:
"For i = 1 To Worksheets.Count"
Option Explicit


Sub Blattschutz_Woche_setzen()
Application.AskToUpdateLinks = False
Dim i As Integer
Dim MyPath As String
Dim MyWorkbooks As Variant
Dim MyBook As Variant
Dim MyWorkers As Integer
MyPath = "U:\outside\Betriebsstatistik\2005\"
MyWorkbooks = Array("Kopie von Wochenübersicht.xls")
MyBook = MyWorkbooks(MyWorkers)
Workbooks.Open Filename:=MyPath & MyBook
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Rows("10:29").Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="powepibe", DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("A32").Select
Next i
Application.AskToUpdateLinks = True
Workbooks(MyBook).Close SaveChanges:=True
End Sub

Gruß
Martin

Hallo Harald,
leider scheint es wohl doch "the never ending Story" zu sein. Was du mir schreibst verstehe ich leider nicht, da meine VBA Kenntnisse nicht ausreichend sind.
Wie die Arbeitsmappen heissen hatte ich in einer der vorigen Anfragen schon bekannt gegeben führe es aber unten noch einmal auf.
Nun starte ich meinen letzten Versuch mich auszudrücken, sollte das wieder zu flach sein werde ich das Makro einstellen.
Option Explicit


Sub Blattschutz_Woche_setzen()
Application.AskToUpdateLinks = False
Dim i As Integer
Dim MyPath As String
Dim MyWorkbooks As Variant
Dim MyBook As Variant
Dim MyWorkers As Integer
MyPath = "U:\outside\Betriebsstatistik\2005\"
MyWorkbooks = Array("Kopie von Wochenübersicht.xls")
MyBook = MyWorkbooks(MyWorkers)
Workbooks.Open Filename:=MyPath & MyBook
For i = 1 To Worksheets.Count
Worksheets(i).Activate
Rows("10:29").Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect Password:="xxxxxxxx", DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("A32").Select
Next i
Application.AskToUpdateLinks = True
Workbooks(MyBook).Close SaveChanges:=True
End Sub

Die Arbeitsmappen heissen: KW 53-04, KW 1, KW 2, .... KW 52.
Gruß
Martin

Forumthread: Tabellenblätter auswählen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Tabellenblätter effizient auswählen und aktivieren in Excel VBA

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)