OpenOffice.info

Sub Button(trigger)
	If trigger.Source.model.Tag = "aufwärts" Then
			<Dein Makro zum Aufsteigend Sortieren>()
			trigger.Source.model.Tag = "abwärts"
		Else
			<Dein Makro zum Absteigend Sortieren>()
			trigger.Source.model.Tag = "aufwärts"
	End If
End Sub

Sub Button(trigger)
	If trigger.Source.model.Tag = "aufwärts" Then
			Artist()
			trigger.Source.model.Tag = "abwärts"
		Else
			Artist_andersrum()
			trigger.Source.model.Tag = "aufwärts"
	End If
End Sub

Trage bei der Eigenschaft "Zusatzinformationen" der Schaltfläche (unten im Eigenschaftsdialog der Schaltfläche) das Wort "aufwärts" ein (ohne Anführungszeichen)

Weise der Schaltfläche anschließend das folgede Makro zu:

[code]Sub Button(trigger)
If trigger.Source.model.Tag = "aufwärts" Then
<Dein Makro zum Aufsteigend Sortieren>()
trigger.Source.model.Tag = "abwärts"
Else
<Dein Makro zum Absteigend Sortieren>()
trigger.Source.model.Tag = "aufwärts"
End If
End Sub[/code]

Ändere in dem Makro die zweil Zeilen mit den spitzen KLammern auf die jeweiligen Makronahmen Deiner zwei Makros, z.B.:

[code]Sub Button(trigger)
If trigger.Source.model.Tag = "aufwärts" Then
Artist()
trigger.Source.model.Tag = "abwärts"
Else
Artist_andersrum()
trigger.Source.model.Tag = "aufwärts"
End If
End Sub[/code]



Gruß
Stephan