anderen wert einfügen in zelle links daneben

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: anderen wert einfügen in zelle links daneben

von mcfire » Fr, 28.01.2005 11:03

Danke Stephan das wars. Funktioniert super

MfG McFire

von Stephan » Fr, 28.01.2005 10:43

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

anderen wert einfügen in zelle links daneben

von mcfire » Fr, 28.01.2005 01:03

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

Nach oben