OpenOffice.info

Verfasst: **Mo, 01.06.2009 15:49**

hi,
ich versuche grade, Informationen, eine Zelle betreffend zu schützen, ohne die zelle oder deren Inhalt selbst unzugänglich zu machen.

Ich lese per Makro den Inhalt einer Tabelle aus meiner Datenbank, sagen wir mal 60 Datensätze a 40 Spalten
nu wird die Tabelle natürlich unübersichtlich, so daß man auf die Idee kommen könnte, die Daten zu sortieren.

Leider könnte man beim sortieren die Schlüsselspalte vergessen, so daß beim updaten der Datenbank nun völlig andere und vor allem falsche Daten existieren.
Nun habsch mir so überlegt, den Schlüssel einfach so als Notiz in die Zelle zu schreiben. Diese kann ich auslesen und zuordnen, egal wo sich die Zelle praktisch befindet. leider kann man auch die Notiz löschen (

)

oder vielleicht gibts ja noch eine andere Möglichkeit.

LG
Andreas

Verfasst: **Di, 02.06.2009 15:42**

Hallo Andreas,

verstecke die Zellinformation doch einfach im Bereich "Daten Gültigkeit" > "Fehlermeldung" wenn dieser nicht schon anderweitig verwendet wird. Die meisten User klicken sich kaum in diese Gefilde vor.

Ist halt nur mal so ne Idee von mir.

Code: Alles auswählen

sub Main
oDoc = ThisComponent
oSheet = oDoc.getSheets.getByIndex(0)
For i = 0 to 2
for j = 0 to 2
CellRange = oSheet.getCellByPosition(i,j)
oColumn=CellRange.getColumns.getByIndex(0).getName()
cellname = oColumn & j +1
Validation = CellRange.Validation
Validation.ShowErrorMessage = False
Validation.ErrorMessage = ""
Validation.ErrorTitle = "Zellenursprung: " & cellname
CellRange.Validation = Validation
next j
next i
End Sub

Nach dem Sortieren kannst Du Dir dann einen Vergleich anzeigen lassen:

Code: Alles auswählen

sub Zellenpos_vergleichen
oDoc = ThisComponent
oSheet = oDoc.getSheets.getByIndex(0)
For i = 0 to 2
for j = 0 to 2
CellRange = oSheet.getCellByPosition(i,j)
oColumn=CellRange.getColumns.getByIndex(0).getName()
cellname = ocolumn+ltrim(str(orow))& j +1
Validation = CellRange.Validation
s = s & "Zelle aktuell: " & cellname & "    Ursprung: " &  Validation.Errortitle & CHR(13)
next j
next i
msgbox s
End Sub

Viel Erfolg.

Jürgen

Verfasst: **Mi, 03.06.2009 12:27**

hm, die Idee ist gut, in diese Gefilde habsch mich auch noch nicht vorgetastet.

LG Andreas

OpenOffice.info

Notiz schützen

Notiz schützen

Re: Notiz schützen

Re: Notiz schützen