Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen einfügen schützen

Forumthread: Zellen einfügen schützen

Zellen einfügen schützen
13.03.2009 22:16:43
Mone
Hallo ihr Experten,
eine Frage:
Wie kann ich in einem Tabellenblatt Zeile 1 bis 29 so schützen, dass man keine Zellen mehr einfügen kann.
Alles andere soll erlaubt sein. Auch sollte eine bestimmte Zelle in diesem Bereich, meinetwegen J13 total geschützt sein, da sich darin eine Formel befindet. Kann man hierfür einen Code in VBA ins Tabellenblatt eingeben?
Ich danke schonmal für eure Hilfe.
Grüssli
Mone
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen einfügen schützen
13.03.2009 23:50:46
Oberschlumpf
Hi Mone
Was hältst du von Blattschutz?
Damit wird verhindert, dass sowohl Zellwerte, als eben auch das Einfügen/Löschen von Zeilen/Spalten verhindert wird.
Und wenn im zu schützenden Bereich Zellen sind, dessen Werte du ändern willst/musst, kannst du über Zellen formatieren den Schutz für einzelne Zellen aufheben.
Hilfts?
Ciao
Thorsten
Anzeige
AW: Zellen einfügen schützen
13.03.2009 23:59:24
Mone
Hallo Thorsten
danke für deine Antwort.
Hilft aber nicht. Ich kenne den Umgang mit Blattschutz. Aber wenn ich die Zeilen unterhalb zeile 29 als "nicht geschützt" markiere" erlaubt mir Excel dann dort trotzdem nicht mehr die Funktion "Zeilen einfügen". Aber ich muss ab Zelle 29 Zeilen einfügen, nur darüber darf ich das nicht mehr, da ich durch Formulare/Textfelder bestimmte Zeilen befülle. WEnn diese aber durch "Zeilen einfügen" verschoben werden, dann stimmt das Format nicht mehr. Hm....schade, scheint wohl doch keine Möglichkeit zu geben, als meine Mitarbeiter strikt anzuweisen, oberhalb Zeile 29 keine Zeilen einzufügen :-(
Danke trotzdem für deine Antwort.
Gruss
mone
Anzeige
AW: Zellen einfügen schützen
14.03.2009 00:34:58
Oberschlumpf
Hi Mone
Sorry, habe deine Frage nicht richtig gelesen. Den Zusatz Alles andere soll erlaubt sein, hatte ich "übersehen".
Hab mit Hilfe von Google diese Lösung erstellt:
https://www.herber.de/bbs/user/60300.xls
In meinem Bsp musst du eine Hilfsspalte verwenden, die bei jeder Zellwertänderung auf korrekten Inhalt überprüft wird - dazu gehört auch Zeilen löschen&einfügen, was ja verhindert werden soll.
Wenn, wie im Bsp, die Spalte H NICHT als Hilfsspalte verwendet werden kann, dann musst du den Code entsprechend anpassen.
Eine Hilfe, welcher Code angepasst werden muss, gibt es in der Bsp-Datei.
Konnte ich nun besser helfen?
Ciao
Thorsten
Anzeige
AW: Zellen einfügen schützen
14.03.2009 12:02:02
Mone
Hallo Thorsten
für deine Mühe danke ich dir herzlich.
Deine Idee ist auch gut, aber für meine Zwecke leider nicht so brauchbar.
Das Blatt ist bei mir eine Rechnung und im oberen Teil sind die kaufmännischen Angaben, wie Bearbeiter, Tel., Kundenadresse, Datum, RE-Nr. etc. . Ab Zeile 29 füge ich die Produkte ein, daher muss ich Zeilen einfügen oder löschen können. Die Daten im oberen Teil werden mittels Formular/VBA eingetragen. Aber ich habe die Zellen damit genau definiert. Die Lösung mit VBA habe ich genommen, um Formeln zu umgehen, die dann ja eventuelle wieder überschrieben werden könnten.
Bei deiner Lösung muss ich wieder Formeln eingeben.
Es ist schwer zu beschreiben, aber ich hoffe, ich habe mich trotzdem einigermassen verständlich ausgedrückt.
Danke nochmal für deine Arbeit!
Gruss
mone
Anzeige
AW: Zellen einfügen schützen
14.03.2009 20:10:45
Oberschlumpf
Hi Mone
Ich bleib zuerst mal bei meinem Code von heute :-)
Denn noch bin sicher, dass der Code auch bei dir funktioniert.
Ich schrieb ja, wenn Spalte H als Hilfsspalte nicht passt, weil diese Spalte schon für deine Werte verwendet wird, dann nimmst du einfach eine andere, komplett leere Spalte - z Bsp Spalze Z - als Hilfsspalte, die, wenn alles funktioniert, ausgeblendet wird, und dann von niemandem gesehen wird.
Wenn Z auch nicht passt, nimmst du eine andere Spalte, die leer ist. Dir stehen mind. 256 Spalten zur Verfügung :-) Oder brauchst du wirklich alle Spalten für deine Werte?
Du kannst uns ja auch mal (d)eine Bsp-Datei zeigen - mit Bsp-Daten.
Dann sehen wir, welche Spalten unbenutzt sind, und können den Code entsprechend anpassen.
Ciao erst mal
Thorsten
Anzeige
AW: Zellen einfügen schützen
15.03.2009 16:54:06
Mone
Hallo Thorsten,
jetzt muss ich mich vor dir verneigen! hab mich nun mal ausführlich mit deiner Methode beschäftigt.....und finde sie genial! ;-) Du hast wirklich Recht, es funktioniert. Natürlich brauch ich nicht alle 256 Spalten. Ich brauche alle Spalten bis S. Hab aber den Testeintrag nun in Spalte 47 gemacht, ganz weit hinten, damit es niemand sieht :-) Die Farbe der Schrift für *testeintrag* hab ich auch unkenntlich gemacht :-)
Es funktioniert tatsächlich supi! Danke für deine grossartige Hilfe!
Bei deinem anderen Code fand ich halt deine Messagebox so elegant :-)
Gruss
mone
Anzeige
AW: Zellen einfügen schützen
15.03.2009 18:55:42
Oberschlumpf
Hi Mone
Nun steh aber wieder auf...zu viel (ver)beugen macht Rückenaua :-)
Und wenn es dir nur um die MsgBox geht, dann tausch deinen Code gegen diesen hier aus:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim liZeile As Integer
For liZeile = 1 To 29
If Cells(liZeile, 8)  "testeintrag" Then
MsgBox "Löschen/Hinzufügen von Zeilen/Spalten in diesem Bereich nicht erlaubt!", _
vbExclamation, "unerlaubter Zugriff"
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
Next
End Sub


Noch ein kleiner Verbesserungsvorschlag:
Du schreibst, dass du nun Spalte 47 als Hilfsspalte verwendest.
Das kann aber bedeuten, dass deine Datei nun auffallend mehr Speicherplatz benötigt, da Excel "denkt", du brauchst 47 Spalten, und speichert eben alle Infos für 47 Spalten - aber du brauchst ja nur 20 Spalten...(A bis S = 1 bis 19 + 1 Hilfsspalte).
Deswegen empfehle ich dir, anstelle von Spalte AU, die Spalte T zu verwenden und auszublenden.
Ausblenden geht, wie folgt:
vorher
Userbild
dann mit Rechtsklick auf den Spaltenkopf T,
und mit Links dann "Ausblenden" anklicken, was so aussieht
Userbild
das Ergebnis sieht so aus
Userbild
Nun sind S und U sichtbar, und T ist ausgeblendet.
Aber natürlich kannst du auch die Schriftfarbe in T gleich der Hintergrundfarbe einstellen.
Funktionierts denn mit der MsgBox nun auch bei dir? :-)
Ciao
Thorsten

Anzeige
AW: Zellen einfügen schützen
16.03.2009 00:09:46
Mone
Hallöchen Thorsten,
deine Lösung funktioniert obergenial :-) !!!
und ich hab mich schon gewundert, warum die Datei immer grösser und grösser wird :-)
Ich hab nur den Text in der MsgBox etwas freundlicher verfasst......aber sonst funktioniert alles einwandfrei!
Dank dir tausendmal für deine Mühe!
Bis bald
und Grüsse
mone
Anzeige
AW: Zellen einfügen schützen
14.03.2009 12:34:12
Mone
Hallo Thorsten....das ist ja witzig....
jetzt hab ich ein wenig weiter gesucht und von dir aus dem Jahr 2007 folgenden Code gefunden.
Ist genial. Das ist ungefähr genau das, was ich suche....allerdings müsste jetzt nur noch möglich sein, dass die Eingaben in Zellen erlaubt sind, eben nur das Hinzufügen und/oder Löschen nicht möglich ist....Kann man in dem Code nicht eine kleine Anpassung machen? ich fummel mal ein wenig rum, vielleicht schaff ich es ja :-)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lbMsg As Byte, liIndex As Integer
If Not Intersect(Target, Range("A1:J29")) Is Nothing Then
If InStr(1, Target.Address, ":") > 0 Or InStr(1, Target.Address, ",") > 0 Then
For liIndex = 1 To Target.Count
If Target(liIndex).Value = "" Then
lbMsg = MsgBox("Löschen eines Wertes in diesem Bereich nicht  _
erlaubt!", vbExclamation, "unerlaubter Zugriff")
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit For
End If
Next
Else
If Target.Value = "" Then
lbMsg = MsgBox("Löschen eines Wertes in diesem Bereich nicht erlaubt!",  _
_
vbExclamation, "unerlaubter Zugriff")
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End If
End Sub


Anzeige
AW: Zellen einfügen schützen
14.03.2009 13:20:30
Gerd
Hallo Mone,
hoffentlich macht keiner fehlerhafte Eingaben, die er korregieren möchte.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Len(Target.value) > 0 Then Application.Goto Cells(1, 1)
End Sub


Gruß Gerd

Anzeige
;

Forumthreads zu verwandten Themen

Kann keine Spalten mehr im Sheet hinzufügen
vux

Hallo,
einfaches Prob. - mein Sheet ist irgendwie von der Spaltenanzahl beschränkt: bin bei Spalte "IV" und kann keine Spalten mehr hinzufügen.
Excel 2003, hab ein Sheet aus SPSS rüberkopiert.
Wie kann ich das fixen? Oder ist Excel in der Tat ab Spalte "IV" zu?
Danke!
08.05.2009 19:12:57
Thread-ID: 1073991
5 Beiträge
Anzeige
zellen einfügen per makro nicht gesperrt
Markus

Hallo Excel-Helfer,
ich bräuchte ein Makro, das kopierte und gesperrte Zellen beim Einfügen in meine Tabelle ungesperrt einfügt.
Beispiel:
ich öffne in excel eine neue Mappe. Alle Zellen sind standardmäßig gesperrt. Wenn ich nun beliebige Zellen kopiere und in meine Excel-Datei ein...
13.09.2009 13:36:33
Thread-ID: 1102399
29 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Anzeige
Einfügen funktioniert nicht
Space

Hallo,
bekomme immer einen Laufzeitfehler9 in der fett markierten Zeile beim ausführen des Codes.
Sub
....
With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy
Workbooks("Data Generator.xls").Sheets("Kundenkontakte").Range("A18").PasteSpecial Paste:=...
26.01.2010 11:35:30
Thread-ID: 1133006
3 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Modul Zeilenhöhe und Zeilenbreite geht nicht mehr
Paul

Hallo,
ich habe ein Problem mit einem Modul. Unter XP und Opice XP hat es noch einwandfrei funktioniert. Nun aber nicht mehr.
Kann jemand helfen?
Paul
--------------------------
Option Private Module
'Zeigt Spaltenbreite und Zeilehhöhe in cm an
'Die gewünschte Spalte...
23.01.2011 09:16:12
Thread-ID: 1196745
6 Beiträge
ich kann keine Spaltenverknüpfung auswählen
j.kanuff


Hallo zusammen,
ich habe das merkwürdige Phänomen, dass nach dem Kopieren einer Spalte das Icon daneben nicht eingeblendet wird, sodaß ich nicht bestimmen kann dass die Spalten verknüpft werden können.
Bei manchen kopierten Spalten wird das Symbol am Spaltenkopf eingeblendet,
b...
26.03.2011 14:54:13
Thread-ID: 1207706
5 Beiträge
Rechtsklick -> Einfügen nicht mehr möglich
Jonathan

Hallo liebe Experten,
ich stehe nun vor einen richtig komischen Problem:
Ich habe eine Excel-Datei mit mehreren Sheets. Die Datei setzt sich aus 4 Datenblättern (4 einzelne Sheets) und mehreren Darstellungssheets zusammen. Die Darstellungssheets besitzen mehrere Checkboxen und Labels.
29.03.2011 11:17:40
Thread-ID: 1208049
3 Beiträge
Anzeige
Mehr als 3 Spalten sortieren NICHT MÖGLICH ?
Mandy

Hallo,
ich will per Makro meine Daten sortieren. Habe mir das mal mit dem Makrorecorder aufgezeichnet und habe die vierte Option manuell dazugefügt. Das funktioniert wohl nicht mit 4 Spalten:
Rows("10:5000").Select
Selection.Sort _
Key1:=Range("A10"), Order1:=xlAscending, _
...
03.05.2011 11:20:15
Thread-ID: 1212814
3 Beiträge
Zeilen auf mehreren Datenblättern einfügen
Kai

Hallo zusammen,
ich habe ein ein Tabellenblatt Verwaltung, darauf befindet sich ein CommanButton1, das ein userform1 aufruft.
Darauf befindet sich ComboBox1 und ComboBox2, sowie CommandButton1.
In ComboBox1 wird die Zeile ausgewählt, wo die neue Zeile eingefügt werden soll.
In C...
01.08.2011 07:32:38
Thread-ID: 1224420
12 Beiträge
kann keine Leerzeile einfügen
olga

Bitte helfen Sie mir ein Fehler zu finden.
an was kann es liegen, wenn die leere Zeile nicht eingefügt werden kann?
14.06.2002 18:03:14
Thread-ID: 128781
3 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

Zellen einfügen schützen in Excel

Schritt-für-Schritt-Anleitung

Um Zellen in einem bestimmten Bereich zu schützen und das Einfügen neuer Zellen zu verhindern, kannst du folgende Schritte ausführen:

  1. Blattschutz aktivieren:

    • Gehe zu „Überprüfen“ in der Menüleiste.
    • Klicke auf „Blatt schützen“. Hier kannst du festlegen, welche Aktionen erlaubt sind.

  2. Bereich schützen:

    • Wähle den Bereich aus, den du schützen möchtest (z.B. Zeile 1 bis 29).
    • Klicke mit der rechten Maustaste und wähle „Zellen formatieren“.
    • Gehe zum Tab „Schutz“ und deaktiviere „Gesperrt“ für die Zellen, die bearbeitet werden dürfen.

  3. VBA-Code hinzufügen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Füge den folgenden Code in das entsprechende Tabellenblatt ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim liZeile As Integer
    For liZeile = 1 To 29
        If Cells(liZeile, 8) <> "testeintrag" Then
            MsgBox "Löschen/Hinzufügen von Zeilen/Spalten in diesem Bereich nicht erlaubt!", _
            vbExclamation, "unerlaubter Zugriff"
            With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
            End With
        End If
    Next
End Sub
  1. Testen:
    • Versuche, Zellen innerhalb des geschützten Bereichs einzufügen. Du solltest eine Fehlermeldung erhalten, die das Einfügen verhindert.

Häufige Fehler und Lösungen

  • Excel lässt keine Zeile einfügen: Wenn du versuchst, eine neue Zeile einzufügen und es nicht funktioniert, stelle sicher, dass der Blattschutz korrekt konfiguriert ist und die richtigen Zellen entsperrt wurden.

  • Excel kann keine neuen Zellen einfügen: Überprüfe die Zellenformatierung. Wenn die Zellen gesperrt sind, kannst du keine neuen Zellen einfügen.

  • Excel zellen einfügen nicht möglich: Möglicherweise ist der Schutz des Blattes zu streng, oder der Bereich ist nicht korrekt definiert. Überprüfe die Einstellungen im Blattschutz.

Alternative Methoden

  • Hilfsspalte verwenden: Du kannst eine Hilfsspalte verwenden, die bei Änderungen überprüft, ob die Eingabe zulässig ist. Diese Methode kann helfen, das Einfügen oder Löschen von Zellen zu verhindern, während andere Eingaben erlaubt sind.

  • Formulare nutzen: Verwende Excel-Formulare, um die Dateneingabe zu steuern. So kannst du sicherstellen, dass nur bestimmte Zellen bearbeitet werden können, während andere geschützt sind.

Praktische Beispiele

  1. Schutz für Rechnungen: Du hast eine Rechnung erstellt, in der die oberen Zeilen für die Kundendaten und die unteren für die Produkte reserviert sind. Du kannst den oben genannten VBA-Code verwenden, um sicherzustellen, dass die Struktur nicht verändert wird.

  2. Datenvalidierung: Füge Datenvalidierung für bestimmte Zellen ein, um sicherzustellen, dass nur bestimmte Werte eingegeben werden können. Dies kann in Kombination mit dem Blattschutz verwendet werden.

Tipps für Profis

  • Verwende aussagekräftige Fehlermeldungen: Gestalte deine MsgBox-Nachrichten freundlich und informativ, damit die Benutzer verstehen, warum ihre Aktion nicht erlaubt ist.

  • Hilfsspalten verstecken: Wenn du Hilfsspalten verwendest, blende sie aus, damit sie die Benutzer nicht ablenken. Dies kann durch Rechtsklick auf die Spaltenüberschrift und Auswahl von „Ausblenden“ erfolgen.

  • Regelmäßige Sicherungen: Mache regelmäßig Sicherungen deiner Excel-Datei, bevor du umfangreiche Änderungen oder Schutzmaßnahmen vornimmst.

FAQ: Häufige Fragen

1. Warum kann ich keine neuen Zellen einfügen? Das Einfügen neuer Zellen kann durch Blattschutz oder durch gesperrte Zellen verhindert werden. Überprüfe deine Einstellungen und entsperre die erforderlichen Zellen.

2. Wie schütze ich nur einen bestimmten Bereich? Du kannst den Blattschutz aktivieren und dann gezielt die Zellen auswählen, die bearbeitet werden dürfen. Stelle sicher, dass die Zellen, die geschützt bleiben sollen, als „Gesperrt“ markiert sind.

3. Welche Version von Excel benötige ich für diese Methoden? Diese Methoden sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und höher. Achte darauf, dass VBA aktiviert ist.

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