Sortieren mit bedingten Formatierungen

Private Sub Absteigend() Dim Zeilenanzahl As Integer Worksheets("Dienstplan").Unprotect Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile in Spalte B suchen If ActiveSheet.Name "Dienstplan" Then Exit Sub If ActiveCell.Column > 1 And ActiveCell.Column 5 Then ActiveWorkbook.Worksheets("Dienstplan").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Dienstplan").Sort.SortFields.Add Key:=ActiveCell _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Dienstplan").Sort .SetRange Range(Cells(9, 2), Cells(Zeilenanzahl, 764)) '("B9:ACJ83") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End If Worksheets("Dienstplan").Protect End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andreas,
hallo Margarete
ich denke ich habe jetzt verstanden Warum sich die bedingte Formatierung nicht sortieren laesst!
Das Thema ist für mich Neuland, ich habe damit nie gearbeitet, kenne aber Excel Besonderheiten!
Beim Einrichten der Bedingten Formatierung setzt Excel üblicherweise die Zellangabe in $$ Zeichen.
Dabei handelt es sich um Absolute Bezüge, nicht um Relative Adressen. Absout ist m.W. nicht verschiebbar.
Wenn das stimmt ist eine Lösung die Formatierung mit dem Makro Recorder aufzeichnen, im aufgezeichneten
Makro mit Replace alle $$ zu löschen, und dann das Makro mit jetzt Relativen Adressen noch mal auszuführen!
Probiert es bitte einmal in einer Testdatei aus. Aber bitte nicht im Original! Ich weiss ja nicht ob es klappt?
mfg Piet

Hallo Andreas und Piet,
es ist richtig, dass Excel absolute Bezüge setzt, wenn man mit den voreingestellten Regeln arbeitet. Aber auch hier kann man über ""Regeln verwalten"" zumindest teilweise die dahinter stehenden Formeln bearbeiten. Die kann man erkennen, wenn man das Anlegen der bedForm per Makrorecorder aufzeichnet (siehe Code unten).
So gesehen ist dein Ansatz vermutlich korrekt, Piet: Also $-Zeichen bei den Zeilen raus.
Ich definiere bei aufwendigeren Dateien immer die Formeln manuell. Nachher nochmal auf "verwalten" gehen, damit man eventuelle Excel-Automatismen überlistet.
Trotzdem arbeite ich mit Makros, denn wenn man z.B. manuell etwas verschiebt und nicht den gesamten Bereich erwischt, erstellt Excel automatisch neue Regeln, die aber oft nicht funktionieren.
Hier mal ein gekürztes Makro mit zwei bed.For., das ich in bestimmten Abständen durchlaufen lasse:

Sub Main_1()
Dim varArray As Variant
Dim strSheet As String
Dim lngTMP As Long
'On Error GoTo Fin
Application.ScreenUpdating = False
strSheet = ThisWorkbook.ActiveSheet.Name
varArray = Array("Fertigung", "Techn.Montage")
For lngTMP = LBound(varArray) To UBound(varArray)
With ThisWorkbook.Worksheets(varArray(lngTMP))
If .FilterMode Then .ShowAllData
.Range("B6:B49").Font.Size = 14
'************erst mal alle alten bedingten Formatierungen löschen:
.Cells.FormatConditions.Delete
'************danach neu definieren:
With .Range("A6:H49")
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D6=""x"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.ColorIndex = 19
End With
.FormatConditions(1).StopIfTrue = False
End With
With .Range("A6:L49")
.FormatConditions.Add Type:=xlExpression, Formula1:="=$M6=""na"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.ColorIndex = 15
End With
.FormatConditions(1).StopIfTrue = False
End With
Application.Goto .Range("A1"), True
End With
Next lngTMP
End Sub

Gruß, Margarete

Beliebteste Forumthreads (12 Monate)

Sortieren mit bedingten Formatierungen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread