Erik, LucB, Ik ben bang dat mijn sheet toch met de beste tijd gaat komen... Het uitzoeken duurde 2 minuten en 19 seconden.
Ik heb de code van
Myrna Larson een ietsje aangepast zodat er niet iedere keer een nieuwe sheet aangemaakt wordt, maar gewoon de oude 'geleegd' en vervolgens met de nieuwe data gevuld. Daarna wordt er een subje van mij aangeroepen die voor het testen op 'CheckSpelling' zorgt.
Op een ietwat knipperende muis na, ben ik niet ontevreden...
Sub TestWord()
Dim Woord As String, Combinatie As String, TestWord As String
Dim iAantalWoorden As Integer, i As Integer, y As Integer
Dim StartTijd As Double
StartTijd = Time
y = 1
iAantalWoorden = Range("A1:" & Range("A1").End(xlDown).Address).Count
MsgBox "Aantal woorden: " & iAantalWoorden & "; Starttijd: " & Format(StartTijd, "hh:mm:ss"), _
vbOKOnly + vbInformation, "Start zoeken..."
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
For i = 1 To iAantalWoorden
Combinatie = Cells(i, 1).Value
Woord = Replace(Combinatie, ", ", "")
If Application.CheckSpelling(Woord) = True Then
Cells(y, 2).Value = Woord
y = y + 1
End If
Application.StatusBar = "Aantal gevonden woorden... " & y - 1 & " (huidige regel: " & i & ")"
Next i
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.StatusBar = False
End With
Cells(1, 3).Value = Format(Time - StartTijd, "hh:mm:ss")
End Sub
voor de aardigheid hou ik in de statusbar nog bij hoeveel 'goede' woorden er gevonden zijn en op welke regel de 'For Next' zit. In kolom B wordt dan het resultaat afgedrukt en in cel C1 komt de tijdsduur.
Ik hoop dat jullie het óók iets vinden... (zie ook bijlage)
Groet, Leo