Intersect will nicht
12.05.2004 20:03:24
Johannes
Mein Code sieht wie folgt aus. Dabei funktioniert die Deklarierung von "Bereich" nicht. Es wird der Fehler herausgegeben:
"Laufzeitfehler: '1004':
Die Methode 'Intersect' für das Objekt '_Application' ist fehlgeschlagen"
Was läuft da schief?
Schonmal Danke für die Antwort,
Gruß, Johannes
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim Zelle As Range
Dim Blatt As Worksheet
Set Blatt = ThisWorkbook.Worksheets("Klasse2")
Set Bereich = Application.Intersect(Target.Cells, Blatt.UsedRange.Cells)
If Bereich Is Nothing Then
Else
End If
End Sub