Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wertkopie trotz Blattschutz

Forumthread: Wertkopie trotz Blattschutz

Wertkopie trotz Blattschutz
Sören
N'Abend.
Ich habe eine riesige Arbeitsmappe mit verschiedenen Arbeitsblättern. Diese enthalten Text, Zahlen und Diagramme und Formeln und alle Blätter haben einen Blattschutz.
Ich bin auf der Suche nach einer Alternative (die Mappe wird vorher neu abgespeichert) um eine Wertkopie der Blätter zu erstellen. Dabei soll kein Blattschutz mehr bestehen. Mein bisher genutztes Makro verursacht (in anderen Dateien geht es) immer Fehler.
Sub Wertkopie()
Dim I As Integer
For I = 1 To Worksheets.Count
If Worksheets(I).Visible = True Then
With Worksheets(I)
.Activate
.Unprotect ("PW")
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'.Protect ("PW")in Kopie kein Passwortschutz
End With
End If
Next I
End Sub
Der erzeugte Fehler ist ein Laufzeitfehler (1004) - die PasteSpecial Methode des Range-Objektes konnte nicht ausgeführt werden.
Da zu diesem Fehler noch keine weiterführenden Hilfen gefunden werden konnten der Versuch ein alternatives Makro zu bauen, das die gleichen Bedingungen erfüllt. Vielen Dank für eure Hilfe.
Sören
Anzeige
AW: Wertkopie trotz Blattschutz
20.10.2009 18:01:38
Josef
Hallo Sören,
Sub Wertkopie()
  Dim objSh As Worksheet
  Dim rng As Range
  
  For Each objSh In ThisWorkbook.Worksheets
    With objSh
      If .Visible Then
        .Unprotect "PW"
        On Error Resume Next
        Set rng = .UsedRange.SpecialCells(xlCellTypeFormulas)
        On Error GoTo 0
        If Not rng Is Nothing Then rng = rng.Value
      End If
    End With
  Next
  
  Set rng = Nothing
End Sub

ansonsten Tip ich mal auf verbundene Zellen.
Gruß Sepp

Anzeige
Nur halbwegs
20.10.2009 20:40:00
Sören
Hallo Sepp.
Danke erst einmal. Leider geht es nur im ersten Tab.-Blatt. In den Blättern danach zerstört er das ganze Layout.
Verbundene Zellen gibt es; aber diese gibt es auch in den Dateien bei denen es fehlerlos läuft.
naja, würde mich interessieren wie...
20.10.2009 20:53:44
Josef
Hallo nochmal,
... dieser Code das Layout zerstören kann?
Gruß Sepp

Anzeige
AW: naja, würde mich interessieren wie...
20.10.2009 21:13:33
Sören
wie gesagt, im ersten Tab.-Blatt alles perfekt und in den folgenden Blättern sind identische Zahlen überallhin kopiert worden und Texte auch falsch plaziert. Erstaunlich ist, dass der andere Code (ist ja kaum anders) geht. Kann man das "Aufflackern) der Blättern eigentlich auch unterdrücken wenn das Makro durchläuft?
Anzeige
Application.ScreenUpdating = False
21.10.2009 02:55:17
NoNet
Hallo Sören,
mit Application.ScreenUpdating = False deaktiviert man die Bildschirmaktualisierung und verhindert damit das"Flackern". Ganz am Codeende sollte diese wieder aktiviert werden : Application.ScreenUpdating = True
Gruß, NoNet
AW: Application.ScreenUpdating = False
21.10.2009 09:03:20
Sören
Was heißt für dich jetzt Anfang und Ende genau? An welchen Stellen muss das genau rein? Danke.
Anzeige
AW: Application.ScreenUpdating = False
21.10.2009 09:22:44
hary
Hi Sören
NoNet schlaeft vieleicht noch. geht so. 

Sub Wert_Zuweisung()
Dim I As Integer
Application.ScreenUpdating = False
dein code
Next I
Application.ScreenUpdating = True
End Sub

Gruss hary
AW: Application.ScreenUpdating = False
21.10.2009 10:34:02
Sören
dANKE
Info-Box einbauen
21.10.2009 10:43:15
Sören
Kann ich da noch eine Infobox einbauen, dass ein Pop-Up erscheint, wenn die Wertkopie erstellt wurde?
Anzeige
AW: Info-Box einbauen
21.10.2009 10:48:40
hary
Hi Sören
MsgBox "Wertekopie wurde erstellt"
gruss hary
AW: Info-Box einbauen
21.10.2009 10:53:20
Sören
das ja simpel. merci
AW: Wertkopie trotz Blattschutz
20.10.2009 18:02:56
Original
Hi,
Sub Wert_Zuweisung()
Dim I As Integer
For I = 1 To Worksheets.Count
If Worksheets(I).Visible = True Then
With Worksheets(I)
.Unprotect ("PW")
.UsedRange = .UsedRange.Value
End With
End If
Next I
End Sub
mfg Kurt
Anzeige
AW: Wertkopie trotz Blattschutz
20.10.2009 20:42:12
Sören
Hallo Kurt.
Auf der ersten Blick scheint es zu funktionieren. Muss es morgen früh mal in Ruhe und im Detail testen. Danke erst einmal.
;

Forumthreads zu verwandten Themen

Gruppierung trotz Blattschutz
Jürgen

Hallo Leute,
habe hier schon kräftig gestöbert und eigentlich soweit die Lösung zu meinem Problem gefunden.
Ich möchte die Gruppierungsfunktion und die Auto-Filter-Funktion nutzen, auch wenn das Blatt
geschützt ist. Hierzu verwende ich folgenden Code:
Private Sub Workbook_open...
13.08.2008 10:55:00
Thread-ID: 1001434
5 Beiträge
Anzeige
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:16:59
Thread-ID: 1002511
3 Beiträge
Anzeige
Blattschutz führt zu Abbruch !
wulfjack

... das hatte ich noch nie, obwohl ich sicherlich schon viel komplexere Excel-Dateien erstellt habe!
In einer Exceldatei mit 3 Arbeitsblättern ist das erste Arbeitsblatt als "Eingabe" definiert, d.h. von den benutzten Spalten A-N und den Zeilen 1 - 2000, ist nur der Bereich B10-B2000 "unge...
18.08.2008 10:49:05
Thread-ID: 1002519
2 Beiträge
Blattschutz beim Daten einspielen
Tobi

Hallo,
ich habe eine Frage bzgl. einem Makro.
Habe das folgende Makro mit welchem ich Daten aus einer Exceldatei in eine andere importiere. Leider übernimmt es mir auch immer die Formatierung der Zellen. In der Ausgangsdatei ist bei manchen Zellen unter "Zellen formatieren" der Haken f...
19.08.2008 09:18:00
Thread-ID: 1002794
4 Beiträge
Daten importieren (mit Blattschutz)
Marcus

Einen schönen guten Morgen,
ich habe ein kleines Problem...
Ich habe eine Arbeitsmappe (Stundenabrechnung) in der ingesamt 14 Arbeitsblätter vorhanden sind. Alle habe ich einzeln geschützt und nur die Zellen freigegeben, in denen man die Arbeitszeiten eintragen kann. Alles anderen sind...
20.08.2008 09:38:00
Thread-ID: 1003096
2 Beiträge
Anzeige
Blattschutz per Makro
oblivion

Hallo, bei mir steht im Blatt "Gesamt" der folgende Code. Früher war es kein Problem mit hilfe der Befehle unprotect und protect das Blatt "Gesamtdaten" zu schützen. Nur ist der Code etwas größer geworden, bzw. es wird ein weiteres Makro abgespielt. Weiß jemand wie ich mein Makro ändern muss,...
20.08.2008 23:45:00
Thread-ID: 1003339
2 Beiträge
Blattschutz
Gustav

Hallo,
ich möchte ein Blatt schützen, jedoch soll eine Spalte bzw. an einem anderen Bsp lediglich eine Zelle nicht geschützt werden.
Diese Zelle soll lediglich für das Auswählen von Einträgen aus einer Gültigkeitsliste angewählt werden.
Geht das?
Bin für jeden Tipp dankbar.
...
21.08.2008 15:19:00
Thread-ID: 1003526
4 Beiträge
Gruppierung von Blattschutz loslösen
Blattschutz

Hallo,
ich habe mein Tabellenblatt geschützt. Ich möchte aber, dass sich die Gruppierungen in der Tabelle nach Bestehen des Blattschutzes weiterhin öffnen lassen. Dies ist bei meinen Einstellungen nicht der Fall.
Kann mir jemand helfen?
Besten Dank im Voraus.
Gerd
25.08.2008 08:05:17
Thread-ID: 1004360
6 Beiträge
Blattschutz in VBA
Lars

Hallo,
ich möchte beim Klick auf eine CheckBox in Tabellenblatt A (geschützt) etwas in das geschützte Blatt B schreiben lassen. Dafür habe ich in den Code im Makro der CheckBox wie folgt eingebettet:
Private Sub Test
ActiveSheet.Unprotect "123456789"
Worksheets("B").Unprotect "1...
25.08.2008 14:03:00
Thread-ID: 1004449
3 Beiträge
Blinken trotz Blattschutz
Daniela

Hallo,
ich habe folgendes Problem: In meiner Tabelle gibt es zum einen geschützte und freigegebene Breiche ( damit nicht alles geändert werden kann) und zum anderen sollen bestimmte Zellen blinken. Beides funktioniert getrennt wunderbar...aber zusammen eben nicht! Stets ist entweder das gan...
01.09.2008 12:58:49
Thread-ID: 1006408
4 Beiträge
BlattSchutz
Baywatch

Hi
eine kleine Frage ich habe in meiner Datein ein Blatt welches komplett geschützt werden soll, aber die Formeln die im Blatt stehen, sollen trotzdem arbeiten istd as möglich? gleichfalls soll man auf die VBA Programmierung nicht mehr zugreifen können.
Danke und GRuß
Daniel
11.09.2008 11:58:00
Thread-ID: 1009065
9 Beiträge
WKS_Change aktiviert Blattschutz - mit Makro zu ve
Marc81

Hallo Zusammen,
Ich habe das Problem, dass ich eine Tabelle mit Blattschutz habe. Auf dieser ändert aber folgendes Makro die Zellen-Farbe, wofür ich den Passwortschutz deaktiviere und anschließend wieder aktiviere.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...
16.09.2008 07:26:00
Thread-ID: 1009932
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige