von F3K Total » Di, 23.05.2017 13:07
Hallo FallenAngel,
du hast Glück, ich wollte wissen ob ich es hinbekomme. Habe deine Datei um die "schmalen" Spalten reduziert und dann dieses Makro geschrieben:
Code: Alles auswählen
Sub S_countUp(event)
dim lTime as double
lTime = timevalue(time())
if lTime < 1/4 then
msgbox "Es ist vor 6 Uhr, keine Zählung möglich"
exit sub
endif
if left(event.source.model.label,1) = "M" then
ncolumn = int(lTime * 12) + 1
else
ncolumn = int(lTime * 12) + 2
endif
oSheet = ThisComponent.Sheets.getbyname("Kundenzählung")
aDates = oSheet.getcellrangebyposition(0,2,0,32).data
for i = 0 to ubound(aDates)
if aDates(i)(0) = Date() then
nRow = i+2
endif
next i
oCell = oSheet.getcellbyposition(nColumn,nRow)
oCell.Value = oCell.value + 1
End Sub
Scheint zu funktionieren.
Gruß R
- Dateianhänge
-
- Kundenzählung.ods
- (13.19 KiB) 119-mal heruntergeladen
Hallo FallenAngel,
du hast Glück, ich wollte wissen ob ich es hinbekomme. Habe deine Datei um die "schmalen" Spalten reduziert und dann dieses Makro geschrieben:
[code]Sub S_countUp(event)
dim lTime as double
lTime = timevalue(time())
if lTime < 1/4 then
msgbox "Es ist vor 6 Uhr, keine Zählung möglich"
exit sub
endif
if left(event.source.model.label,1) = "M" then
ncolumn = int(lTime * 12) + 1
else
ncolumn = int(lTime * 12) + 2
endif
oSheet = ThisComponent.Sheets.getbyname("Kundenzählung")
aDates = oSheet.getcellrangebyposition(0,2,0,32).data
for i = 0 to ubound(aDates)
if aDates(i)(0) = Date() then
nRow = i+2
endif
next i
oCell = oSheet.getcellbyposition(nColumn,nRow)
oCell.Value = oCell.value + 1
End Sub[/code]Scheint zu funktionieren.
Gruß R