[VB6] Excel cell coordinaten opvragen

[freeco]

Ik wil het volgende doen:

met een serienummer dat ik ophaal uit een database, moet ik nog wat extra info uit een excelblad halen.

Ik kan al via VB6 het serienummer localiseren in het excelblad door de "Find" te programmeren:

code:

moReportFile.Sheets("Sheet1").Cells.Find(What:="" & sSerial & "", _ 
   After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _
   SearchOrder:=xlByRows, SearchDirection:=xlNext, _
   MatchCase:=False).Activate

Nu dat serienummer gevonden is, moet ik een aantal kolommen opschuiven en 3 veldjes uitlezen. De code voor het uitlezen is ook geen probleem.
Ik heb hier echter de coordinaten van het serienummer nodig: "row:column" en dat vind ik nu niet hoe ik dat moet opvragen. Na .Sheets("Sheet1") werkt de IntelliSense niet meer en in de MSDN vind ik ook niet onmiddellijk hoe ik dit kan opvragen.

Met welke property van cells bekom ik de coordinaat van de geselecteerde cell?

[kvdveer]

Heb je het uberhaupt geprobeerd?
Mijn eerste gok is address, probeer die eens

[ Voor 1% gewijzigd door kvdveer op 28-01-2003 10:35 . Reden: spell-fix ]

[Verwijderd]

een rij nummer vinden is gewoon een excell functie. Waarom gebruik je die niet en haal je het antwoord met VB uit je Excel sheet

[BtM909]

kvdveer schreef op 28 januari 2003 @ 10:33:
Mijn eerste gok is address, probeer die eens

Je kan idd address gebruiken (resultaat bijv.: $G$14)
Maar als je zeker weet dat die andere velden 3 kolommen naast je zoekresultaat zitten, dan kan je ook

code:

cells.Offset ([RowOffset],[ColumnOffset])

gebruiken

[freeco]

ja, tuurlijk heb ik het geprobeerd! gisteren een uurtje verloren met zoeken...

iets in de aard van: moReportFile.Sheets("Sheets1").ActiveCell.Address ? Hoe vang ik dat nu op in een variabele? Blijkbaar is er toch nog iets fout, want ik krijg er een fout op.

SanMan4u, met VB omdat het moet gedaan worden voor 2000 serienummers. Geen zin om dat manueel allemaal te copieren...

[BtM909]

Je kan het resultaat toch gewoon in een variabele stoppen?

code:

beginAddress = Selection.Address

_{Code is btw vba}

[ Voor 16% gewijzigd door BtM909 op 28-01-2003 10:43 ]

[freeco]

code:

sAddress = moReportFile.Sheets("Sheets1").Selection.Address

geeft "subscript out of range"

edit:
tja, tis de eerste keer dat ik via VB iets UIT excel haal. Tot noch toe was het altijd iets IN excel dumpen...

[ Voor 42% gewijzigd door freeco op 28-01-2003 10:44 ]

[kvdveer]

freeco schreef op 28 January 2003 @ 10:40:
ja, tuurlijk heb ik het geprobeerd! gisteren een uurtje verloren met zoeken...

iets in de aard van: moReportFile.Sheets("Sheets1").ActiveCell.Address ? Hoe vang ik dat nu op in een variabele? Blijkbaar is er toch nog iets fout, want ik krijg er een fout op.

SanMan4u, met VB omdat het moet gedaan worden voor 2000 serienummers. Geen zin om dat manueel allemaal te copieren...

Ik neem aan dat je een grapje maakt? Heb je ooit eerder wat gedaan in VBA? Heb je weleens overwogen om dat in een variabele te stoppen met de = operator?
PAK JE MANUAL!

[freeco]

ja, da's nu eenmaal het probleem: die = operator blijkt niet te werken! Ik krijg er die error op... Blijkbaar heb ik de verkeerde property van de geselecteerde cell

[kvdveer]

Het is behoorlijk jammer dat er momenteel geen moderators zijn, maar weet je zeker dat die error veroorzaakt wordt door die = operator? (Ik eet mijn grootmoeder op als dat zo is...)

[hint]
Heb jij toevallig een sheet genaamd "Sheets1" in je excelfile?
[/hint]

* kvdveer tip: Ga ZELF zoeken. We zijn niet je debug-slaafjes. Probeer eerst eens wat uit. Maak eens een testprogrammatje.

[Janoz]

Subscript out of range lijkt me een duidelijke foutmelding. Bedenk dat dat statement ook eerder mis kan gaan.

Ik raad je aan om ff een boek te halen of te leren omgaan met MSDN.

@kvdveer : Rustig maar.. neem je valium

[ Voor 12% gewijzigd door Janoz op 28-01-2003 10:57 ]