Bei Aktualisierung von Excel Datei das Change event sperren

  • Excel

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Bei Aktualisierung von Excel Datei das Change event sperren

    Ich habe in Excel mehrere Tabellenblätter (12 Stück also eines für jeden Monat). Nun hole ich mir aus Access die Daten für die Tabelle per Verbindung.
    Dann habe ich eine Funktion eingefügt die nach Änderung einer Zelle etwas macht.
    Nun ändern sich die Zellen ja auch beim Aktualisieren der Daten. Da soll aber meine Überwach nicht drauf reagieren.
    (Aktualisiert wird in Excel bei Daten>Alle Aktualisieren)


    Ein weiteres Problem ist, dass die Prüfung ob der Eintrag erfolgreich war immer sagt, dass er nicht erfolgreich war, ob er es ist.
    Hier stehen also genau die selben Werte.

    Visual Basic-Quellcode

    1. MsgBox ("Fehler:") & vbCr & ("Die Daten wurden evtl. nicht in der Datenbank gespeichert.") & vbCr & ("Bitte selbst vergleich ob die Daten überinstimmen.") & vbCr & ("Das steht in der Datenbank: ") & rs.Fields(DBAttribut) & vbCr & ("Das wurde bei Excel eingegeben: ") & Range(UpdateFeld & c.Row), , ("Fehler beim Aktualisieren")





    Visual Basic-Quellcode

    1. Private Sub Worksheet_Change(ByVal Target As Range)
    2. Dim SQLBack As String
    3. Dim DB As String
    4. Dim Tabelle As String
    5. Dim ID As String
    6. Dim UpdateFeld As String
    7. Dim DBAttribut As String
    9. DB = "\\XXX.accdb" 'Pfad der Datenbank
    10. Tabelle = "Begleitarbeiten_TL_Liste" 'Tabelle in der der Datensatz aktualisiert werden soll
    11. ID = "Y" 'In welcher Spalte die ID steht
    12. UpdateFeld = "L" 'In welcher Spalte das Feld ist was aktualisiert werden soll
    13. DBAttribut = "XXXX" 'So heißt das Feld in der Datenbank das aktualisiert wird
    15. Dim objDatabase As Object 'für SQL Update
    16. Dim sSQL As String 'für SQL Update
    18. Dim Rng As Range, c As Range 'für den Change
    19. Set Rng = Intersect(Target, Range(UpdateFeld & ":" & UpdateFeld)) 'nur in L wird auf Chance überwacht
    20. If Not Rng Is Nothing Then
    21. For Each c In Rng
    22. 'Cells(c.Row, 1).Value = "Changed"
    26. Dim strQuest As String
    27. strQuest = MsgBox("Soll der Namegeändert werden? " & vbCr & _
    28. "Wählen Sie jetzt...", vbYesNo + vbQuestion, "Name ändern")
    29. 'Wenn die Abfrage mit "Nein" bestätigt wird,
    30. 'wird die Prozedur mit dem Befehl "Exit Sub" abgebrochen.
    31. If strQuest = vbNo Then
    32. MsgBox ("Es wurde nichts geändert"), , ("Abbruch")
    33. Exit Sub
    34. End If
    35. 'Es wird geändert
    36. 'MsgBox ("Erkannt wurde Zeile: " & c.Row)
    37. 'MsgBox ("Aktualisiert wird: " & Range("B" & c.Row)) 'Wert aus Spalte B und Zeile c.Row
    41. sSQL = "UPDATE " & Tabelle & " SET " & DBAttribut & " = '" & Range(UpdateFeld & c.Row) & "' WHERE ID =" & Range(ID & c.Row)
    45. Set objDatabase = CreateObject("DAO.DBEngine.120").OpenDatabase(DB)
    46. objDatabase.Execute sSQL, 128
    47. 'Next
    48. 'MsgBox ("JETZT ÄNDERN")
    49. sSQL = "SELECT " & DBAttribut & " FROM " & Tabelle & " WHERE ID =" & Range(ID & c.Row)
    52. Dim rs As Object
    53. Set rs = objDatabase.Openrecordset(sSQL)
    54. 'MsgBox ("Ich weiß noch: " & Range(ID & c.Row))
    55. If Not rs.EOF Then ' Prüfung auf leeres Recordset
    57. 'MsgBox ("Jetzt prüfe ich Db Inhalt: ") & rs.Fields(DBAttribut) & vbCr & ("Mit Excel Zellenwert: ") & Range(UpdateFeld & c.Row)
    59. If rs.Fields(DBAttribut) = " & Range(UpdateFeld & c.Row) & " Then
    60. MsgBox ("Prüfung war erfolgreich. In der DB steht: ") & rs.Fields(DBAttribut)
    61. 'MsgBox ("In der DB steht: ") & rs.Fields(DBAttribut)
    62. Else
    63. MsgBox ("Fehler:") & vbCr & ("Die Daten wurden evtl. nicht in der Datenbank gespeichert.") & vbCr & ("Bitte selbst vergleich ob die Daten überinstimmen.") & vbCr & ("Das steht in der Datenbank: ") & rs.Fields(DBAttribut) & vbCr & ("Das wurde bei Excel eingegeben: ") & Range(UpdateFeld & c.Row), , ("Fehler beim Aktualisieren")
    64. End If
    67. End If
    68. Next
    71. End If
    74. End Sub

    Um es etwas mit Fleisch zu füllen:

    Visual Basic-Quellcode

    1. Private ChangeEventDisabled As Boolean
    3. Private Sub Worksheet_Change(ByVal Target As Range)
    4. If ChangeEventDisabled Then Exit Sub
    5. ' hier der restliche Code
    6. End Sub
    8. Private Sub Aktualisieren_Click
    9. On Error Goto Done
    10. ChangeEventDisabled = True
    11. ' hier der Code, um die Aktualisierung anzustoßen
    12. Done:
    13. ChangeEventDisabled = False
    14. End Sub
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    aggro600 schrieb:

    Ich meine Aktualisieren mit STRG+ALT+F5 also entwerder das ich auf den Button Klicke oder über die Tasten Kombi wobei der Button primär gedrückt wird.
    Das Button_Click-Event heisst so wie der Objektname des Buttons mit angehängtem "_Click" (z.B. Button1_Click).
    Ich kenne in ExcelSTRG+ALT+F5 hat damit nichts zu tun, das ist ein Universal-Shortcut und macht einfach auf alles ein Refresh, was aktualisiert werden kann (PivotTables, QueryTables...).
    Da musst du die Refresh-Events der einzelnen Tables abfangen.
    Bei einer QueryTable wäre das <QueryTable>_AfterRefresh (z.B. QueryTable1_AfterRefresh).
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende