Microsoft Excel

Herbers Excel/VBA-Archiv

Colorindex 15 ungleich Colorindex 15 | Herbers Excel-Forum


Betrifft: Colorindex 15 ungleich Colorindex 15 von: Karsten
Geschrieben am: 30.11.2009 22:00:15

Hallo ...

wenn ich in Spalte A bestimmte Zellen mit Colorindex = 15 einfärbe funktioniert u.st. Code:

For Each Bereich In Bereich

If Bereich.Column >= Selection(1).Column Then
If Not Bereich.Column = Selection(1).Column Or Bereich.Row >= Selection(1).Row Then
varRow = Application.Match(Bereich, BereichF, 0)

If IsNumeric(varRow) Then
<b>If BereichF(varRow, 1).Interior.Colorindex = 15 Then</b>
Bereich.Value = ""
If rInfo Is Nothing Then
Set rInfo = Bereich
Else
Set rInfo = Union(Bereich, rInfo)
End If
End If
End If
End If
End If
Next Bereich
.ScreenUpdating = True
End With

Wenn in Spalte A die Zellen den Colorindex = 15 durch bedingte Formatierung erhalten, werden sie von dem Code nicht mehr erkannt. Kann mir jemand diese Unterschiede erklären, obwohl rein optisch sich die Farben nicht unterscheiden?

Danke für eure Hilfe.

Gruß
Karsten

  

Betrifft: AW: Colorindex 15 ungleich Colorindex 15 von: Daniel
Geschrieben am: 30.11.2009 22:13:11

HI

die Bedingte Formatierung hat mit der normalen Zellformatierung nichts zu tun, das wird in Excel völlig anders gemanagt und das Format der Bedingte Formatierung kann auch nicht so ohne weiteres über VBA abgefragt werden.
die normalen Formatwerte der Zelle bleiben erhalten auch wenn sie durch die Bedingte Formatierung ein anderes Format erhält.
Schließlich muss Excel ja auch irgendwo speichern, welches Format die Zelle bekommen soll, wenn keine Bedingung der der Bedingten Formatierung zutrifft.

Gruß, Daniel


  

Betrifft: AW: Colorindex 15 ungleich Colorindex 15 von: Karsten
Geschrieben am: 01.12.2009 06:47:08

Hallo Daniel,

danke.

das Format der Bedingte Formatierung kann auch nicht so ohne weiteres über VBA abgefragt werden
...und mit Weiteres?

Gruß
Karsten


  

Betrifft: AW: Colorindex 15 ungleich Colorindex 15 von: Hajo_Zi
Geschrieben am: 01.12.2009 06:49:12

Hallo Karsten,

http://hajo-excel.de/chCounter3/getfile.php?id=153

GrußformelHomepage


  

Betrifft: AW: Colorindex 15 ungleich Colorindex 15 von: Karsten
Geschrieben am: 01.12.2009 11:12:17

Hallo Hajo,

danke, ich habe jetzt zwei Möglichkeiten, die ich aber selbst nicht zu verwirklichen schaffe (siehe Beispiel)

https://www.herber.de/bbs/user/66302.xls


1. Möglichkeit:
- den Makro Löschen unter Verwendung deines Beispiels so zu schreiben, dass die Zellen, die mit der bedingten Formatierung übereinstimmen, gelöscht werden.

2. Möglichkeit:
- wenn ich den Löschen-Makro so lasse, würde ich gern Markieren_1 und Markieren_2 ....bis zu Markieren_20, immer eine Zeile tiefer, in einem Makro haben wollen. Das bekomme ich aber ebenfalls nicht hin.

Könntest du mir bitte die Möglichkeit, die du für geeignet hältst umbauen?

Danke.

Gruß
Karsten


  

Betrifft: AW: Colorindex 15 ungleich Colorindex 15 von: Hajo_Zi
Geschrieben am: 03.12.2009 07:20:32

Hallo Karsten,

das ist ein Beispiel von meiner Seite fremde Dateien. Ich selber habe zur Zeit nur wenig Zeit fürdas Forum.

GrußformelHomepage


  

Betrifft: Zu dem Thema ist hier und anderswo schon... von: Luc:-?
Geschrieben am: 01.12.2009 01:15:24

...seit Jahren so viel geschrieben worden, dass du leicht mit Recherchieren fündig wirst, Karsten...!
Ganz abgesehen davon, was Daniel hier schon netterweise richtig schrieb — und außerdem gibt's auch noch das Problem, das Index 15 wirklich mal nicht gleich Index 15 ist, was hier ja nicht der Fall ist, weil es sich um eine andere Ebene handelt... ;-)
Gruß Luc :-?


  

Betrifft: AW: Zu dem Thema ist hier und anderswo schon... von: Karsten
Geschrieben am: 01.12.2009 06:48:03

Hallo Luc:-?

danke.
Gruß Karsten


Beiträge aus den Excel-Beispielen zum Thema "Colorindex 15 ungleich Colorindex 15"