Fehler Makro Worksheet.Change-Ereignis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Z.B. so...


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
On Error GoTo ErrorHandler
With Worksheets("Liste")
If Not Intersect(Target, .Columns(10)) Is Nothing Then
For Each c In Intersect(Target, .Columns(10)).Cells
If c = "order" Then
If MsgBox("Wurden alle relevanten Dokumente abgelegt?", vbYesNo) = vbYes Then
.Unprotect Password:=("Test")
.Cells(c.Row, 24).Value = "Dokumente abgelegt " & Chr(10) _
& Environ("USERNAME") & " / " & "Datum: " & CStr(Date)
.Protect Password:=("Test")
Else
MsgBox "Bitte lade alle Dokumente in den entsprechenden Ordner", vbOKOnly
Application.EnableEvents = False
c = "request"
Application.EnableEvents = True
End If
End If
Next c
End If
End With
Exit Sub
ErrorHandler:
Application.EnableEvents = True
MsgBox "Unvorhergesehener Fehler" & Chr(10) & Err.Number & Chr(10) & Err.Description
End Sub

cu
Chris

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 10 Then If Target.Value = "order" Then If MsgBox("Wurden alle relevanten Dokumente abgelegt?", vbYesNo) = vbYes Then Sheets("Liste").Unprotect Password:=("Test") Cells(Target.Row, 24).Value = "Dokumente abgelegt " & Chr(10) _ & Environ("USERNAME") & " / " & "Datum: " & CStr(Date) Sheets("PI_Liste").Protect Password:=("Test") Else: MsgBox "Bitte lade alle Dokumente in den entsprechenden Ordner", vbOKOnly Target.Value = "request" End If End If Else: End If End Sub

Hallo nochmal,
der Fehler tritt bei Target.Value = "order" auf. Als Konsequenz auch die beim Löschen in Spalte O nicht erfüllte Bedingung "Target.Column = 10" zu ignorieren ist schon eigenartig von vba. Spalte O ist Column 15, vba könnte sich auch sagen "stimmt nicht", was auch immer bei AND noch kommt, das wird nicht mehr WAHR, also weiter im ELSE-Teil...
Ich hab die Bedingungen einfach voneinander getrennt. Target.Value = "order" wird beim Löschen in Spalte O einfach nicht erreicht und wirft dann auch keinen Fehler.
Chris' Code ist schon schöner im Ganzen, nimm den ;-)
Wie man sowas rauskriegt: Im vba-Editor kannst Du Haltepunkte setzen und mit F8 durch den Code steppen, mit dem Mauszeiger auf Variablen oder bspw. auf Target.Column verharren und bekommst deren momentanen Wert angezeigt. Bei Target.Value wurde nix angezeigt, wenn irgendwo im Blatt mehrere Zellinhalte gelöscht wurden.
VG Michael

Beliebteste Forumthreads (12 Monate)

Fehler Makro Worksheet.Change-Ereignis

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread