Bestimmte Zellen nach Eingabe sperren

Philipp · 2014-06-03T07:14:36+00:00

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

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

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

Bestimmte Zellen nach Eingabe sperren

Forumthread: Bestimmte Zellen nach Eingabe sperren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Bestimmte Zellen nach Eingabe sperren

Forumthread: Bestimmte Zellen nach Eingabe sperren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread