Laufzeitfehler 13
27.08.2008 20:20:00
Daniela
ich habe folgenden Code ,wo ein nach dem anpassen ein "Laufzeitfehler 13 - Typen unverträglich" auftritt:
Private Sub Workbook_Activate()
If ActiveSheet.Name And BoZustand = False Then ersteFarbe ' Blinken einschalten
End Sub
Private Sub Workbook_Deactivate()
If ActiveSheet.Name Then Ende ' Blinken abschalten
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = Name And BoZustand = False Then ersteFarbe ' Blinken einschalten
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name = Name Then Ende ' Blinken abschalten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name = Name And BoZustand = False Then Ende ' Blinken abschalten
End Sub
Beim Debuggen bleib ich hier stehen:
If ActiveSheet.Name And BoZustand = False Then ersteFarbe ' Blinken einschalten
Wie kann ich das beheben, ohne expizit einen festen Namen für Worksheet zu vergeben, da diese fortlaufend ständig anders sind.
Für Tips oder hinweise bin dankbar.
MfG
Daniela