hätte eine Frage zum Thema bedingte Formatierung aus Zeile XXX in einen neuen
Bereich vereinfacht zu übertragen.
Soll heissen, ich habe einen Zeilenbereich 37:20000 , der mir als Hauptbereich dient ( in diesem ändern sich Werte usw. werden ab u zu mal Zeilen eingefügt, welche gelöscht usw.
Damit die Zuweisung der bed.Formatierung immer schön sauber bleibt, würde ich nach jedem Makro welches mir Zeilen einfügt, löscht oder ... dann eine Art Markierungsreset laufen lassen.
Dies würde folgendermaßen von statten laufen.
Vor dem jew. Makro lösche ich im Hauptbereich zunächst mal alle bed.F.
mit :
[37:50000].FormatConditions.Delete
dann würde entspr. Makro ablaufen und zum Schluß würde ich gerne
irgendwas vereinfachtes ( so es denn so mgl. wäre ) wie ...
[36:20000] = [36:36].FormatConditions
ablaufen lassen wollen ( sprich aus meiner üebrgeordneten Bezugszeile 36 - da die bed. Formatierungen nehmen und diese auf meinen Hauptbereich erneut übernehmen.
Leider bringt .FormatConditions natürlich einen Fehler.
Habt ihr eine Idee, oder wisst zufällig die passende Anweisung die hierzu greift ? Git es da eine Möglichkeit dies üebrhaupt so zu lösen ?
Im Moment helfe ich mir mit folgendem Makro :
Sub Makro1()
Application.ScreenUpdating = False
' Hilfsspalte (Markierungen):
[A37:A20000] = "" ' zuerst alle evtl. vorhandenen M. entfernen
Cells(ActiveCell.Row, 1) = "x" ' aktive Zeile Markieren
[37:50000].FormatConditions.Delete ' Hauptbereich alle bed. Formatierungen löschen
[36:36].Copy ' Bezugsbereich für bed. Formatierungen kopieren und dessen F. übertragen ...
[36:20000].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Application.CutCopyMode = False ' kopierfunktion abbrechen
' von unten beginnend aufwärts nach Markierung suchen u da hin springen
Dim lz As Integer
Cells(20000, 1).Select
lz = Cells(Rows.Count, 1).End(xlUp).Row
Cells(lz, 1).Select
[A37:A20000] = "" ' alle vorhandenen M. wieder entfernen
Application.ScreenUpdating = True
End Sub
Wäre euch sehr dankbar wenn es eine Möglichkeit gäbe das alles auf sozusagen eine Zeile zu reduzieren in der Art wie ...[37:50000].FormatConditions.Delete
[36:20000] = [36:36].FormatConditions
?
LG udo