Ereignisprozedur arbeitet nicht
19.02.2005 20:56:38
Korl
ich habe eine Ereignisprozedur aus dem Forum für meine Zwecke versucht anzupassen.
Es klappt leider mal wieder nicht. ;-((
Diesen Code habe ich versucht anzupassen:
'Allgemeines Modul
Dim oldVal As Variant
'DieseArbeitsmappe
Private Sub Workbook_Open()
oldVal = Sheets("Druck").Range("C2")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
***** diesen Teil habe ich eingefügt ******
If Worksheets("Druck").Range("C2") = 2000 Then
MsgBox ("Das Vorriege Jahr ist nicht vorhanden! ")
End If
If Target.Address = "$C$2" Then
On Error GoTo errorhandler
If Target <> oldVal Then
Application.EnableEvents = False
******* Diesen Teil habe ich eingefügt *********
If Sheets("Druck").Range("C2") > 2000 Then
Sheets("Druck").Range("D1").Copy Destination:=Range("D1")
Sheets("Auswertung").Range("C2").Value = Range("C2") - 1
Sheets("Druck").Range("E2").Select
End If
oldVal = Target
End If
End If
errorhandler:
Application.EnableEvents = True
End Sub
Mit dieser Sub funktioniert alles nach Wunsch:
Sub test()
If Worksheets("Druck").Range("C2") = 2000 Then
MsgBox ("Das Vorriege Jahr ist nicht vorhanden! ")
End If
If Sheets("Druck").Range("C2") > 2000 Then
Sheets("Druck").Range("D1").Copy Destination:=Range("D1")
Sheets("Auswertung").Range("C2").Value = Range("C2") - 1
Sheets("Druck").Range("E2").Select
End If
End Sub
Ich muß vielleicht dazu sagen das es sich in Sheets("Druck") Range("C2") um eine Pivottabelle handelt. Es ist die Seitenanzeige in der ich das Jahr (als Text) verändern möchte.
Kann es sein, dass dadurch kein Ereignis ausgelöst werden kann ?
Gruß Korl