Bei Finden Fehler abfangen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Harald,
also das mit den 12,34 Sek. hat mich dann doch interessiert, trotz der späten Stunde:
ich habe in einem ansonsten leeren Tabellenblatt die Spalte A mit den Werten "as" geschrieben. Je nach Test kam dann das Wort "Hi"

in Zelle A65536,
in Zelle A2,
in keine Zelle (negatives Suchergebnis).

Meine Versuchsmakros:


Sub test1()
Dim i As Long, t As Single
Dim z As Long
Dim tmp As Long
On Error Resume Next
t = Timer
For i = 1 To 1000 'oder 100000, siehe unten
z = Range("A:A").Find(What:="Hi", LookIn:=xlFormulas, LookAt:=xlWhole).Row
If Err.Number = 0 Then
tmp = tmp + 1
Else
Err.Clear
tmp = tmp - 1
End If
Next i
t = Timer - t
Debug.Print "Test1: " & Round(t, 2) & "Sek."
End Sub
Sub test2()
Dim i As Long, t As Single
Dim z As Range
Dim tmp As Long
t = Timer
For i = 1 To 1000 'oder 100000, siehe unten
Set z = Range("A:A").Find(What:="Hi", LookIn:=xlFormulas, LookAt:=xlWhole)
If Not z Is Nothing Then
tmp = tmp + 1
Else
tmp = tmp - 1
End If
Next i
t = Timer - t
Debug.Print "Test2: " & Round(t, 2) & "Sek."
End Sub

Und hier die Ergebnisse meiner Testläufe:

"Hi" in A65536, i bis 1000
---------------
Test1: 23,75Sek.
Test1: 22,53Sek.
Test1: 22,52Sek.
Test2: 22,48Sek.
Test2: 22,52Sek.
Test2: 22,53Sek.
"Hi" in A2, i bis 100000:
-----------
Test1: 6,44Sek.
Test1: 6,42Sek.
Test1: 6,44Sek.
Test2: 6,11Sek.
Test2: 6,12Sek.
Test2: 6,11Sek.
"Hi" nicht in Spalte A, i bis 1000:
-----------
Test1: 22,44Sek.
Test1: 22,44Sek.
Test1: 22,41Sek.
Test2: 22,44Sek.
Test2: 22,38Sek.
Test2: 22,39Sek.

Die Abfrage auf "Zelle Is Nothing" ist also sogar einen Hauch schneller als die einzeilige Codezeile mit Fehlerabfangen.
Gruß Matthias

Hallo Harald,
Die With-Blockvariable wird Dir nicht weiterhelfen.
Wenn Du z.B. unterschiedliche Eigenschaften eines Objektes immer wieder ansprichst, kann Dir die With-Blockvariable arbeit ersparen. Anstatt z.B. zu schreiben
Activesheet.Range("A1").Value=3
Activesheet.Range("B1").Value=5
kannst Du schreiben
With Activesheet
.Range("A1").Value=3
.Range("B1").Value=5
End With
In diesem Fall ist das natuerlich laenger als der urspruengliche Code, aber wenn Du Activesheet oft aufrufen musst, macht das weniger Arbeit. Ich glaub nicht das Dich das in Deinem Vorhaben weiterbringen wird.
Da Excel nicht weisst ob Du eigentlich solch eine With-Blockvariable ansprechen wolltest, bekommst Du diese Fehlermeldung. Dein Code versucht in einer Double Variable einen nicht vorhandenen Wert zu speichern. Mit Range geht das, mit Double nicht.
Schoene Gruesse
Stefan

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread