von Karolus » Fr, 02.03.2007 02:08
Hallo
Kopiere folgenden Code nach : ->Extras->Makros->Makros verwalten->OOo-basic-->"dein Dokument"->Standard--Modul1.[1]
[1]ggf. mit Schaltfläche 'Neu' erstellen
Code: Alles auswählen
Sub Startlog
do 'Tabelle1 entspricht index 0 ↓
zelle = ThisComponent.Sheets(0).getCellbyPosition(Spa,Zei)
if zelle.string = "" then
zelle.setformula(now)
exit sub
else
Zei = Zei +1
if Zei = 30 then
Spa = Spa + 1
Zei = 0
end if
end if
loop
End Sub
Danach musst du es noch über -->Extras-->Anpassen 'Ereignisse' dem Ereignis 'Dokument öffnen' zuweisen.
Gruß Karo
Hallo
Kopiere folgenden Code nach : ->Extras->Makros->Makros verwalten->OOo-basic-->"dein Dokument"->Standard--Modul1.[1]
[1]ggf. mit Schaltfläche 'Neu' erstellen
[code]Sub Startlog
do 'Tabelle1 entspricht index 0 ↓
zelle = ThisComponent.Sheets(0).getCellbyPosition(Spa,Zei)
if zelle.string = "" then
zelle.setformula(now)
exit sub
else
Zei = Zei +1
if Zei = 30 then
Spa = Spa + 1
Zei = 0
end if
end if
loop
End Sub[/code]
Danach musst du es noch über -->Extras-->Anpassen 'Ereignisse' dem Ereignis 'Dokument öffnen' zuweisen.
Gruß Karo