Klassenmodul Sheet Change erkennen
07.11.2005 14:26:15
chris
Ich möchte erreichen wenn ich das tabellenblatt wechsel das eine msgbox kommt.
Ich weiß es würdee auch ohne klassen gehen aber das ist die übung für mich.
Würde mich freuen wenn ihr mir bei meinem Code helfen könntet.
Vielen Dank
Dim cb As New Klasse
Private Sub Workbook_Open()
Set cb.wechsel = ThisWorkbook.Worksheets
End Sub
klassenmodul:
Public WithEvents wechsel As Worksheet
Sub wechsel_Activate()
MsgBox ("ok")
End Sub