[Excel VBA] Zoeken naar waarde in range

[SierdW]

Ik ben bezig met een klein projectje, wat ik enigsinds wil versnellen mbv een macro. Een groot deel van het maken van de macro lukt mijzelf, echter, op een klein punt loop ik vast.

Ik wil in meerdere Excel documenten zoeken naar kentekens die in een Excel document staan. Deze kentekens waarmee ik ga zoeken hebben allemaal mooi de opmaak AA-BB-11. Echter, in de cellen waarin moet worden gezocht is die opmaak niet zo mooi, daar staat vaak meer text in waardoor code als "if waarde1 = waarde2 then" niet gaat werken. Waarschijnlijk moet dit dus met cells.find. Met deze code lukt het mij echter niet om hier een actie aan te koppelen.

Stel ik wil zoeken naar kenteken AA-BB-11, en in document 4 staat op regel 586 het volgende:
AA-BB-11 | AK LGS AA-BB-11
hoe kan ik dan deze cell selecteren (en vervolgens waarden kopieren). Als het selecteren lukt, dan weet ik me verder wel weer te redden, ik loop nu echter vast en hoop dat iemand me hier met dit 'kleine stapje' kan helpen.

Ik hoop dat het een duidelijk verhaal is geworden

/edit Ik heb zelf ook al zitten denken aan het gebruik van wildcards, maar voor zover ik kan vinden is dit niet mogelijk in bijvoorbeeld de vorm if waarde1 = *waarde2* then, zoiets zou echter voor mij al een oplossing zijn

[ Voor 9% gewijzigd door SierdW op 18-12-2006 16:07 ]

[RobIII]

Je kunt eens kijken naar de Instr functie (kent VBA ook "like" zoals VB6?) of de Like functie
Verder: Waar hoort mijn topic?
PRG >> OFF

[ Voor 6% gewijzigd door RobIII op 18-12-2006 16:51 ]

[BertS]

Je kunt er ook SQL op loslaten

[storeman]

Of gewoon met een Find() of Match() ?

Met behulp van een macro kun je documenten openen en sluiten dus in meerdere files en tabbladen zoeken zal niet zo'n probleem zijn

[CoRrRan]

Zoiets?:

Visual Basic:

Sub FindString()
  
  Dim strFind As String
  Dim rngFind As Range, rngLookUp As Range
  
  strFind = "AA-BB-11"
  
  Set rngLookUp = Range("A1:A100")
  
  Set rngFind = rngLookUp.Find(strFind, LookIn:=xlValues)
  
End Sub

[SierdW]

CoRrRan schreef op dinsdag 19 december 2006 @ 16:38:
Zoiets?:

Visual Basic:

Sub FindString()
  
  Dim strFind As String
  Dim rngFind As Range, rngLookUp As Range
  
  strFind = "AA-BB-11"
  
  Set rngLookUp = Range("A1:A100")
  
  Set rngFind = rngLookUp.Find(strFind, LookIn:=xlValues)
  
End Sub

Zoiets is inderdaad iets wat ik zoek. Er is echter nog wel een kleine uitbreiding nodig, als hij iets vindt moet hij de naastliggende cell kopieren, dus die in kolom B bijvoorbeeld. Hoe kan ik dat stukkie nog combineren in deze code?

[CoRrRan]

SierdW schreef op dinsdag 19 december 2006 @ 18:52:
[...]

Zoiets is inderdaad iets wat ik zoek. Er is echter nog wel een kleine uitbreiding nodig, als hij iets vindt moet hij de naastliggende cell kopieren, dus die in kolom B bijvoorbeeld. Hoe kan ik dat stukkie nog combineren in deze code?

Door bijvoorbeeld hetvolgende toe te voegen tussen regel 10 en 12:

Visual Basic:

dblVar = rngFind.Offset(0, 1).Value

of regel 10 vervangen door:

Visual Basic:

Set rngFind = rngLookUp.Find(strFind, LookIn:=xlValues).Offset(0, 1)

[Lustucru]

SierdW schreef op dinsdag 19 december 2006 @ 18:52:
[...]


Zoiets is inderdaad iets wat ik zoek. Er is echter nog wel een kleine uitbreiding nodig, als hij iets vindt moet hij de naastliggende cell kopieren, dus die in kolom B bijvoorbeeld. Hoe kan ik dat stukkie nog combineren in deze code?

Dit gaat wel erg richting script-requesten en dat houden we liever buiten de deur. Zoek zelf ook wat uit

titelfix: VB bestaat niet in Excel. Dat is VBA. Lijkt op elkaar, is wat anders.