Makro Sortierung mit Kontrollkästchen

Hi zusammen,
In einer Tabelle mit Nebenkosten, die ich bisher mit 0 und 1 als bezahlt bzw offen markiert hatte, habe ich nun Kontrollkästchen hinzugefügt und dabei die Option "Objektpositionierung: Von Zellposition und Größe unabhängig" eingestellt, damit die Kästchen bei einer Sortierung der Tabelle an der gleichen Stelle bleiben, aber die Zellbezüge aktualisiert werden. Wenn ich die Tabelle manuell sortiere, dann funktioniert das auch wunderbar.
Da ich nicht so gute VBA Kenntnisse habe, habe ich ein Makro aufgezeichnet, um den Sortiervorgang mit einem Knopfdruck auszuführen. Dabei werden die Kontrollkästchen aber nicht korrekt behandelt sondern verschieben sich. Also manuelle Sortierung HUI, aufgezeichnete Makro Sortierung PFUI
Ich habe hier auch ein kleines Demo Excel (mit Makros) hochgeladen, dass das Problem demonstriert.
https://www.herber.de/bbs/user/149931.zip
Wem das zu riskant ist (kann ich verstehen :) der kann das aber einfach selbst nachstellen. In dem Demo Excel sind in Spalte A drei Zeile mit den Werten 1, 2 und 3. In Spalte B drei Kontrollkästchen. Wenn ich jetzt manuell nach Spalte A sortiere, werden die Bezüge der Kontrollkästchen geändert, alles supi.
Diesen Sortiervorgang habe ich dann mit dem Makro Recorder in dem Makro "TEST" aufgezeichnet, bei dieser Aufzeichnung funktioniert die Sortierung auch noch so wie sie soll. Nur wenn ich danach die Sortierung über das Makro ausführe, werden die Kontrollkästchen mit sortiert und die Bezüge nicht geändert. Die Kästchen verhalten sich danach auch etwas seltsam. Einfach mal selber ausprobieren. Und biiitte eine Lösung posten.
Danke schön!!
Hier noch das aufgezeichnete Makro aus meiner Original Excel zur Sortierung. Ich sortiere nach 3 Spalten. Da fehlt vermutlich -hoffentlich- nur ein Parameter, der bei der manuellen Sortierung gesetzt ist, bei der Aufzeichnung aber nicht ins VBA Script mitgeschrieben wird


Sub Nebenkosten_sortieren()
' Nebenkosten_sortieren Makro
' Tastenkombination: Strg+n
Application.Goto Reference:="Nebenkosten"
ActiveWorkbook.Worksheets("NEBENKOSTEN").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("NEBENKOSTEN").Sort.SortFields.Add2 Key:=Range( _
"E2:E28"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("NEBENKOSTEN").Sort.SortFields.Add2 Key:=Range( _
"C2:C28"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("NEBENKOSTEN").Sort.SortFields.Add2 Key:=Range( _
"B2:B28"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("NEBENKOSTEN").Sort
.SetRange Range("A1:V28")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hakan,
Löblisch, dass Du solche scheinbare Verbesserung versuchst, aber es wäre fahrlässig, dich nicht zu warnen, dass Du viel unnötige Komplizierung in deinem Excel reinbringt. Excel erlaubt sehr viel, aber nicht alles davon ist sinnvoll und es gibt sogar vieles, was sehr schnell zu einem Klotz am Bein wird.
Zuerst die Lösung (bzw. Workaround), dann die Erklärung:
Anstatt diese Checkbox (u.a. gefährlich, weil zu schnell verklickt "äh? habe ich die richtige erwicht? was war davor"), setze lieber eine Datenüberprüfung (Menü "Daten", "Datenüberprüfung") mit Liste "Ja;Nein", "Todo;Erledigt", "Rot;Grün;Blau", was auch immer. Dann hast Du einen Dropdown, die man bewusst und reflektiert anklicken muss. Diese Funktion ist Teil der Zelle und wird mitkopiert. Wenn Du eine "intelligente" Tabelle verwendest ("Einfügen", "Tabelle") nimmt jede neue Zeile sofort diese Einstellung mit. Es stört auch die Sortierung nicht.
Warum nicht Checkbox?
Es gibt einige Konzept, die sich in den letzte 50 Jahren bewährt haben. Ein wesentliche davon ist "Modell-View-Controller": trenne und halte die drei Aspakte Datenhaltung (Modell), Datenpräsentation (View) und Datenverarbeitung (Controller) ausseinander. Nur so hast Du eine langfristige stabile Datenapplikation.
Die Checkbox sind teils Präsentation, teils Verarbeitung (Dateneingabe), teils Datenhaltung, weil direkt mit der Wert gebunden. Wie gesagt, Excel erlaubt und begünstigt diese Mischung. Es verlangt Disziplin, sich nicht gehen zu lassen. Sonst kommst Du schnell in der Situation, wo Du erklären muss, warum es so lang dauert, warum es unflexibel, warum es fehlerhaft, nicht übertragbar, erweiterbar, und, und, und.
Nicht desto trotz: zum Spielen/Probieren ja, zum Arbeiten lieber nicht.
VG
Yal

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set Target = Target.Range("A1") If Not Intersect(Target, Range("B1:B10")) Is Nothing Then Target = Not CBool(Target.Value) Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Set Target = Target.Range("A1") If (Not Intersect(Target, Range("A3:A50")) Is Nothing) Or _ (Not Intersect(Target, Range("F3:F50")) Is Nothing) Or _ (Not Intersect(Target, Range("H3:H50")) Is Nothing) Or _ (Not Intersect(Target, Range("J3:J50")) Is Nothing) Then Target = Not CBool(Target) Cancel = True End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = Not Intersect(Target, Range("A3:A50,F3:F50,H3:H50,J3:J50")) Is Nothing If Cancel Then Target = Not CBool(Target.Value) End Sub

Beliebteste Forumthreads (12 Monate)

Makro Sortierung mit Kontrollkästchen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Sortierung mit Kontrollkästchen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread