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

Blatt sperren für alle Eingaben

Forumthread: Blatt sperren für alle Eingaben

Blatt sperren für alle Eingaben
19.09.2013 12:16:37
Kai
Hi Forum,
ich suche ein makro, das folgendes bewirkt:
wenn ein Tabellenblatt geöffnet wird, sollen dem Nutzer Änderungen daran nur möglich sein, wenn es das letzte Tabellenblatt in der Arbeitsmappe ist.
Also etwas wie: 
 Private Sub Worksheet_Activate()
If Sheets.Count > ActiveSheet.Index Then
(hier müsste ein Code hin, der Änderungen am Blatt verhindert)...
Die Tabellenblätter enthalten zahlreiche gesperrte und nicht gesperrte Zellen.
Folgende Lösung geht nicht:
Einfach alle Zellen sperren, wenn ein Blatt nicht mehr das letzte ist.
Es soll nämlich durchaus möglich sein, das letzte Blatt wieder zu löschen. Und dann müssen im bisher vorletzten Blatt wieder die gleichen Zellen gesperrt bzw nicht gesperrt sein wie vorher.
Ich hoffe, das klingt jetzt nicht zu verwirrend.
Weiß jemand eine Lösung?
Vielen Dank für Eure Mühe
Kai

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt sperren für alle Eingaben
19.09.2013 12:47:55
Rudi
Hallo,
und wenn die Mappe ohne Makros gestartet wird?
oder ein Blatt einfach nach hinten geschoben wird?
In DieseArbeitsmappe: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Sh.Next Is Nothing Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End Sub

Gruß
Rudi

Anzeige
AW: Blatt sperren für alle Eingaben
19.09.2013 15:40:48
Kai
Hallo Rudi,
vielen Dank für deinen Vorschlag.
Er produziert bei mir de Laufzeitfehler 1004
(Die Methode 'Undo' für das Objekt '_Application' ist fehlgeschlagen).
Umgesetzt habe ich deinen Vorschlag so (in DieseArbeitsmappe): 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Index > 3 Then
If Not Sh.Next Is Nothing Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
End If
End If
End Sub

weil ich die ersten Blätter von der Prüfung ausnehmen wollte.
Hast du ne Ahnung, woran das liegen könnte?
Gruß
Kai

Anzeige
AW: Blatt sperren für alle Eingaben
19.09.2013 12:55:34
fcs
Hallo Kai,
ich weiss nicht ob meine Lösung für dich akzeptabel ist.
Per Makro könnte man dafür sorgen, dass bei aktivierten Makros nur im letzten Register Zellen selektiert werden können.
Bei dem Versuch eine Zelle zu selektieren wird immer automatisch eine bestimmte geschützte Zelle selektiert.
Gruß
Franz 
'Code unter "DieseArbeitsmappe"
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Erlaubt die Selektion von Zellen nur im letzten Tabellenblatt.
If Sh.Index

Anzeige
AW: Blatt sperren für alle Eingaben
19.09.2013 16:45:32
Kai
Hallo Franz,
das klappt super! Ich habe die letzte Codezeile auf 
Application.EnableEvents = True

geändert und jetzt habe ich genau was ich wollte.
Vielen Dank für deine schnelle Hilfe!
Schöne Grüße
Kai
;

Forumthreads zu verwandten Themen

Zellen/Eingabe während Berechnung sperren
Koeffi

Hallo liebe Leute,
ich habe folgendes Problem.
In meinen Sheet werden nach der Auswahl mit einer Combo-Box eine Reihe Berechnungen (SVERWEISE) ausgeführt. Leider werden diese Unterbrechungen unterbrochen, wenn man mit der Maus klickt, oder auf der Tastatur eine Eingabe macht.
Ich wü...
20.08.2008 18:37:26
Thread-ID: 1003277
4 Beiträge
Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Abgleich von Zellenbereichen in 2 versch.Arbeitsbl
Zellenbereichen

Hallo Excel-Anwender,
als Anlage habe ich eine Excel-Datei mit 2.Arbeitsblättern beigefügt. Das 1.Arbeitsblatt heißt Ber.Blatt, das 2. Tabelle 2009. Auf dem 1.Arbeitsblatt ist in Zelle B3 eine Vergütungsbezeichnung angegeben. Im 2.Arbeitsblatt sind in der Spalte A5-A28 ebenfalls Vergütungsb...
21.11.2008 11:54:00
Thread-ID: 1026680
4 Beiträge
Anzeige
Zeilen oder Range mit Makro nach Eingabe schützen
Joachim

Hi,
ist es möglich, dass man in einem Excel Sheet, nachdem man Daten eingegeben hat, einen kompletten Bereich schützt. Die Daten in diesem Bereich sollen sich nicht mehr überschreiben lassen.
Also, es soll kein Blattschutz sein, der das ganze Blatt schützt, sondern nur ein bestimmter Be...
21.11.2008 19:03:28
Thread-ID: 1026815
13 Beiträge
Bestimte Zeichen von Zelleninhalt auswählen
Zelleninhalt

Hallo Excelperten,
ich lese via VBA zwei Tabellen ein und erstelle daraus eine Liste. Ich überprüfe dabei, ob es bei den aktuellen Tabellen Änderungen im Vergleich zur alten Liste gibt und übertrage diese Änderungen. Dazu lese ich den Zelleninhalt (eine Product-ID) aus den einzelnen Zeilen...
08.12.2008 11:07:00
Thread-ID: 1031015
3 Beiträge
verketten unter nutzung von zelleninhalt füllen
zelleninhalt

hallo,
ich stelle derzeit in einer Notenliste die Namen der Schüler zusammen mit dem befehl:
=VERKETTEN('GT-M2 07'!C7&", "&'GT-M2 07'!D7)
wobei GT-M2 07 sich auf eine Namensliste in einem anderen Tabellenblatt bezieht. Dort sind Vor- und Zuname in einzelnen Zellen eingetrage...
21.01.2009 09:00:46
Thread-ID: 1042040
3 Beiträge
Beträge einlesen abhängig von Zellenkombination
Zellenkombination

Hallo Excelfreaks
steht vor folgendem Problem
Ausgangslage: Budgetauswertung, aufgebaut in Spalten Kostenstelle/Konto/€-Wert.
Die Kostenstellen/Kontenkombinationen finden sich in der monatlich erstellen Budgetplanwerten und Istkosten wieder.
In eine Budgetauswertung möchte ich f...
28.01.2009 17:57:00
Thread-ID: 1044655
2 Beiträge
Anzeige
Kopieren von Zellen in Editor
Zellen

Hallo,
wir führen eine Teileliste in Excel, die künftig in regelmäßigen
Abständen in eine txt.-Datei kopiert werden soll.
Problem hierbei sind die Leerstellen im Editor!
Gibt es einen Trick oder eine Möglichkeit den "Satz" so zusammen
zu führen, das immer nur eine Leerstell...
03.02.2009 20:54:00
Thread-ID: 1046784
3 Beiträge
Zelle nach eingabe schützen
Andre

Hallo!!
Ich möchte gern, daß wenn ich in einer Zelle eine Eingabe tätige diese Zelle mit einem Passwort gegen Änderung gesichert wird.
Kann mir da jemand helfen?
Mit freundlichen Grüßen
Andre
05.02.2009 13:55:26
Thread-ID: 1047380
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 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