vind.spec

[wilbert1967]

hallo

in een macro doe ik het volgende

Cells.Find(What:="blad ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    Cells.FindNext(After:=ActiveCell).Activate

als "blad " wordt gevonden wil ik weten of het "Blad 1" of "Blad 44" is

in excel opgenomen macro geeft

ActiveCell.FormulaR1C1 = "=SEARCH(""B"",RC[-1],1)"

maar dan komt deze formule de cel waar de cursor staat en dat wil ik niet
hoe op te lossen?


mvg
wilbert

 

[Roncancio]

Sub zoeken()
Range("A1").Value = Cells.Find(What:="blad ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows).Value
End Sub

In cel A1 verschijnt het resultaat van de zoekfunctie.
Is dit wat je bedoelt?

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

hallo

bedankt voor antwoord
het is alleen zo dat ik het antwoord niet zichtbaar in de spreadsheet wil maar dat er in de macro een volgende actie komt

groeten wilbert

 

[Roncancio]

Sub zoeken()
Dim sBl as String

sBl = Cells.Find(What:="blad ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows).Value
End Sub

Via een variabele?
sBl heeft de tekst van het gevonden blad.

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

hallo

deze heb ik al hiermee vind ik in het document de regel waar "blad " staat
maar het gaat nu om
als "blad " is gevonden of het dan "blad 1" of "blad 3" of "blad 44" is


dit omdat bij "blad 1" 13 regels weggegooid moet worden en bij de andere 15 regels

 

[Roncancio]

deze heb ik al hiermee vind ik in het document de regel waar "blad " staat maar het gaat nu om als "blad " is gevonden of het dan "blad 1" of "blad 3" of "blad 44" is

Als je hiermee al de rij hebt gevonden dan heb je toch direct de waarde?:shocked:
Of mis ik iets?

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

nee in de cel staat "blad " met daar achter een nr
en de volg actie is afh. van dit nummer

 

[Roncancio]

nee in de cel staat "blad " met daar achter een nr
en de volg actie is afh. van dit nummer

Aha! Ik begrijp het.

In onderstaande code krijgt lBl de waarde van het getal dat achter Blad staat.

Sub zoeken()
Dim lBl As Long

    lBl = Cells.Find(What:="blad ", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows).Value
    lBl = Trim(Mid(lBl, 5))
        
End Sub

Met vriendelijke groet,


Roncancio

 

[wilbert1967]

dit is het

waarde = Trim(Right(ActiveCell, 10))

dank je voor op weg brengen voor het juiste resultaat te vinden