AW: bei mehreren akt. Tabellenbl. keine Änderung zulas
06.01.2011 23:25:22
Josef
Hallo Bernhard,
probier es mal so.
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private bolStopAction As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not bolStopAction Then
Application.EnableEvents = False
bolStopAction = True
If Application.Caption Like "*Gruppe*" Then
If MsgBox("Achtung!" & vbLf & vbLf & "Tabellen sind gruppiert." & vbLf & vbLf & _
"Wollen Sie den Eintrag auf allen Blättern der Gruppe durchführen?", _
vbInformation + vbYesNo, "Hinweis") = vbNo Then
Application.Undo
End If
End If
End If
Application.OnTime Now + TimeSerial(0, 0, 1), "DieseArbeitsmappe.activateApp"
End Sub
Private Sub activateApp()
Application.EnableEvents = True
bolStopAction = False
End Sub
Gruß Sepp