anderen wert einfügen in zelle links daneben

[mcfire]

Hi all,

ich probiere schon ewig rum und bekomme es nicht hin, ich hab ein Makro welches per buttonclick startet das alles kein problem. ich würd nur gern wissen wie ich 2 werte (einen in selektierter zelle) den anderen wert in die zelle links daneben einfügen kann mit dem makro???

hier der quelltext:

Sub TimeNow
Dim here As Object
here=ThisComponent.CurrentSelection
here.setValue(TimeValue(Now))
End sub
Sub DateNow
Dim here As Object
here=ThisComponent.CurrentSelection
here.setValue(DateValue(Now))
End sub

das sind 2 subs ich weiss ich will das in einer haben und zwar so:

ich markiere eine zelle > starte das makro > in der selektierten zelle soll die uhrzeit rein und in die zelle links daneben das aktuelle datum. nur wie stelle ich das an? wichtig ist die Zelle links neben der selektierten da muss das date rein.

Ich bitte um hilfe, schonmal thx im vorhaus.

MfG McFire

[Stephan]

Code: Alles auswählen

Sub TimeNow 
Dim here As Object
Dim there As Object 
here=ThisComponent.CurrentSelection 
here.setValue(TimeValue(Now))
'here.NumberFormat = 41
zeile = here.getCellAddress().row
spalte = here.getCellAddress().column
there = ThisComponent.currentcontroller.activeSheet.getCellByPosition(spalte-1,zeile)
there.setValue(DateValue(Now))
'there.NumberFormat = 30
End sub

Gruß
Stephan

[mcfire]

Danke Stephan das wars. Funktioniert super

MfG McFire