[gelöst] durch doppelklick "X" setzen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Ulti
***
Beiträge: 64
Registriert: Sa, 25.01.2014 13:03

Re: durch doppelklick "X" setzen

Beitrag 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...
Win 7 Enterprise (32 Bit), LO 4.2.1, AOO 4.0.1, Excel 2003
Gesperrt