deel van celinhoud gebruiken

[longron]

Beste alle,

bij het voorbeeld wil ik een deel van de celinhoud gebruiken.

Zodra bij het uitlezen van de Cel de code "PV" wordt gevonden moet er iets gebeuren.
de positie van de "PV" kan verschillend zijn.

Graag jullie advies.

Ronald

 

[edmoor]

In D2 en dan doortrekken:

=ALS.FOUT(ALS(VIND.SPEC("PV";C2)>0;"PV gevonden op positie: " & VIND.SPEC("PV";C2);"");"")

 

[longron]

Hai edmoor,

voor mijn bestand is het nodig om het in VBA te doen omdat er gegevens moeten worden overgezet naar andere tabbladen.
met deze formule kom ik er niet.
in mijn voorbeeld staat een stukje VBA wat ik verder implementeer

thanks voor het meedenken.

 

[edmoor]

Dan zo:

If InStr("PV", Range("C2")) > 0 Then MsgBox "Gevonden"

 

[longron]

Dim ArtsV(5, 1)
Z = 0
Range("C1").Select
For Y = 1 To 10 '200

Znaam = ActiveCell.Value
MsgBox Znaam
If InStr(Znaam, ActiveCell) = "PV" Then Z = Z + 1: MsgBox "Gevonden": ArtsV(Z, 1) = ActiveCell.Offset(0, -1)
ActiveCell.Offset(1, 0).Range("A1").Select

MsgBox ArtsV(Z, 1)
Next Y
End Sub

Is dit dan de bedoeling?
Lijkt niet te werken.

 

[edmoor]

De Instr functie werkt prima, maar je moet hem wel gebruiken zoals in m'n voorbeeld.
Net als die MsgBox maar een voorbeeld is.

 

[HSV]

Instr(waarin, welke tekst)

 

[edmoor]

@HSV:
Net andersom.

En geeft dus een positie terug, niet de gezochte tekst.
Zie mijn voorbeeld.

 

[HSV]

Daar draait de Instr functie om (Long).

Jouw methode is verkeerd.

If InStr("PV", Range("C4")) > 0 Then MsgBox "Gevonden"

De methode zoals het hoort.

If InStr(Range("C4"), "PV")  Then MsgBox "Gevonden"

 

[edmoor]

In dit geval werkt wat ik toonde ook,
Maar je hebt gelijk
En officieel is het Instr(Vanaf positie, Waarin, Welke tekst)
Waarbij de "Vanaf positie" optioneel is.

 

[emields]

Probeer deze eens

 

[HSV]

@edmoor.

Wat jij doet is gelijk aan: if range("c2")=range("c2") → if "PV"="PV"

Doe het maar eens bij range("C4") zoals mijn vorig schrijven.
Daar kom PV ook in voor.
En dan gaat je Instr functie niet goed.

Maakt mij niet uit, maar daarmee komt Ts er niet mee.
De positie is inderdaad optioneel en is in dit geval ook niet nodig.

 

[edmoor]

Wat ik al zei, je hebt gelijk.

 

[longron]

Thanks,

met een kleine aanpassing kam ik weer verder.
eigenlijk is "Pv" steeds wisselend en de cel waarin gezocht moet worden ook.
Afhankelijk van de invoer kan ik nu weer zoeken.

Dit is de basis waarmee ik verder ga:

Sub zoeken()
testwoord = "PV"
Dim ArtsV(5, 1)
Z = 0
Range("C1").Select
For Y = 1 To 10 '200
If InStr(ActiveCell, testwoord) Then Z = Z + 1:  ArtsV(Z, 1) = ActiveCell.Offset(0, -1): MsgBox "Gevonden" & ArtsV(Z, 1)
ActiveCell.Offset(1, 0).Range("A1").Select
Next Y
End Sub

Thanks voor het meedenken.

Groetjes
Ronald

 

[longron]

is er een formule om te kijken of juist een karakter er niet inzit?

Wil bv de Z uitsluiten.

 

[snb]

Vermijd ingebouwde faciliteiten:

Sub M_snb()
   Cells(2, 2).CurrentRegion.AutoFilter 2, "*pv*"
End Sub

Sub M_snb()
   Cells(2, 2).CurrentRegion.AutoFilter 2, "<>*pv*"
End Sub

zie https://www.snb-vba.eu/VBA_Autofilter.html

 

[longron]

Geloof niet dat ik het daarmee red.

ik heb een lijst van 100 cellen en in een aantal cellen staan codes.
Hij moet steeds een cel lezen om vervolgens met die inhoud iets te doen . Hij moet andere gegeven opzoeken in een andere sheet.

 

[snb]

Dan moet je je vraag beter stellen, want dat blijkt tot nog toe nergens uit.
Wellicht heb je aan vlookup genoeg.
Ben je pas begonnen met Excel ?

 

[longron]

Ja misschien had ik hem anders moeten stellen.
vlookup gaat niet werken omdat ik het vanuit de vba moet doen.

Jaartje of 25 geleden? Kon nog uit de tijd van de "echte" Macro's toen vba nog niet was uitgevonden.
Ben er redelijk in maar weet zeker niet alles.
Zeker niet als ik me met jou vergelijk of Emoor.
Probleem is nu opgelost op een ander manier.
Eigenlijk met een Goto maar die probeer ik eigenlijk zo veel mogelijk niet te gebruiken.

eigenlijk voornamelijk bezig met een Roosterprogramma wat met verschillende disciplines en zo'n 40 verschillende dienstcodes moet werken
Met de mogelijkheid om ook een dagrooster uit te printen waarin dan ook nog telefoonnummers bij moeten staan van de werknemers die dan werken.
En dan werken er ongeveer 70 mensen mee en moet het ******-proef zijn.

Groetjes
Ronald