Pagina 1 van 1

Rijen tellen

BerichtGeplaatst: wo feb 16, 2011 1:29 am
door Martin73
Hallo kan iemand me bij het volgende helpen?
Ik kan aardig programmeren in VBA (Excel) maar calc is wel ff wat anders. Wat ik wil is vrij simpel. Van een werkblad het aantal rijen tellen en dan van twee kolommen de waarden vervangen door de waarde van de cellen maal 1000. Normaal zou ik de het aantalrijen tellen door iets van Usedrage.rows.count en dan met een loopje even de zaken vervangen.
Wie helpt me even?
Groet Martin

Re: Rijen tellen

BerichtGeplaatst: wo feb 16, 2011 9:49 am
door RPG
Hallo

Een ander programma vereist een andere aanpak. Verder is de vraag onduidelijk

Romke

Re: Rijen tellen

BerichtGeplaatst: wo feb 16, 2011 10:55 am
door Martin73
Dag Romke,
Concreet is de vraag hoe ik met basic in een willekeurig werkblad het aantal rijen met data kan tellen. In VBA doe ik dit met usedrange.rows.count. Hoe moet dit in basic?
Groet Martin

Re: Rijen tellen

BerichtGeplaatst: wo feb 16, 2011 1:02 pm
door RPG
Hallo

Martin73 schreef:Concreet is de vraag hoe ik met basic in een willekeurig werkblad het aantal rijen met data kan tellen. In VBA doe ik dit met usedrange.rows.count. Hoe moet dit in basic?
Ik heb helaas geen idee hoe het op te lossen op deze manier.

Romke

Re: Rijen tellen

BerichtGeplaatst: wo feb 16, 2011 9:06 pm
door BoySue
Hallo,

Volgende macro afficheert het max aantal kolommen en rijen van de actuele sheet.

Code: Selecteer alles   UitklappenInklappen
Sub TelRijenEnKolommen
     oSheet = ThisComponent.CurrentController.ActiveSheet
     oSheetCurs = oSheet.createCursor()
     oSheetCurs.gotoEndOfUsedArea(False)
     LastColumn = oSheetCurs.getRangeAddress.StartColumn
     LastRow = oSheetCurs.getRangeAddress.StartRow
     MsgBox " " & LastColumn & "        " & LastRow & "  ",," verste Kolom  &  Rij "
End Sub

De nummering vertrekt van 0 maw LastRow = 3 betekent dat er 4 'bezette' rijen zijn.

Willy

Re: Rijen tellen

BerichtGeplaatst: do feb 17, 2011 12:51 pm
door RPG
Hallo

Waarom niet gebruik maken van de ingebouwde functie

rijen(BereikNaam)

Romke