Fout 91 Object variabele of blok variabele With is niet ingesteld

[sim1]

Ik krijg fout 91 als ik de volgende macro (een voorbeeld uit de helpfunctie van excel VBA) laat lopen. Deze macro vervangt alle 2tjes in kolom a door 5 jes. Op zich worden alle 2tjes goed vervangen maar aan het einde van deze vervanging krijg ik de foutcode.
Wie weet een oplossing?

Sub vervang2door5()
Dim c As Range
Dim firstaddress As String

With Worksheets(1).Range("a:a")
    Set c = .Find(2, LookIn:=xlValues)

    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing Or c.Address <> firstaddress
    End If
End With

End Sub

 

[Wigi]

Dat is wel raar. Dit zou zonder fout moeten werken, al weet ik niet hoe jouw bestand eruit ziet. Kan je dat even gezipt bijhangen hier?

 

[sim1]

Simpeler kan ik het niet maken

Dat is wel raar. Dit zou zonder fout moeten werken, al weet ik niet hoe jouw bestand eruit ziet. Kan je dat even gezipt bijhangen hier?

Maak een lege sheet.
kies in het menu: Extra; Macro; VisualBasicEditor
kopieer de code naar ThisWorkbook (Algemeen)
Vul kolom A met getallen waaronder ook 2tjes en run de macro.....

Ik gebruik Excel 2002 maar dat moet niet uitmaken.

 

[Ginger]

Als je in deze regel...

Loop While Not c Is Nothing Or c.Address <> firstaddress

...het...

Or c.Address <> firstaddress

...er uit sloopt, doet tie het wel...:thumb:

De reden is dat de object variabele niet ge-'set' is (zie foutmelding) + (volgens mij wordt er de laatste keer géén '2' meer gevonden en dus óók geen 'address'! Er valt dus géén vergelijk meer te maken, en klapt de code. Maar ik gok dat Wigi dat wel kan uitleggen wat de echte reden is...)

Groet, Leo

 

[sim1]

Yes!

:thumb: Simpele oplossing, maar werkt wel! Had ik eigenlijk zelf kunnen bedenken... ...maar tja je gaat ervanuit dat voorbeelden goed zijn.

bedankt leo!

 

[Wigi]

.. ...maar tja je gaat ervanuit dat voorbeelden goed zijn.

Dat zou je beter wel doen, ja.

Het is niet de fout van MS dat er in de laatste regel bij jou Or staat en niet And

(En ter info, zulke procedures zet je in een module, niet in ThisWorkbook. Daar komt andere code, bv. code wanneer je het bestand opent of sluit. Je krijgt eenn nieuwe module via Invoegen > Module.)

Wigi

 

[Wigi]

Als je in deze regel...

Loop While Not c Is Nothing Or c.Address <> firstaddress

...het...

Or c.Address <> firstaddress

...er uit sloopt, doet tie het wel...:thumb:

Maar ik gok dat Wigi dat wel kan uitleggen wat de echte reden is...)

Leo

De reden staat al in mijn vorige post, maar je moet eens deze code hieronder uitvoeren. Ik laat het aan jou over om vast te stellen wat er gaande is. Dit krijg je als je jouw voorstel doet...

Sub MsgboxGeven()

Dim c As Range
Dim firstaddress As String

With Worksheets(1).Range("a:a")
    Set c = .Find(2, LookIn:=xlValues)

    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            Msgbox c.Row
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
End With

Msgbox "Als je dit te zien krijgt, is het gelukt.", vbCritical

End Sub

Wigi

 

[sim1]

Dat zou je beter wel doen, ja.

Het is niet de fout van MS dat er in de laatste regel bij jou Or staat en niet And

(En ter info, zulke procedures zet je in een module, niet in ThisWorkbook. Daar komt andere code, bv. code wanneer je het bestand opent of sluit. Je krijgt eenn nieuwe module via Invoegen > Module.)

Wigi

Je hebt gelijk, maar het origineel :

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstaddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
End With

Geeft hetzelfde probleem. Of heb je daar ook een verklaring voor.

 

[Wigi]

Geeft hetzelfde probleem. Of heb je daar ook een verklaring voor.

Ik heb het ook gemerkt nu. Ik zou het zo niet direct weten. Ik stel voor dat je het internet wat afzoekt daarnaar.

 

[sim1]

Te snel geoordeeld?

Ik heb het ook gemerkt nu. Ik zou het zo niet direct weten. Ik stel voor dat je het internet wat afzoekt daarnaar.

Ik heb diverse dingen geprobeerd maar die oplossing van Leo werkt wel want je vervangt de 2 door een 5 en daar komt een einde aan. In jouw voorbeeld loop Wigi vervang je niets!Logisch dat hij dan oneindig blijft loopen...:shocked:

 

[Wigi]

Ik heb diverse dingen geprobeerd maar die oplossing van Leo werkt wel want je vervangt de 2 door een 5 en daar komt een einde aan. In jouw voorbeeld loop Wigi vervang je niets!Logisch dat hij dan oneindig blijft loopen...:shocked:

Het is inderdaad niet moeilijk om een oplossing te vinden.

Je zou ook Bewerken > Vervangen kunnen gebruiken, geprogrammeerd dan.

Of met een teller die gaat van 1 tot aantal.als(A:A;2) (wel omgezet in VBA-code).

...

Mogelijkheden genoeg.

Maar dat verklaart nog niet waarom de code uit de helpfiles niet werkt. En dát wil ik graag weten.

Wigi

 

[Klijhoofd]

Ik heb dezelfde foutmelding met onderstaande regel:

Set c = .Cells(.Columns(1).Find(cl).Row, .Range("E2:CM2").Find(cl.Offset(, 3)).Column)

Hierbij de gehele macro:

Sub hsv()
Dim cl As Range, c As Range
With Sheets("SOP-ROL")
.UsedRange.Interior.ColorIndex = xlNone
For Each cl In Sheets("Blad7").Columns(2).SpecialCells(2)
If cl.Offset(, 3) <> vbNullString Then
Set c = .Cells(.Columns(1).Find(cl).Row, .Range("E2:CM2").Find(cl.Offset(, 3)).Column)
If Not c Is Nothing Then
c.Interior.ColorIndex = 4
End If
End If
Next cl
End With
End Sub

Op zich doet de macro wat hij moet doen, maar die foutmelding is wel storend...

Weet iemand een oplossing?

 

[frankwannet]

@Klijhoofd: Je breekt in, in een topic van een ander member welke ook nog eens uit 2007 is. Hetgeen niet de bedoeling is op Helpmij.nl
Gaarne zelf een vraag aanmaken. Deze sluit ik.

Succes:thumb: