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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel trotz Blattschutz in neue Zeile einfügen

Forumthread: Formel trotz Blattschutz in neue Zeile einfügen

Formel trotz Blattschutz in neue Zeile einfügen
19.01.2018 09:28:07
Sandra
Guten Morgen zusammen,
ich habe eine Excelliste mit ganz vielen Formeln. Diese Formeln sollen gegen Überschreiben geschützt sein. Das erreiche ich mit dem Blattschutz. Dieser verhindert allerdings, dass sich die Formeln nach unten automatisch kopieren, wenn ich neue Zeilen einfüge.
Kann ich das irgendwie umgehen? Kopieren ist beim Blattschutz ja auch keine Alternative.
Wäre toll, wenn Ihr mir helfen könntet.
Vielen Dank & liebe Grüße
Sandra
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel trotz Blattschutz in neue Zeile einfügen
19.01.2018 09:50:21
Werner
Hallo Sandra,
das ist meines Wissens nach über den Blattschutz nicht möglich.
Es wäre aber über ein Ereignismakro des entsprechenden Tabellenblattes möglich.
Mach mal den Blattschutz raus.
Folgendes Makro ins Tabellenblatt auf dem sich deine zu schützenden Formeln befinden.
Rechtsklick auf den Blattreiter - Code anzeigen - Code rechts ins Codefenster kopieren 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then Target.Offset(0, 1).Select
End Sub
Dann ggf. noch ein Makro ins Open Ereignis deiner entsprechenden Mappe. Hierbei wird beim Öffnen der Datei dein Tabellenblatt aktiviert und eine Zelle ausgewählt, die keine Formel enthält. Die Zelle müsstest du an deine Bedürfnisse anpassen. Code gehört ins Codemodul von "DieseArbeitsmappe" 
Private Sub Workbook_Open()
Worksheets("Tabelle2").Activate 'Blattname anpassen
Range("A1").Select 'Zelle ohne Formel wählen
End Sub
Durch die Makros wird geprüft, ob in der selektierten Zelle eine Formel ist, wenn ja, dann wird die Zelle rechts daneben auswgewählt. So wird verhindert, dass Zellen mit Formeln überhaupt ausgewählt werden können.
Gruß Werner
Anzeige
AW: Formel trotz Blattschutz in neue Zeile
19.01.2018 10:04:12
Sandra
Hallo Werner,
das klappt schon super. Jetzt hat die Sache einen Haken. Wenn ich die Tabelle zur Bearbeitung weitergebe, und mein "Mitspieler" Makros nicht aktiviert, greift das Ganze nicht. Gibt es die Möglichkeit, die Makroverwendung zu erzwingen? Also dass sich z. B. das Dokument nur öffnen und/oder bearbeiten lässt, wenn die Makroverwendung aktiviert wurde?
Oder eben eine Alternative ohne VBA? Ich meine ich liebe es schon jetzt. :)
Danke & Gruß
Sandra
Anzeige
AW: UserInterface
19.01.2018 10:17:58
Fennek
Hallo,
ein anderer Ansatz wäre, das Blatt zu schützen mit

activesheet.protect ,,,, True
d.h. nur Änderungen per VBA zuzulassen.
Dann kann per Event-Makro in die Zellen geschrieben werden.
mfg
AW: UserInterface
19.01.2018 10:56:18
Luschi
Hallo Sandra,
eine Spur schärfer als der Vorschlag von Fennek sieht so aus:
Activesheet.Protect True, , , , True
Dann kann man den Blattschutz nur noch per Vba wieder aufheben!
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Gute Idee! owT
19.01.2018 11:26:30
Fennek
AW: Warum geht nicht, Schutz wieder aus?
19.01.2018 11:31:59
Dieter(Drummer)
Hallo Luschi,
dein Vorschlag für Tab. Protect: 
Sub aus()
ActiveSheet.Protect True, , , , True
End Sub

funktioniert. Aber, warum geht der Schutz mit diesem Code nicht wieder aus? 
Sub aus()
ActiveSheet.Protect False, , , , False
End Sub

Gruß, Dieter(Drummer)
Anzeige
AW: Warum geht nicht, Schutz wieder aus?
19.01.2018 11:42:14
Fennek 

Sub aus()
ActiveSheet.UnProtect True
End Sub

AW: Danke Fenneck, perfekt. Gruß owT.
19.01.2018 11:52:16
Dieter(Drummer)
;

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Anzeige
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
Anzeige
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Formel aus formatierten Zellen
Alfa

Hallo!
Ich habe eine Frage, ist es möglich mit Formaten Formel aufzubauen?
Beipiel:: Wenn(A1=schwarz; A2+A3) oder irgend so was.
Könnr Ihr mir einen Typ geben?
Grüße, Peter
16.07.2009 19:10:02
Thread-ID: 1089189
4 Beiträge
Formelwert in anderer Formel verwenden.
Alex

Hey...
Ich stehe vor dem problem dass ich von einem anderen excel tabelle werte einlesen will.
soweit kein problem.
=[Arbeitsnachweiß.xls]Tabelle1!$B$5
so bekomme ich den wert.
ABER, ich möchte dass ich in diese formel statt den fixen namen "Arbeitsnachweiß.xls" wei beim pro...
12.08.2009 10:07:12
Thread-ID: 1095236
7 Beiträge
Werte aus Zellen übernehmen
sanktflorian

Hallo,
Ich möchte gerne Werte aus zellen die auf dem Blatt Ulm I untereinander stehen im Blatt Einzelergebnisse
neben einander stehen lassen.
ich muß jede einzel Zelle anklicken für die Übernahme von Ulm I in Einzelergebnisse
='SSV Ulm I'!T10 ='SSV Ulm I'!T11 ='SSV Ulm I'!T1...
30.08.2009 12:42:27
Thread-ID: 1099404
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Formel trotz Blattschutz in neue Zeile einfügen

Schritt-für-Schritt-Anleitung

  1. Blattschutz entfernen: Zuerst musst Du den Blattschutz aufheben, um die notwendigen Änderungen vorzunehmen. Rechtsklicke auf den Blattreiter und wähle „Blatt schützen“ ab.

  2. Makros erstellen: Füge die folgenden Makros in den VBA-Editor ein:

    • Rechtsklick auf den Blattreiter und wähle „Code anzeigen“. Füge diesen Code ein, um die Auswahl von Zellen mit Formeln zu verhindern:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.HasFormula Then Target.Offset(0, 1).Select
End Sub

    • Um beim Öffnen der Datei eine Zelle ohne Formel auszuwählen, füge diesen Code ins Codemodul von „DieseArbeitsmappe“ ein:

      Private Sub Workbook_Open()
Worksheets("Tabelle2").Activate ' Blattname anpassen
Range("A1").Select ' Zelle ohne Formel wählen
End Sub

  3. Blattschutz wieder aktivieren: Aktiviere den Blattschutz wieder, aber mit den entsprechenden Einstellung, um die Makros zuzulassen:

    ActiveSheet.Protect , , , , True

Häufige Fehler und Lösungen

  • Makros sind deaktiviert: Wenn die Makros bei einem "Mitspieler" nicht funktionieren, stelle sicher, dass diese in den Excel-Einstellungen aktiviert sind. Du kannst die Datei so erstellen, dass sie nur geöffnet werden kann, wenn Makros aktiviert sind.

  • Blattschutz lässt sich nicht aufheben: Wenn Du den Blattschutz mit ActiveSheet.Protect True aktiviert hast, musst Du diesen mit dem entsprechenden Passwort oder durch die Verwendung von VBA aufheben:

    ActiveSheet.UnProtect True

Alternative Methoden

Falls Du ohne VBA arbeiten möchtest, gibt es folgende Alternativen:

  1. Datengültigkeit: Du kannst Datengültigkeitsregeln verwenden, um zu steuern, welche Eingaben in Zellen erlaubt sind. Diese Methode bietet jedoch nicht den gleichen Schutz wie der Blattschutz.

  2. Formeln in geschützten Zellen: Du kannst Formeln in geschützten Zellen belassen und neue Zeilen manuell hinzufügen, ohne die Formeln zu kopieren.

Praktische Beispiele

  • Makro für dynamische Zellauswahl: Wenn Du eine Liste hast, in der sich die Formeln nach unten kopieren sollen, nutze das folgende Makro, um die Auswahl dynamisch zu steuern:

    Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    ' Automatisches Kopieren der Formel in die neue Zeile
    Target.Offset(0, 1).Formula = Target.Offset(-1, 1).Formula
End If
End Sub

  • Schutz mit Passwort: Um den Blattschutz zu verstärken, kannst Du ein Passwort verwenden:

    ActiveSheet.Protect Password:="deinPasswort"

Tipps für Profis

  • Nutze benutzerdefinierte Makros: Erstelle benutzerdefinierte Makros für häufige Aufgaben, um die Effizienz zu steigern.

  • Regelmäßige Backups: Mache regelmäßige Sicherungen Deiner Excel-Dateien, besonders wenn Du mit Makros arbeitest, um Datenverluste zu vermeiden.

  • Dokumentation Deiner Makros: Halte eine Dokumentation für Deine Makros bereit, damit Du und andere Nutzer wissen, was sie tun.

FAQ: Häufige Fragen

1. Kann ich den Blattschutz nur für bestimmte Zellen aktivieren?
Ja, Du kannst Zellen auswählen, die nicht geschützt werden sollen, bevor Du den Blattschutz aktivierst.

2. Wie kann ich sicherstellen, dass alle Benutzer die Makros aktivieren?
Eine Möglichkeit ist, beim Öffnen der Datei eine Nachricht anzuzeigen, die darauf hinweist, dass Makros aktiviert werden müssen, um die Datei korrekt zu verwenden.

3. Gibt es eine Möglichkeit, den Blattschutz zu umgehen?
Ja, durch die Verwendung von Makros, die spezifische Zellen schützen, aber dennoch die Funktionalität erlauben.

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