Bereich via VBA überwachen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim Bereich As Range If Environ("USERNAME") = "P12345" Or _ Environ("USERNAME") = "P2356" Or _ Environ("Username") = "P1111111" Then Exit Sub Set Bereich = Range("A5:AH37") ' Bereich wird überwacht If Intersect(Target, Bereich) Is Nothing Then Else MsgBox "Sie sind nicht berechtigt, änderungen" & vbCr & "am Dienstplan durchzuführen!!!", _ vbOKOnly, "Info:" Application.EnableEvents = False Application.Undo 'Änderungen werden zurückgestellt, außer die von den oben angeführten User`n Application.EnableEvents = True End If End Sub

Jetzt bin ich doch einmal hier:
der Code den du mir zum Schluss geschickt hast funktioniert nur fehlerhaft. Ich habe zum Beispiel in AJ1 eine Zahl eingetragen und es kommt trotzdem eine MsgBox, obwohl diese Zelle nicht mehr im Bereich integriert ist. Ich habe den Code dann einmal in eine neue Arbeitsmappe eingepackt und auch dort läuft der fehlerhaft.
Vielleicht sollte ich noch einmal erklären, was ich genau möchte: ich habe einen Bereich von zB.: A1:P40. Sobald sich nur in diesem Bereich die Zellen die jeweils mit einer Formel belegt ist ändern, möchte ich eine MsgBox ausgeben. In manchen Zellen habe ich#Wert! darin stehen, bis ein Berechnungsschritt vollzogen ist!
Nun, ich hoffe das sich damit noch einmal genau erklärt habe was ich möchte, bzw. wo das Problem liegt.
LG Helmut, danke vorerst

Servus Hajo, Servus Ransi
Danke erstmals für den Hinweis, doch leider hilft mir das auch nach mehreren Versuchen nicht weiter. Nach einigem herumbasteln, habe ich jetzt den Code so weit, dass er halbwegs funktioniert. Nur habe ich jetzt ein Problem mit der 1. MsgBox (Dienstzeitüberschreitung bzw. Ruhezeit), dass sich diese mehrmals öffnet.
Hier einmal der Code:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
For Each Zelle In Range("c41:ah71") 'Überprüft ob im Bereich Zahl "1" steht
If Zelle.Text = "1" Then          'wenn "1" dann MsgBox
MsgBox "Dienstzeit Überschreitung bzw. Ruhezeitunterschreitung!", vbOKOnly, "Achtung"
'Exit Sub
End If
Next
If Environ("USERNAME") = "P1234" Or _
Environ("USERNAME") = "P0123" Or _
Environ("Username") = "P1234567" Then Exit Sub
Set Bereich = Range("A5:AH37") ' Bereich wird überwacht
If Intersect(Target, Bereich) Is Nothing Then
Else
MsgBox "Sie sind nicht berechtigt, änderungen" & vbCr & "am Dienstplan durchzuführen!!!",  _
vbOKOnly, "info:"
Application.EnableEvents = False
Application.Undo  'Änderungen werden zurückgestellt, außer die von den oben angeführten User`n
Application.EnableEvents = True
End If
End Sub

vielleicht kann mir jetzt jemand weiterhelfen.
Vielen herzlichen Dank für eure Mühe, LG Helmut

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread