Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sortierreihenfolge per VBA

Forumthread: Sortierreihenfolge per VBA

Sortierreihenfolge per VBA
06.01.2006 22:04:46
Edwin
Hallo,
ich bin gerade dabei einen Sortier-VBA zu basteln.
Ich bleib grad an meinem VBA hängen.

Sub Sort_checken() 'max. 3 Checkboxen dürfen true sein
Dim oCB As MSForms.Control
SortAnzahl = 0
For Each oCB In FrameSortieren.Controls
If TypeOf oCB Is MSForms.CheckBox Then
If oCB.Value = True Then
SortAnzahl = SortAnzahl + 1
If SortAnzahl > 3 Then
oCB.Value = False
MsgBox "Es sind max. 3 Sortierungen möglich!"
End If
End If
End If
Next
End Sub

Obiger VBA klappt soweit, aber wie kann ich feststellen, in welcher Reihenfolge die Checkboxen gedrückt wurden?
Wäre super, wenn Ihr mir wieder helfen könntet.
Gruß
Edwin
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierreihenfolge per VBA
08.01.2006 14:41:41
Beni
Hallo Edwin,
Gruss Beni

Sub Sort_checken() 'max. 3 Checkboxen dürfen true sein
Dim oCB As MSForms.Control
Dim Cb, k1, k2, k3 As Integer
SortAnzahl = 0
For Each oCB In UserForm2.Controls
Cb = Cb + 1
If TypeOf oCB Is MSForms.CheckBox Then
If oCB.Value = True Then
SortAnzahl = SortAnzahl + 1
If SortAnzahl = 1 Then k1 = Cb
If SortAnzahl = 2 Then k2 = Cb
If SortAnzahl = 3 Then k3 = Cb
If SortAnzahl > 3 Then
oCB.Value = False
MsgBox "Es sind max. 3 Sortierungen möglich!"
End If
End If
End If
Next
lz = Cells(Rows.Count, 1).End(xlUp).Row
ls = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, 1), Cells(lz, ls)).Sort Key1:=Columns(k1), _
Key2:=Columns(k2), Order2:=xlAscending, Key3:=Columns(k3)
End Sub

Anzeige
AW: Sortierreihenfolge per VBA
09.01.2006 09:02:15
Edwin
Hallo Beni,
genauso hatte ich mir das vorgestellt. Vielen Dank!
Gruß
Edwin
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige