Seite 2 von 2

Re: durch doppelklick "X" setzen

Verfasst: Mi, 26.02.2014 23:44
von Ulti
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...