Hi Veit,
(10.05.2016, 08:00)Veit schrieb: [ -> ]Sub BereichLöschen()
With Worksheets("ERisk Preise ")
.Range(.Cells(4, 3), .Cells(9, 10)).ClearContents
.Range(.Cells(11, 3), .Cells(16, 10)).ClearContents
.Range(.Cells(18, 3), .Cells(23, 10)).ClearContents
.Range(.Cells(25, 3), .Cells(30, 10)).ClearContents
.Range(.Cells(32, 3), .Cells(37, 10)).ClearContents
.Range(.Cells(39, 3), .Cells(44, 10)).ClearContents
.Range(.Cells(46, 3), .Cells(2439, 10)).ClearContents
.Range(.Cells(4, 14), .Cells(9, 21)).ClearContents
.Range(.Cells(11, 14), .Cells(16, 21)).ClearContents
.Range(.Cells(18, 14), .Cells(23, 21)).ClearContents
.Range(.Cells(25, 14), .Cells(30, 21)).ClearContents
.Range(.Cells(32, 14), .Cells(37, 21)).ClearContents
.Range(.Cells(39, 14), .Cells(44, 21)).ClearContents
.Range(.Cells(46, 14), .Cells(2438, 21)).ClearContents
End With
End Sub
Das könnte so auch gehen:
Code:
Sub BereichLöschen()
With Worksheets("ERisk Preise ")
For I = 4 To 46 Step 7
For J = 9 To 44 Step 7
.Range(.Cells(I, 3), .Cells(J, 10)).ClearContents
.Range(.Cells(I, 14), .Cells(J, 21)).ClearContents
Next J
Next I
.Range(.Cells(46, 3), .Cells(2439, 10)).ClearContents
.Range(.Cells(46, 14), .Cells(2438, 21)).ClearContents
End With
End Sub
Moinsen Rabe,
danke für die Info. Das war aber nicht mein Problem. Ich habe es nur angefügt, damit bekannt ist was noch alles hinterlegt und entsprechend genutzt wird. Vielleich hat es ja damit etwas zu tun.
Danke trotzdem
Hallo Veit,
dass Du beim Öffnen 3x nach dem Schutz gefragt wirst, liegt nicht an diesem Makro. In Deiner Datei muss dann noch irgendwo etwas stehen, was auf irgendeinem Blatt was ändern will. Hast Du denn in DieseArbeitsmappe einen Code? Eventuell müssen einige Blätter ohne Blattschutz bleiben?
Wenn Du in Deiner Mappe Blätter mit unterschiedlichem Passwort bzw auch ohne hast, musst DU das im Code differenzieren. Allerdings bräuchte man dann auch das Passwort dazu.
Wenn das Makro aus dem Beitrag von 16:26 funktioniert hat, muss das eigentlich auch funktionieren. Bei den Blattschutzeinstellungen ist jedenfalls nix anders. Ansonsten müsste man sich mal die Datei anschauen.
Hier mal ein Prinzipbeispiel
Code:
Sub Makro1()
'Variablendeklaation
'String
Dim strPass As String
'Sheet
Dim blaetter As Worksheet
'Schleife ueber alle Tabellenblaetter
For Each blaetter In ThisWorkbook.Worksheets
'Passwort definieren
If blaetter.Name = "Tabelle1" Then strPass = "0815" Else strPass = ""
'Blattschutz aufheben
blaetter.Unprotect Password:=strPass
'Blattschutz mit neuen Einstellungen setzen
blaetter.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowSorting:=True, AllowFiltering:=True, Password:=strPass
'Tabelleneigenschaft Selction zuweisen
blaetter.EnableSelection = xlNoRestrictions
blaetter.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
'Ende Schleife ueber alle Tabellenblaetter
Next
End Sub
Moin, Moin André,
ich gebe es auf, das ist mir zu hoch
, irgendwie funktioniert das nicht.
Ich würde Dir die Datei gerne einmal zukommen lassen, dann kannst Du daran gerne mal testen.
Wie kann ich das machen, wenn Du daran Interesse hast?
Gruß
Veit
Hallo Veit,
Entweder legst Du die Datei auf die box oder Dropbox, wenn Du hast und schickst mir den l
Link per pn oder schreibst mir in der pn Deine Email - Adresse und ich schicke Dir meine...
Moinsen André,
habe ich Dir geschickt.
Danke
Hallöchen,
zur Gliederung noch ein wichtiger Hinweis. Die Datei muss beim ersten mal vor dem Setzen des Blattschutzes mit geöffneten Gliederungen gespeichert werden. Also
- Makro z.B. in DieseArbeitsmappe als WorkBook_Open einfügen
- Gliederungen vollständig öffnen (Blatt ohne Blattschutz lassen!)
- Datei speichern
Dann sollte es ab dem nächsten Öffnen klappen, natürlich nur mit aktivierten Makros ... Der Blattschutz wird gesetzt, die Gliederung ist verwendbar. Und gleich noch ein Hinweis. Die Gliederungspunkte sind nur einzeln schaltbar, jedenfalls unter 2016.