Aufsteigend - Absteigend sortieren wechselnd

[Stephan]

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: Alles auswählen

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

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

Code: Alles auswählen

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

Gruß
Stephan