Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige