CommandButton mit 2 Makros

oraculix · 2021-03-28T09:37:43+00:00

Hallo Ich möchte gerne meine Datenbank sortieren mit 1 CommandButton11 von A-Z und Z-A Die Makros zum sortieren von A-Z und Z-A habe ich. Sub SortiereTitelAZ() Sub SortierenTitelZA() Damit ich mir einen CommandButton in der Userform sparen kann würde ich gerne beide Makros mit einem CommandButton ausführen. Also einmal klick sortiere A-Z weitererer klick sortiere Z-A weiterer klick A-Z usw. Frage: Geht das Überhaupt oder ist das mit Vba nicht möglich?

Hi
naja, da ist noch ein Tippfehler drin.
"BoSirt" gibt es nicht, das sollte auch "BoSort" sein. "BoSirt" muss nicht deklariert werden.
du kannst dir die Variable auch sparen, in dem du einen ToggleButtons verwendest.
dieser Hat ja zwei Zustände, die man abfragen kann.

If ToggleButton1.Value = True then
code aufsteigend sortieren
Else
code für absteigend sortieren
End if

beachte, dass es nach einem Neu Öffnen der Userform zu Abweichungen kommen kann oder man beim ersten mal 2x auf den Button klicken muss um die gewünschte Sortierung zu bekommen, weil nach einem Neustart die Variable bzw der Button einen Standardwert haben, die u.U nicht zur vorliegenden Sortierung passt.
sofern das Sortierkriterium eindeutig ist (also nur einmal vorkommt), könntest du dir statt der Variablen einfach zwei Werte aus zwei unterschiedlichen Zeilen der Liste nehmen und miteinander vergleichen um die aktuell vorliegende Sortierung zu ermitteln und dann die gegenteilige Sortierung anzuwenden.
bei unsortierten Daten bekommst du dann ein zufälliges Ergebnis.

If Range("A2").Value

Gruß Daniel

hi
die Variable bolSort muss beim nächsten Aufruf ja den Wert haben, der ihr bei der letzten Ausführung des Makros zugewiesen wurde.
Das funktioniert so nicht, weil so wie du hier die Variable angelegt hast (Dim bolSort innerhalb des Makros) diese Variable bei jedem Start des Makros zunächst einmal leer ist bzw mit False belegt ist (Leer = False bei boolean-Variablen) und die gemachte Zuweisung bei Makroende vergessen wird.
um das von dir gewünschte zu erreichen, darf der Inhalt der Variablen nicht vergessen werden, sondern er muss gespeichert werden.
Dazu gibt es zwei verschiedene Wege
a) Variable statisch anlegen, hierzu "Static" statt "Dim" verwenden:

 Private Sub CommandButton11_Click()
Static bolSort As Boolean
If bolSort Then
Call SortiereOriginaltitelAZ
bolSort = False
Else
Call SortierenOriginaltitelZA
bolSort = True
End If
End Sub

b) Variable als Modul- oder Projektweit gültige Variable anlegen (wurde schon gezeigt)
hierzu muss sie außerhalb des Makros deklariert werden (innerhalb des Makros darf sie dann nicht mehr deklariert werden)

Option Explicit
Dim bolSort As Boolean
Private Sub CommandButton11_Click()
If bolSort Then
Call SortiereOriginaltitelAZ
bolSort = False
Else
Call SortierenOriginaltitelZA
bolSort = True
End If
End Sub

bei Variante b) kann diese Variable auch von anderen Makros verwendet werden, falls dies benötigt wird.
Gruß Daniel

Forumthread: CommandButton mit 2 Makros

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

CommandButton mit 2 Makros

Forumthread: CommandButton mit 2 Makros

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread