Benutzerdefinierte Verkettung von Excel mit Farbbedingung

710
Roman Žydyk

Ich habe diese benutzerdefinierte VBA-Funktion

Public Function concatenatespecial(rng As Range) As String  Dim rng1 As Range  concatenatespecial = ""  For Each rng1 In rng If (Not Rows(rng1.Row).Hidden) And (rng1.Value <> "") And (Not rng1.Interior.ColorIndex = -4142) Then concatenatespecial = concatenatespecial & rng1.Text & "|" End If Next rng1  End Function

Es nimmt alle gelben und nicht leeren Zellen in Reichweite und verkettet es mit "|".

Das Problem ist, dass es nur funktioniert, wenn diese Zellen manuell gefärbt sind. Wenn es durch bedingte Formatierung eingefärbt ist, funktioniert es nicht.

Könntest du mir bei der Lösung helfen?

Bessere Erklärung:

Benutzerdefinierte Verkettung von Excel mit Farbbedingung

0
Ändern Sie `rng1.Interior.ColorIndex` in` rng1.DisplayFormat.Interior.ColorIndex` Scott Craner vor 6 Jahren 2
@ MateJuhasz: Ich bin wenig festgefahren. Meine Bedingung für die bedingte Formatierung lautet: `= AND ('Psaní, nakládka, závoz'! $ I8 =" X "; 'Psaní, nakládka, závoz'! $ H8 =" R ")`. Ich habe versucht, es im VBA-Code anzuwenden: `And (Sheets (" Psaní, nakládka, závoz "). Range (I8) =" X ") Und (Sheets (" Psaní, nakládka, závoz "). Range (H8) = "R") Dann ... Aber es gibt ein Problem mit genau diesem Bereich, denke ich. Wie mache ich es besser? @ScottCraner: Leider funktioniert es nicht. Gibt nur einen Fehler # VALUE aus. Roman Žydyk vor 6 Jahren 0
Vielleicht könnte das irgendwie helfen? [link] (http://www.cpearson.com/excel/CFColors.htm) Roman Žydyk vor 6 Jahren 0
Extrahieren Sie die Farbe möglicherweise mit dem `FormatConditions'-Objekt und testen Sie dann beide Farben (vorausgesetzt, dass eine manuelle Farbe den Rückgabewert von formatConditions nicht beeinflusst)? (https://msdn.microsoft.com/de-de/library/office/ff196650.aspx) Yorik vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme