|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.12.2010 15:44:21 |
Ferdi |
|
|
|
21.12.2010 17:06:58 |
Severus |
|
|
 Aw:Aw:Kommentare,Zellschutz auf mehrere Tabellenbl |
21.12.2010 17:31:40 |
Ferdi |
|
|
|
21.12.2010 18:04:22 |
Severus |
|
|
|
21.12.2010 20:25:52 |
Ferdi |
|
|
Von:
Ferdi |
Datum:
21.12.2010 17:31:40 |
Views:
777 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Kommentare,Zellschutz auf mehrere Tabellenbl |
Severus schrieb am 21.12.2010 17:06:58:
Ferdi schrieb am 21.12.2010 15:44:21:
Hallo Zusammen,
Dank der letzten schnellen Hilfe steigen die Begehrlichkeiten.
Hier mein nächstes Problem: (Excel 2003)
Habe eine Excelmappe mit mehreren Tabellenblätter, benannt 01.01.2011, 02.01.2011 usw.
Auf dem 1. Blatt gibt es Eintragungen, Kommentare, geschützer Bereich und ungeschützter Bereich.
Die Eintragungen auf alle Tabellenblätter zu übertragen bekomme ich noch hin.
Kommentare werden nicht übertragen, Zellenschutz/Blattschutz mit Kennwort wird auch nicht übertragen, selbst aufgezeichnetes Makro funktioniert hier nicht.
Händisch wäre das eine ganz schöne Arbeit.
Kann man das mit VBA lösen ?
-Übertrag von der Kommentare auf alle Tabellenblätter
-übertrag Zellschutz auf alle Tabellenblätter
-Übertrag Blattschutz auf alle Tabellenblätter
Danke
Ferdi
Sub Uebertrag()
Dim LaufZahl As Long
With ThisWorkbook
.Sheets(1).Activate
ActiveSheet.UsedRange.Select
Selection.Copy
For LaufZahl = 2 To .Sheets.Count
.Sheets(LaufZahl).Activate
ActiveSheet.Range("A1").Select
Selection.Paste
Next LaufZahl
For LaufZahl = 1 To .Sheets.Count
.Sheets(LaufZahl).Protect "Passwort", True, True, True
Next LaufZahl
End With
End Sub
Das erste Atbeitsblatt mit den zu kopierenden Daten muß ungeschützt sein.
Das Kennwort für die Arbeitsblätter muß anstelle von "Passwort" eingegeben werden.
Severus
Hallo Severus,
dank für die schnelle Antwort.
Habe den code eingefügt, leider kommt die Meldung:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Vielleicht kannst Du nochmal drüber schauen.
Ferdi
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
21.12.2010 15:44:21 |
Ferdi |
|
|
|
21.12.2010 17:06:58 |
Severus |
|
|
Aw:Aw:Kommentare,Zellschutz auf mehrere Tabellenbl |
21.12.2010 17:31:40 |
Ferdi |
|
|
|
21.12.2010 18:04:22 |
Severus |
|
|
|
21.12.2010 20:25:52 |
Ferdi |
|
|