Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zellen nach Eingabe sperren

Bestimmte Zellen nach Eingabe sperren
03.06.2014 07:14:36
Philipp
Guten Morgen,
ich bin ein Neuling in Sachen VBA. In einer Tabelle (mehrere Benutzer) gibt es bei mir einen Bereich von Spalte Q bis V, in dem Bemerkungen vorgenommen werden können. Nun hätte ich folgendes gerne umgesetzt:
In Spalte V wird ein Name mit der Folge eingetragen, dass lediglich die Zellen Q-V der jeweiligen Zeile gesperrt werden.
Beispiel:
Zeile 5 Eingabe "Testuser" in Spalte V
Ergebnis: Zellen Q5-V5 sind gesperrt. Der Rest der Tabelle bleibt editierbar.
Ist dies mittels VBA umzusetzen? Wenn ja, wäre ich über etwaige Tipps sehr dankbar.
Vielen Dank für eure Tipps.
Gruß Philipp

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 07:22:04
Hajo_Zi
Hallo Philipp,
Den Schutz hast Du ja bei allen Zellen aufgehoben. 
Option Explicit                                     ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                  *
'* 03.06.14                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Columns(22)        ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
Range(Cells(RaZelle.Row, 17), Cells(RaZelle.Row, 22)).Locked = True
End With
Next RaZelle
ActiveSheet.Protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Anzeige
AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 07:32:41
Philipp
Hallo,
vielen Dank für die schnelle! Antwort.:)
Einige Zellen meiner Tabelle sind bereits vorab gesperrt.
Ich habe den Code in die Tabelle eingefügt. Allerdings wird nach einer Eingabe in Spalte V die gesamte Tabelle geschützt und nicht nur die 5 Zellen der Zeile davor.
Kann man dies noch umsetzen?
Nochmals vielen Dank für eure Bemühungen

AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 07:33:55
Hajo_Zi
Zellen kann Du nur schützen, wenn Du die Tabelle schützt, darum mein Hinweis.
Gruß Hajo

AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 11:16:59
Philipp
Ahhhh, jetzt habe ich es verstanden. Nun funktioniert es auch. Eine abschließende Frage habe ich jetzt noch. Auf deiner Homepage habe ich einen VBA-Code "Datum bei Änderung" gefunden. Diesen habe ich an meine Zelle angepasst.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'* H. Ziplies                                  *
'* 16.08.10                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
' wird im definierten Bereich ein Wert geändert,
' wird in der nächsten Spalte das Datum eingetragen
' das Datum wird entfernt falls die Eingabe gelöscht wird
' wird im definierten Bereich eine Eingabe überschrieben
' wird das Datum nicht verändert
Dim RaBereich As Range                          ' Variable fü überwachten Bereich
Dim RaZelle As Range                            ' Variable für Zelle die zur Zeit  _
bearbeitet wird
Set RaBereich = Range("Q5:Q11, Q14:Q21, Q24:Q36, Q50:Q56, Q59:Q66, Q69:Q81, Q95:Q101, Q104: _
Q111, Q114:Q126")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.EnableEvents = False            ' Reaktion auf Eingabe abschalten
Application.ScreenUpdating = False          ' Bildschirm abschalten
For Each RaZelle In RaBereich               ' Schleife über alle veränderten Zellen im ü _
berwachten Bereich
If RaZelle = "" Then
RaZelle.Offset(0, 4).ClearContents  ' Zellinhalt löschen
ElseIf RaZelle.Offset(0, 4) = "" Then
RaZelle.Offset(0, 4) = Now()         ' Datum eintragen, nur bei ersten Eintrag
End If
Next RaZelle
Application.ScreenUpdating = True           ' Bildschirm einschalten
Application.EnableEvents = True             ' Reaktion auf Eingabe einschalten
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub
Gibt es eine Möglichkeit, dass man diese beiden Codes ("Datum bei Änderung" & "Zellschutz") kombiniert?

Anzeige
AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 13:00:55
Hajo_Zi
Ja kopieren diesen Code vor end Sub.
Gruß Hajo

AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 14:46:47
Philipp
Hallo nochmal,
mit diesem Code klappt es so nicht. Durch Excel bekomme ich einen Fehler ausgeworfen. Mehrdeutiger Name wurde erkannt.
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                  *
'* 16.08.10                                    *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de/
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Columns(22)        ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
Range(Cells(RaZelle.Row, 17), Cells(RaZelle.Row, 22)).Locked = True
End With
Next RaZelle
ActiveSheet.Protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range                          ' Variable fü überwachten Bereich
Dim RaZelle As Range                            ' Variable für Zelle die zur Zeit  _
bearbeitet wird
Set RaBereich = Range("Q5:Q11, Q14:Q21, Q24:Q36, Q50:Q56, Q59:Q66, Q69:Q81, Q95:Q101, Q104: _
Q111, Q114:Q126")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.EnableEvents = False            ' Reaktion auf Eingabe abschalten
Application.ScreenUpdating = False          ' Bildschirm abschalten
For Each RaZelle In RaBereich               ' Schleife über alle veränderten Zellen im ü _
berwachten Bereich
If RaZelle = "" Then
RaZelle.Offset(0, 4).ClearContents  ' Zellinhalt löschen
ElseIf RaZelle.Offset(0, 4) = "" Then
RaZelle.Offset(0, 4) = Now()         ' Datum eintragen, nur bei ersten Eintrag
End If
Next RaZelle
Application.ScreenUpdating = True           ' Bildschirm einschalten
Application.EnableEvents = True             ' Reaktion auf Eingabe einschalten
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub


End Sub

Anzeige
AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 15:06:37
Hajo_Zi
Du musst die Zeile 

Private Sub Worksheet_Change(ByVal Target As Excel.Range) und End Sub
löschen die dürfen nur einmal da sein.
Gruß Hajo

AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 15:28:31
Philipp
Die Fehler hören leider nicht auf. Nun heißt der Excel-Fehler:
"Mehrfachselektion im aktuellen Gültigkeitsbereich"
Ich habe alles so geändert wie du gesagt hast. Vielen Dank für deine zahlreichen Tipps. Du bist mir bisher eine große Hilfe.
Gruß Philipp
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Columns(22)        ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
With RaZelle
Range(Cells(RaZelle.Row, 17), Cells(RaZelle.Row, 22)).Locked = True
End With
Next RaZelle
ActiveSheet.Protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
Dim RaBereich As Range                          ' Variable fü überwachten Bereich
Dim RaZelle As Range                            ' Variable für Zelle die zur Zeit  _
bearbeitet wird
Set RaBereich = Range("Q5:Q11, Q14:Q21, Q24:Q36, Q50:Q56, Q59:Q66, Q69:Q81, Q95:Q101, Q104: _
Q111, Q114:Q126")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.EnableEvents = False            ' Reaktion auf Eingabe abschalten
Application.ScreenUpdating = False          ' Bildschirm abschalten
For Each RaZelle In RaBereich               ' Schleife über alle veränderten Zellen im ü _
berwachten Bereich
If RaZelle = "" Then
RaZelle.Offset(0, 4).ClearContents  ' Zellinhalt löschen
ElseIf RaZelle.Offset(0, 4) = "" Then
RaZelle.Offset(0, 4) = Now()         ' Datum eintragen, nur bei ersten Eintrag
End If
Next RaZelle
Application.ScreenUpdating = True           ' Bildschirm einschalten
Application.EnableEvents = True             ' Reaktion auf Eingabe einschalten
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub

Anzeige
AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 15:33:02
Hajo_Zi
Die Variablen müssen nur einmal definiert werden also lösche
Dim RaBereich As Range ' Variable fü überwachten Bereich
Dim RaZelle As Range ' Variable für Zelle die zur Zeit _
bearbeitet wird
Gruß Hajo

AW: Bestimmte Zellen nach Eingabe sperren
03.06.2014 15:36:59
Philipp
Wahnsinn!!! Es funktioniert...
Ich bedanke mich nochmals bei dir :)
Grüße Philipp

302 Forumthreads zu ähnlichen 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
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
3
3
12
2
2
1
2
2
1
6
8
3
6
9
4
8
8
4
10
6
2
6
1