ich habe schonwieder ein Problem versuche schon 3 Tage lang 2 Makros in (Tabellenereignisse / inhalt geändert ) zu bekommen.
Code: Alles auswählen
sub Doppelpunkt (event)
if not event.supportsService("com.sun.star.table.Cell") then exit sub
if len(event.string)=0 then exit sub
sCheck = event.AbsoluteName
aNPart = Split(event.AbsoluteName,"$")
sAllowedColums = "-AA-AB-AD-AF-AH-AJ-AL-AN-AP-AR-AT-AV-AX-"
if InStr(1,sAllowedColums,"-" & aNPart(2) & "-") then
iCheck = Val(aNPart(3))
if iCheck > 4 and iCheck < 14 then
sText = trim(event.getstring)
if len(sText)=2 then
event.setstring(left(sText,1) & ":" & right(sText,1) )
elseif len(sText)>2 and InStr(1,sText," ")>0 and len(sText) > InStr(1,sText," ") then
sCont = split(sText," ")
event.setstring(sCont(0)&":"&sCont(1))
elseif len(sText)= 3 then
idea1 = left(sText,2)&":"&right(sText,1)
idea2 = left(sText,1)&":"&right(sText,2)
event.setstring( Dialog(idea1, idea2) )
elseif len(sText)= 4 then
idea3 = left(sText,2)&":"&right(sText,2)
idea4 = "X"
event.setstring(Dialog(idea3, idea4))
else
event.setstring("")
endif
endif
endif
End Sub
rem ----------------------------------------------------------------------
sub Ausgrauen
tc0 = ThisComponent.Sheets(4)
x = tc0.Drawpage.Forms.getByName("Formular").getByName("Schaltfläche 1")
If tc0.getCellRangeByName("BA15").Value >= 12 Then
x.enabled = False
Else
x.enabled = True
End If
end Sub
Es gibt vieleicht auch eine andere möglichkeit habe aber keine arnung.
Bitte um Hilfe oder Ideen wie ich die 2 Makros gleichzeitig betreiben kann.
Danke !!
MFG tsw68