Bedingte Formatierung fixieren

Tasi · 2023-06-07T23:11:10+00:00

Hallo zusammen Ich habe eine Taskliste mit Makros und bedingten Formatierungen kreiert und bräuchte zu folgendem Problem eure Unterstützung. Wenn die Inhalte der Taskliste ab Zeile 8 mittels Menu "Zeilen löschen" entfernt werden, sind logischerweise auch die bedingten Formatierungen weg. Hier die Tabelle: https://www.herber.de/bbs/user/159501.xlsm Wie kann ich, die bedingten Formatierungen in das Makro "Neuer Task" integrieren, so dass diese immer beibehalten werden? Ein grosses Dankeschön für eure Unterstützung. Tasi

Hi danke für den konstruktiven Vorschlag - den ich leider nicht hinkriege.

Bin deiner Anleitung gefolgt - kriege jedoch dann eine FM "Kompilierungsfehler End Sub erwartet". Habe es versucht zu ergänzen, doch es funktioniert nicht.

Makro:

Sub Neue_Zeile()

   
 With ThisWorkbook.ActiveSheet.ListObjects(1).ListRows.Add
 .Range(2).NumberFormat = "0000"
 .Range(2).Value = .Index
 .Range(15).FormulaR1C1 = "=RC[-12]"
 .Range(15).FormulaArray = "=[@Nr]"
 .Range(16).Value = Date
 .Range(1).Select
 End With
 
End Sub

Sub bed_Form_löschen()
'
' bed_Form_löschen Makro
'

'
End Sub

Habe zwischenzeitlich noch eine unkonventionelle Lösung gefunden:
Wenn die bedForms sowohl für das Arbeitsblatt als auch für die Tabelle erfasst werden - funktioniert es.

Als VBA "Anfänger" würde mich die VBA Lösung für das Makro "neue Zeile" schon noch interessieren. Die Tabelle kann unter https://www.herber.de/bbs/user/159501.xlsm aufgerufen und bearbeitet werden. DANKE

Kann nicht sein. Weisst du denn, wie man Makros aufzeichnet?
Bei MIR kommt das dabei raus:

Sub bedForm_Neu()
'
' bedForm_Neu Makro
'

'
    Cells.FormatConditions.Delete
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""AP"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""MS"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""LP"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .Pattern = xlNone
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""ST"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249946592608417
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""LL"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399945066682943
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Range("A8:K1048576").Select
    Range("A15").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A15=""IM"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399945066682943
    usw
    usw
    usw
End Sub

Etwas länger, oder ?

Arbeitsblatt mit dem Namen 'Übersicht'
	B	C	D	E	F	G
1	FC Prio	FC Gültig für	Interior.Color	Interior.ColorIndex	Interior.TintAndShade	Formel
2	1	L8:M1048576	49407	44	0	=($L8HEUTE())*($C8="O")
3	6	A8:K1048576	26367	46	0	=$A8="RP"
4	7	A8:K1048576	9359529	48	0,399945066682943	=$A8="IM"
5	8	A8:K1048576	14395790	17	0,399945066682943	=$A8="LL"
6	9	A8:K1048576	12566463	15	-0,249946592608417	=$A8="ST"
7	10	A8:K1048576	16777215	-4142	0	=$A8="LP"
8	11	A8:K1048576	10086143	36	0,599963377788629	=$A8="MS"
9	12	A8:K1048576	16777215	-4142	0	=$A8="AP"

Forumthread: Bedingte Formatierung fixieren

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung fixieren

Forumthread: Bedingte Formatierung fixieren

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread