Seite 1 von 1

Kommentare Verknüpfen/kopieren

Verfasst: Mo, 08.02.2016 15:47
von metnobody
Hallo OpenOffice Freunde,

ich nutze OpenOffice schon länger und versuche derzeit eine Datenbank für unsere Firma zu überarbeiten und vereinfachen.

Geplant ist ein Stammblatt mit Informationen zu mehreren Produkten zu haben die wiederum in verschiedenen Tabellenblättern >15 zum Einsatz kommen.
Es ist geplant, dass nur noch Änderungen im Stammblatt der Artikel vorzunehmen sind und dieses dann automatisch in die Tabellenblätter übernommen wird.

Hier nun das Problem:

Die jeweiliggen Produkte im Stammblatt sind ergänzt mit Kommentaren (Farbe, Lieferbarkeit, usw), dies möchte ich gern auch in den "Verknüpften" Produkten der Tabellenblätter angezeigt bekommen. Geht das irgendwie? Bei MSexcel sind solche Dinge ja kopierbar oder per Makro zu vervielfältigen - ist sowas auch in OOcaLC möglich?

Vielen Dank für eure Mühen.

Re: Kommentare Verknüpfen/kopieren

Verfasst: Mo, 08.02.2016 16:53
von Karolus
Hallo

Calc ist eine Tabellenkalkulation -- keine Datenbank!
Excel ist auch keine Datenbank!

Karolus

Re: Kommentare Verknüpfen/kopieren

Verfasst: Di, 09.02.2016 08:53
von Stephan
Geht das irgendwie?
Ja, aber nur per Makro, nicht per benutzerdefinierter Funktion.

z.B. den Kommentar von A1 nach B1 kopieren:

Code: Alles auswählen

Sub notiz_kopieren()
	With ThisComponent.CurrentController.ActiveSheet
		kommentar = .getCellRangeByName("A1").Annotation.String
		ziel = .getCellRangeByName("B1")
	End With
	MyInsertAnnotation(ziel, kommentar)
End Sub


Sub MyInsertAnnotation(oCell as Object, oText as String)
	Dim sPos as new com.sun.star.table.CellAddress
	
	sPos.Sheet  = oCell.RangeAddress.Sheet
	sPos.Column = oCell.RangeAddress.StartColumn
	sPos.Row    = oCell.RangeAddress.StartRow
	
	oCell.Spreadsheet.Annotations.insertNew(sPos, oText)
End Sub

Gruß
Stephan