worksheet_change mit abschalten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 97/2000
nach unten

Betrifft: worksheet_change mit abschalten
von: peter
Geschrieben am: 30.04.2002 - 12:12:46

hallo excels,
ich möchte diese anweisung mit einem button im tabellenblatt abschalten .ist das überhaupt möglich.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim eintrag As Long
    On Error Resume Next
    If Target.Column = 2 Then
        eintrag = WorksheetFunction.Match(Target.Value, Range("b:b"), 0)
        If eintrag <> Target.Row Then
            Target.Offset(0, 1).Value = Cells(eintrag, 3).Value
            Target.Offset(0, 2).Value = Date
        Else
           MsgBox "Neue Schlüsselnummer !"
        End If
    End If
    On Error GoTo 0

Dim wks As Worksheet
Dim intRow As Integer
   If Target.Column <> 10 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   On Error Resume Next
   Set wks = Worksheets(Target.Value)
   If Err > 0 Or wks Is Nothing Then

     MsgBox "Lager wurde nicht gefunden!"
      Exit Sub
   End If
   On Error GoTo 0
   With wks
      intRow = .Cells(Rows.Count, 2).End(xlUp).Row + 1
      Range(Cells(Target.Row, 1), Cells(Target.Row, 30)) _
      .Copy .Range(.Cells(intRow, 1), .Cells(intRow, 30))
   End With
   Application.EnableEvents = False
   Rows(Target.Row).Delete
   Application.EnableEvents = True
   End Sub

gruss
peter

nach oben   nach unten

Re: worksheet_change mit abschalten
von: Frank p
Geschrieben am: 30.04.2002 - 13:35:24

Hi Peter,
estelle einen Button und weise zu

Application.EnableEvents = False

Du solltest aber die enableevents auch wieder auf True setzen können.

Gruss Frank p


nach oben   nach unten

Re: worksheet_change mit abschalten
von: peter
Geschrieben am: 30.04.2002 - 14:20:34

hi frank,
klappt super, vielen dank du hast mir mächtig geholfen.
gruss
peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "SetFocus funktioniert nur einmal"