[EXCEL / oOo ] digitale datum + 1 button met Macro

[Verwijderd]

Ik probeer een knop te maken welke van een datum in een cel steeds een dag hoger gaat:

Dus ik heb in een cell: 07-072008

Ik heb een knop in mijn welkbalk gemaakt welke ik naar een macro laat verwijzen, welke eigenlijk en + 1 op de dag zou moeten doen.

code:

Public Sub AddOne()

ActiveCell.Value = Val(ActiveCell.Value) + 1

End Sub

Dit gata uiteraard niet werken, het zou alleen op 1 moeten werken in een cell dat 2 wordt, etc.

Maar zelfs dan krijg ik een Basic Runtime fout dat de object variabele niet ingesteld is. Val moet toch geen Value zijn ?

[Bolukan]

Als het een datum is, waarom doe je dan val()? Weglaten?

[Verwijderd]

Bolukan schreef op maandag 07 juli 2008 @ 23:24:
Als het een datum is, waarom doe je dan val()? Weglaten?

Ik volg je niet helemaal, ik laat het toch niet weg in mijn voorbeeld ?

[SierdW]

Visual Basic:

Public Sub AddOne()

ActiveCell.Value = ActiveCell.Value + 1

End Sub

Werkt hier gewoon, of snap ik je probleem niet helemaal?

[ Voor 33% gewijzigd door SierdW op 08-07-2008 09:19 ]

[Verwijderd]

SierdW schreef op dinsdag 08 juli 2008 @ 09:18:

Visual Basic:

Public Sub AddOne()

ActiveCell.Value = ActiveCell.Value + 1

End Sub

Werkt hier gewoon, of snap ik je probleem niet helemaal?

Ik had het in openoffice calc gezet, werkt alleen niet, ik krijg een error zoals ik beschrijf in mijn TS.

Heb jij het ook getest dat 07-07-2008 => 08-07-2008 wordt ?

[Creepy]

Oeh, office pakketen en marco's. Dat hoort in Officesuites en -software. Zie ook Waar hoort mijn topic?.
Move Programming -> Officesuites en -software

[Verwijderd]

Creepy schreef op dinsdag 08 juli 2008 @ 11:56:
Oeh, office pakketen en marco's. Dat hoort in Officesuites en -software. Zie ook Waar hoort mijn topic?.
Move Programming -> Officesuites en -software

Top, ik zoek altijd eerst even en dacht dat het programming was

[blaataaps]

Zal ik het dan maar even echt naar Officesuites en -software verplaatsen ipv Non-Windows Operating Systems

[Verwijderd]

blaataaps schreef op dinsdag 08 juli 2008 @ 12:01:
Zal ik het dan maar even echt naar Officesuites en -software verplaatsen ipv Non-Windows Operating Systems

Doe eens leuk

[Verwijderd]

open office basic :

Visual Basic:

REM  *****  BASIC  *****

Sub DatumOptellen
ThisComponent.getCurrentSelection.value=(1+ThisComponent.getCurrentSelection.value)
End Sub

kijk ook eens naar Convert Excel VBA to OpenOffice Basic

[SierdW]

Verwijderd schreef op dinsdag 08 juli 2008 @ 11:51:
[...]
Heb jij het ook getest dat 07-07-2008 => 08-07-2008 wordt ?

Had alleen niet begrepen dat het om OpenOffice gaat...

[Verwijderd]

Verwijderd schreef op dinsdag 08 juli 2008 @ 13:54:
open office basic :

Visual Basic:

REM  *****  BASIC  *****

Sub DatumOptellen
ThisComponent.getCurrentSelection.value=(1+ThisComponent.getCurrentSelection.value)
End Sub

kijk ook eens naar Convert Excel VBA to OpenOffice Basic

Dit werkt echt perfect ! dank je wel.

Ook erg bedankt voor de link, ik ga dat zeker lezen !