Re: durch doppelklick "X" setzen
Verfasst: Mi, 26.02.2014 23:44
hallo Heritzp, ich habs geschafft durch x den zellschutz aufzuheben, aber bei dir ist der bereich im Makro festgeschrieben
(Wie kriegt man das Makro in das weiße fenster rein?)
REM ***** BASIC *****
sub schreib_x(ereignis)
oDoc=thiscomponent
oBereich=oDoc.sheets(0).getCellRangeByName("a1:C5") 'Zellbereich A1:C5 in 1. Tabelle
if oBereich.queryIntersection(ereignis.rangeaddress).count=0 then exit sub
If ereignis.String = "X" Then
ereignis.String = ""
Else
ereignis.String = "X"
End If
end sub
Mein Problem ist wie ich die Zellbereiche auf mehrere Tabellen aufteilen könnte...
(Wie kriegt man das Makro in das weiße fenster rein?)
REM ***** BASIC *****
sub schreib_x(ereignis)
oDoc=thiscomponent
oBereich=oDoc.sheets(0).getCellRangeByName("a1:C5") 'Zellbereich A1:C5 in 1. Tabelle
if oBereich.queryIntersection(ereignis.rangeaddress).count=0 then exit sub
If ereignis.String = "X" Then
ereignis.String = ""
Else
ereignis.String = "X"
End If
end sub
Mein Problem ist wie ich die Zellbereiche auf mehrere Tabellen aufteilen könnte...