Sortieren mit bedingten Formatierungen

Hallo,
Ich habe mal wieder ein Problem.
Ich habe einen Kalender für ein Dienstplan erstellt. Die Samstage, Sonn- und Feiertage werden durch bedingte Formatierungen farblich gekennzeichnet. Die Dienste werden über VBA mit festen Farbformatierungen eingetragen. Dabei werden die bedingten Formatierungen wieder gelöscht, weil sonst die festen an Samstagen Sonn- und Feiertagen durch die bedingten nicht angezeit werden. Wird ein Dienst wieder (per VBA) gelöcht, wird die bedingte Formatierung wieder auf die Zelle kopiert.
Bis hier funtioniert alles einwandfrei.
Wenn ich aber die Tabelle sortiere (auch über VBA) entsteht in den Formatierungen Chaos, da die bedingten Formatierungen nicht mitsortiert werden sondern ihre Position behalten.
Wie können die bedingten Frmatierungen mit sortiert werden?
Hier einer meiner Sortiercodes:


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

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

Sortieren mit bedingten Formatierungen

Forumthread: Sortieren mit bedingten Formatierungen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial