Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Klassenmodul unterdrücken

Klassenmodul unterdrücken
10.03.2008 16:53:03
Thomas
Hallo Zusammen
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 gibt’s dann einen Fehler (Laufzeitfehler 13; Typen unverträglich)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klassenmodul unterdrücken
10.03.2008 17:45:00
Uduuh
Hallo,
in Blatteinfügen:
Application.enableevents=False
'Code
Application.enableevents=True
Gruß aus’m Pott
Udo

AW: Klassenmodul unterdrücken
10.03.2008 17:51:00
Thomas
Hei Udo
Das war's?!! Manchmal sucht man schon zu lange......!
Vielen Dank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige