Laufzeitfehler, der gar nicht auftreten darf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...Norman!
Da steht, dass On Error-Anweisungen stets als erste (nach der Deklaration) im Pgm zu stehen haben. Außerdem ist das Ergebnis der udFkt als Variant deklariert. Das ist zwar unerheblich, aber dann ist auch deine 1.Anweisung unsinnig und auch in anderen Fällen (udF As Range) völlig überflüssig, denn das wäre dann ohnehin der Ausgangszustand. Außerdem sind die udF-Argumente automatisch alle als ByRef (d.h., ein übergebenes Objekt würde verändert, wenn es möglich wäre - bei Subroutinen) und bis auf t auch als Variant deklariert. Aber das Alles könnten Compiler und Laufzeitumgebung tolerieren, aber da liegt sicher auch der Unterschied zwischen xl8 und xl11! Es wäre also u.U. angeraten, die Möglichkeit, dass die entsprechenden Zellen nicht gefunden wdn, anderweitig abzufangen. Resume Next kann durchaus sinnvoll sein, aber nicht immer!
Außerdem frage ich mich wie du Arg1 (oXLWsheet) übergibst. Wenn du die udF aus einer Subroutine aufrufst, kannst du sicher ein Objekt übergeben, aus einer Zellformel heraus dürfte das schwieriger sein. Aber das muss ja nicht die Ursache für nicht gefundene Zellen sein. Vielleicht gibt's die ja mitunter wirklich nicht. Das wäre jedenfalls auch interessant zu wissen...
Gruß Luc :-?

Hallo Norman,
läuft einwandfrei.
Jetzt gibt es zei möglichkeiten.
1. Du schleppst in die Prozedur einen unbehandelten Fehler mit, den du mit On Error Goto an eine Sprungadresse verwiesen hast, aber da nicht abarbeitest.
2. In den Optionen des Editors ist unter Allgemein - Unterbrechen bei Fehler - die Option "Bei jedem Fehler" ausgewählt.
Hier noch ein Tipp, wie du so eine Funktion auswertest ohne wieder eine On Error - Anweisung zu benötigen:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function GetCellRange(oXLWsheet As Worksheet, t As XlCellType, Optional t2 As Variant) As Range
    On Error Resume Next
    If Not IsMissing(t2) Then
        Set GetCellRange = oXLWsheet.Cells.SpecialCells(t, t2)
    Else
        Set GetCellRange = oXLWsheet.Cells.SpecialCells(t)
    End If
End Function

Public Sub test()
    Dim objRangeCollection As Collection
    Set objRangeCollection = New Collection
    objRangeCollection.Add GetCellRange(Tabelle1, xlCellTypeConstants)
    If objRangeCollection.Item(objRangeCollection.Count) Is Nothing Then
        MsgBox "Nix gefunden"
    Else
        MsgBox objRangeCollection.Item(objRangeCollection.Count).Address
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	42		10	4
2
3
4
5
6	27
7	71
8	33
9	1
10	43

Laufzeitfehler, der gar nicht auftreten darf

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread