OpenOffice.info

Lemgofux hat geschrieben: Mi, 20.01.2021 20:47 Was ich nicht gut finde ist, dass du hingehst, und verlinkst hier Beiträge von Usern aus anderen Foren. Das brauchst du zumindest bei mir nicht machen.

Stephan hat geschrieben: Mi, 20.01.2021 20:05

Ich jedenfalls habe keine Zeit - so wie du scheinbar - die Foren zu kontrollieren ob und wo jemand etwas gepostet hat

das ist auch nicht nötig

Ich finde es auch nicht ok, dass du hier im Forum andere darauf aufmerksam machst, wo ich in welchen Foren tätig bin.

Ich finde das Anonymität Dein Recht ist, ich verstehe nur nicht wenn Dir das wichtig ist warum Du Dich hier im Forum anmeldest anstatt unangemeldet zu posten.
Aus exakt dem Grund da Du hier anonym bleiben kannst gibt es doch die Möglichkeit hier im Forum ohne Anmeldung zu posten.

Das war jetzt viel Text, nur speziell ich persönlich verteidige seit Jahren die Möglichkeit sich hier nicht anmelden zu müssen, um anonym posten zu können, obwohl uns das mehr Arbeit bei der Spambekämpfung macht.


Gruß
Stephan

Aber von Macros habe ich keine Ahnung, da lasse ich lieber die Finger....

Ich jedenfalls habe keine Zeit - so wie du scheinbar - die Foren zu kontrollieren ob und wo jemand etwas gepostet hat

Ich finde es auch nicht ok, dass du hier im Forum andere darauf aufmerksam machst, wo ich in welchen Foren tätig bin.

Stephan hat geschrieben: Mi, 20.01.2021 19:03 beispielsweise:

weise nachfolgende Makro "Zelle_markieren" dem Tabellenereignis "Auswahl" zu, sowie das andere Makro "initiieren" dem Ereignis "Laden des Dokuments beendet" (siehe Extras-Anpassen-Ereignisse) , das markiert die jeweils aktive Zelle mit einer breiten roten Zellumrandung

Code: Alles auswählen

Global zeile As Integer
Global spalte As Integer
Global tb As Object
Global bb As Object
Global lb As Object
Global rb As Object

Sub initiieren()
	cs = ThisComponent.getCurrentSelection
	If cs.supportsService("com.sun.star.sheet.SheetCell") then
		bb = cs.BottomBorder
		lb = cs.LeftBorder
		rb = cs.RightBorder
		tb = cs.TopBorder
		zeile = cs.RangeAddress.StartRow
		spalte = cs.RangeAddress.StartColumn
	End If
End Sub

Sub Zelle_markieren()
	On Error Resume Next
	
	cs = ThisComponent.getCurrentSelection
	If cs.supportsService("com.sun.star.sheet.SheetCell") then
		ze = ThisComponent.CurrentController.ActiveSheet.GetCellByPosition(spalte, zeile)
		ze.BottomBorder = bb
		ze.LeftBorder = lb
		ze.RightBorder = rb
		ze.TopBorder = tb
		
		bb = cs.BottomBorder
		lb = cs.LeftBorder
		rb = cs.RightBorder
		tb = cs.TopBorder
		zeile = cs.RangeAddress.StartRow
		spalte = cs.RangeAddress.StartColumn
		
		RahmenLinie = CreateUnoStruct("com.sun.star.table.BorderLine")
		With RahmenLinie
			.Color = RGB( 255, 0, 0 )
			.InnerLineWidth = 0
			.OuterLineWidth = 200
			.LineDistance = 0
		End With
		cs.BottomBorder = RahmenLinie
		cs.LeftBorder = RahmenLinie
		cs.RightBorder = RahmenLinie
		cs.TopBorder = RahmenLinie
	End If
End Sub

Gruß
Stephan

Woher soll ich wissen, dass die beiden Foren zusammen gehören?

Lemgofux hat geschrieben: Mi, 20.01.2021 14:01 Bisher noch keine passende Antwort bei Libre-Office...Daher versuche ich es hier. Kann ja sein, dass hier jemand liest, der einen Tipp hat....

Crossposting nicht erwünscht, aber toleriert
sog. Crossposting bzw. Multiposting (https://de.wikipedia.org/wiki/Multiposting#Multiposting) ist nicht gerne gesehen. Von demjenigen der es verwendet wird aber in jedem Fall erwartet das er das kenntlich macht, also einen LInk auf den jeweils anderen Post setzt, um zu verhindern das an der zweiten Stelle (also in einem anderen Forum) noch über die Lösung nachgedacht wird, wenn diese bereits hier geschrieben ist bzw. auch umgekehrt.
Erläuterungen zur Thematik siehe:
https://www.linux-tips-and-tricks.de/de ... ie-keiner/