Rijen tellen

[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

[RPG]

Hallo

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

Romke

[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

[RPG]

Hallo

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

[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

[RPG]

Hallo

Waarom niet gebruik maken van de ingebouwde functie

rijen(BereikNaam)

Romke