Bereich via VBA überwachen

Helmut · 2017-06-29T14:27:38+00:00

Einem wunderschönen Nachmittag ich möchte in einem Tabellenblatt dem Bereich A1:AH100 überwachen. Sollte in diesem Bereich die Zahlen höher sein als "0", soll eine MsgBox ausgegeben werden. Die Zahlen die höher als 0 sind werden durch eine Formel in diesem Bereich berechnet. Ich steh voll auf dem Schlauch. Hilfe! Danke im Voraus, LG Helmut

Habe jetzt selbst noch einmal ein wenig herumgebastelt..
Folgender Code ist schon aktiv:


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

diese Code berechtigt 3 User Veränderungen in einem ausgewählten Bereich zu tätigen.
Nun möchte ich aber auch im Bereich A41:AH73, dass wenn dort die Zahl größer ist als 0 eine im MsgBox ausgegeben wird.
Vielleicht kann mir jetzt jemand mit einem fertigen Lösungsansatz zur Seite stehen.
Danke im Voraus, LG Helmut

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

Forumthread: Bereich via VBA überwachen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Bereich via VBA überwachen

Forumthread: Bereich via VBA überwachen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread