Auteur Topic: Left afstrippen uit xx.address (gelezen 12524 keer)

rdcoster · « **Gepost op:** 28 december 2018, 14:40:05 »

Beste,

In cel A1 tot A10 staat 1 -2 -3 -4 .... 10
Ik wil via een macro het lijnnummer weten waar de 5 staat.
Ik struikel steeds over "Typen komen niet overeen"

Dit is mijn macro:

Code: [Selecteer]

Sub Macro1()
loadnr = 5
Set fc = Worksheets(1).Columns("A").Find(what:=loadnr)
x = fc.Address
a = Left(fc.Address, 3)
x = x - a
End Sub

alfa · « **Reactie #1 Gepost op:** 28 december 2018, 14:48:39 »

Zonder vba: = vergelijken(5;A1:A10;0)
Maar als het beslist met vba moet (resultaat komt in B1).

Code: [Selecteer]

Sub macro1()
Dim loadnr As Integer, lijnnr As Integer
loadnr = 7
lijnnr = Application.Match(loadnr, Range("A1:A10",0))
Range("b1") = lijnnr
End Sub

Dit is onder de voorwaarde dat de cijfers beginen in A1.

SoftAid · « **Reactie #2 Gepost op:** 28 december 2018, 14:53:23 »

rdcoster,

je gebruikt in de laatste lijn a als een variabele, maar nergens staat wat a is.

SoftAid

alfa · « **Reactie #3 Gepost op:** 28 december 2018, 14:57:22 »

Ik heb wellicht de vraag niet goed geïnterpreteerd.
Ik ben er vanuit gegaan dat in A1:A10 alleen getallen staan, maar uit het onderwerp van de vraag ("Left afstrippen uit xx.address") maak ik nu op dat een getal uit een adres moet worden gehaald. Dan moet bekend zijn wat met adres wordt bedoeld: het adres van een cel in Excel, een woonadres, of een ander adres.

SoftAid · « **Reactie #4 Gepost op:** 28 december 2018, 15:06:05 »

Hallo alfa,

ik vermoed dat hij wil weten in welke kolom 5 staat.

als je x= x-a weghaalt, en zet een Msgbox x in de plaats, dan geeft de macro kolom $A$ als x

alleszins is de vraag van TS erg verwarrend...

SoftAid

rdcoster · « **Reactie #5 Gepost op:** 28 december 2018, 15:08:23 »

Beste Alfa,

Citaat

Dan moet bekend zijn wat met adres wordt bedoeld: het adres van een cel in Excel, een woonadres, of een ander adres.

Ik bedoel wel het adres van de cel, waarvan ik dan de "$A$" wil afstrippen.

Ex-lid · « **Reactie #6 Gepost op:** 28 december 2018, 15:09:03 »

Zet in B1 wat je zoekt.In het vbtje krijg je een msgbox, en eventueel hoe je verder kunt gaan met de gevonden waarde.

Code: [Selecteer]

Sub dotch()
Dim jrij As Long
    jrij = Application.WorksheetFunction.Match([B1], Range("A1:A10"), 0)
    MsgBox jrij
    If jrij > 0 Then
        'code
    End If
End Sub

alfa · « **Reactie #7 Gepost op:** 28 december 2018, 15:12:26 »

Citaat van: rdcoster op 28 december 2018, 15:08:23

Ik bedoel wel het adres van de cel, waarvan ik dan de "$A$" wil afstrippen.

Het resultaat van de macro die ik hierboven posttte is niet een celadres, maar het rijnummer van het celadres (van $A$5 is dat 5). Voldoet dat?

rdcoster · « **Reactie #8 Gepost op:** 28 december 2018, 15:29:54 »

Hallo Softaid,

Ik meen toch dat mijn vraag duidelijk was:

In cel A1 tot A10 staat 1 -2 -3 -4 .... 10
Ik wil via een macro het lijnnummer weten waar de 5 in kolom A staat. (of beter rijnummer).

Ex-lid · « **Reactie #9 Gepost op:** 28 december 2018, 15:37:56 »

Citaat

Ik wil via een macro het lijnnummer weten waar de 5 in kolom A staat. (of beter rijnummer).

De code van Alfa en mij doen dit toch.

rdcoster · « **Reactie #10 Gepost op:** 28 december 2018, 15:55:43 »

Inderdaad Dotchiejack en Alfa,

Jullie code werkt, maar ik had mijn laatste opmerking naar Softaid.

Moet er nu even mee stoppen want vrouwtje wil naar de Kerstmarkt...

Dank !!

Ex-lid · « **Reactie #11 Gepost op:** 28 december 2018, 15:58:10 »

Citaat

Moet er nu even mee stoppen want vrouwtje wil naar de Kerstmarkt...

Oei, daar gaan je spaarcenten.

Help!

Menu

Hulp bij posten

Zoeken

Recente topics