Klassenmodul unterdrücken
10.03.2008 16:53:03
Thomas
Folgendes Problem:
Ich kopiere ein Blattbereich in das aktuelle Arbeistblatt. Das klappt gut. Auf dem einzufügenden Arbeitsblatt (wksZ) ist ein Klassenmodul vorhanden, das eine Zellenprüfung vornimmt und zwar, wenn Spalte H verlassen wird ob einen Wert kleiner 20 vorhanden ist.
Die Prüfung im Klassenmodul ansich funktioniert so. Beim BlattEinfügen wird aber dieses Klassenmodul ausgeführt und dann kommt dieser Fehler.
Weiss jemand, wie man das umgehen kann?
Danke
Thomas
Sub BlattEinfügen()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lZeile As Integer, lZelle As Long
Application.ScreenUpdating = False
Set wksQ = Worksheets("Default")
Set wksZ = Worksheets("Datenblatt")
lZeile = wksZ.Range("A65536").End(xlUp).Row + 1
wksQ.Range("NeuesBlatt").Copy
wksZ.Range("A" & lZeile).PasteSpecial
lZeile = wksZ.Range("A65536").End(xlUp).Row
wksZ.Range(lZeile & ":" & lZeile).RowHeight = 20
Application.CutCopyMode = False 'Zwischenspeicher löschen
Klassenmodul
Private Sub Worksheet_Change(ByVal Target As Range)
Set Bereich = Range("H5:H" & lZeile)
If Intersect(Target, Bereich) Is Nothing Then
Else
If Target.Value => und hier gibts dann einen Fehler (Laufzeitfehler 13; Typen unverträglich)