VBA nach Farben und Werte suchen?

[Klaus]

Einen schönen guten Tag in die Runde

ich würde gern folgendes realisieren:

In den Spalten U bis Y ist eine bedingte Formatierung erstellt.
In U stehen Zahlen. Diese sind unterschiedlich wie auch mehrfach dieselben.
Als Beispiel:
100
100
5
100
20
5

In W stehen unterschiedliche Zahlen.

Die bedingte Formatierung sucht nun in U nach den gleichen Werten und in W nach der kleinsten Zahl dazu - dieser Bereich wird eingefärbt.

Nun sind die relevanten Zahlenbereiche also markiert.

Könnte man nun in U klicken - VBA erkennt um welche Zahlengruppe es sich handelt und löscht alle nicht gefärbten Zellen (U bis W) dieser Zahlengruppe dieser kompletten Spalten?

Da ich weiß, dass ich supertoll erklären kann, hab ich eine Beispielmappe gebaut

Hat jemand vielleicht eine hilfreiche Idee?

Liebe Grüße
Klaus

[atilla]

Hallo Klaus,

du beschreibst schon gut, nur ich bin schwer von Kapéé. :19: 
Die anderen haben ja bisher nie geschrieben, dass sie Dich nicht verstehen.

Nun zu Deinem Problem.
Farben die mit Bedingter Formatierung gesetzt sind, sind nur aufwendig auszulesen.
Ein Code, der das macht, hat mehr Zeilen, als die Codezeilen, die ich bisher für Dich geschrieben habe. Nur damit Du eine Vorstellung hast.
Ist vielleicht etwas untertrieben, aber egal.

Um das Ganze aber trotzdem mit wenig Aufwand lösen zu können, kann man sich an die Bedingung der Bedingten Formatierung halten.
Das hieße, man müsste die Bedingung kennen. Ist das die, die auch in der Beispielmappe eingestellt ist?

Edit:
Ich sehe Orange aber kein Hellgrün in der Datei. Entweder mein Excle stellt es anders dar oder ich muss zum Optiker.
Wäre nett, wenn andere mir mitteilen könnten, wie es mir gesundheitlich geht. :22:

[Klaus]

Hallo Atilla

schön Dich zu lesen - auch wenn es dir scheinbar nicht so gut geht....  :D
also bei mir sind die Felder der Range V:Y hellgrün...

Hab ich mir also mal wieder was tolles überlegt was... hm... wenn das natürlich ein großer Aufwand ist, dann ist das wohl einfacher man sucht die Bereiche von Hand raus.
Oder was ist denn wenn man garnicht nach den Farben guckt, sondern diese Berechnung die die Bedingte Formel benutzt verwendet und alles was größer als die der kleinste Wert (das wäre dann der hellgrüne! ,-) Bereich) löschen würde?
Wäre das vielleicht einfacher umzusetzen?

Japp - so wie das in der Bsp Mappe steht ist das auch im Original.

[Castor]

Was Atilla schreibt, trifft auf die Xl-Versionen vor Xl14/2010 zu, Klaus,
ab letzterer ist das per Subprozedur recht einfach, mit einer UDF in einer Zellformel ggf auch, aber mit einem kleinen Umweg, weil MS den direkten für UDFs in Zellformeln gesperrt hat. Das „Zauber­wort“ heißt .DisplayFormat. Das ist eine objektbegründende Eigenschaft des Range-Objekts, die ebenfalls Eigenschaften wie .Interior.Color u.a. hat, aber stets das aktuelle Format zeigt, also auch das durch Bedingt­Formatierung verursachte.
Gruß, Castor

[atilla]

Hallo Klaus,

ok, da Du mich krank schreibst, kann ich jetzt nicht helfen, muss erst mal zum Arzt. :19: 

Du hast ja schöne Aufgaben. Konntest Du keine andere Bedingung finden?
Theoretisch sind das unendlich viele Farben.

Du müsstest diese Bedingung noch einmal eingrenzen, denke ich.

Im Moment habe ich noch keine Idee. Aber gleich kommt Wicki im KIKA, der hat immer gute Ideen.


Vielleicht verstehe ich es ja wieder nicht richtig

[Klaus]

Hallo Castor, 
danke für den Tip. Aber wenn das für XL Versionen vor 2010 gilt, dann hat der Atilla doch nicht so unrecht. Ich arbeite ja mit 2003 bzw 2007

Atilla ich glaub ich hab mich wiedermal doof ausgedrückt.
Ich versuche das nochmal zu beschreiben:

Lassen wir mal die Farb-Idee ganz aus dem Kopf, dann ist das vielleicht einfacher zu verstehen.
Ich formuliere um

Nehmen wir nocheinmal die Range U:Y

In U stehen Zahlen die mehrfach vorkommen (die Zahlen die mehrfach vorkommen bilden eine "Zahlengruppe"). Das ist glaub ich einfach zu verstehen?!
In W stehen dazugehörige Zahlen... (diese stellen eine Menge dar). Das ist glaub ich auch verständlich.
 
Jetzt wirds interessant:
Nehmen wir nun eine solche Zahlengruppe. Alle Zahlen die in U stehen und 4004 heißen.
Diese Gruppe müsste der code erkennen.
Jetzt guckt er in in Spalte W neben diesen 4004er Zahlen was dort für Zahlen stehen.
Der kleinste Wert ist der, der interessiert.
In unserem Fall ist das die (fast) neben der 4004 stehende 80. Um diese Zeile geht es.
Wenn man jetzt auf irgendeinde 4004 klickt, dann sollen alle anderen Zeilen der Zahlengruppe 4004 gelöscht werden.
In unserem Fall sind das die Zeilen mit der 100, 90 und 85.
Damit ist die Zahlengruppe 4004 bereinigt.

Jetzt könnte man sich die nächste Zahlengruppe anschauen. 
Sagen wir die 101. Hier wäre der kleinste Wert - der, der interessiert - die 50.
Alle anderen Zeilen der Zahlengruppe 101 sollten per Klick auf eine 101er Zahl gelöscht werden.
In unserem Bsp wären das die Zeilen mit der 100, 90, 80, 70 und 60.
Damit wäre auch die 101er Zahlengruppe bereinigt...



Wichtig ist dabei, dass keine ganzen Zeilen gelöscht werden können, sondern nur die Werte aus dem Bereich (U:Y)

So vielleicht?

[WillWissen]

Hi Klaus,

reine Formellösung mit Filterung:

Tabelle1

	U	V	W	X	Y	Z
1	Nummer	Zahl 1	Zahl 2	Zahl 3	Zahl 4	HS
2	2002	10	100			FALSCH
3	101	10	100			FALSCH
4	101	10	90			FALSCH
5	2002	8	90			WAHR
6	4004	5	85			FALSCH
7	101	20	80			FALSCH
8	303	80	100			FALSCH
9	303	30	90			WAHR
10	101	90	70			FALSCH
11	4004	50	100			FALSCH
12	4004	10	90			FALSCH
13	50005	100	100			FALSCH
14	50005	60	90			WAHR
15	1001	30	100			WAHR
16	101	40	60			FALSCH
17	101	90	50			WAHR
18	4004	50	80			WAHR

Formeln der Tabelle

Zelle Formel Z2 {=UND($W2<>"";MIN(WENN($U$2:$U$170=$U2;$W$2:$W$170))=$W2)}

Enthält Matrixformel: Umrandende { } nicht miteingeben, sondern Formel mit STRG+SHIFT+RETURN abschließen!

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Die Spalte U nach der gewünschten Ziffer und die Hilfsspalte nach WAHR filtern und die Inhalte löschen - ist das eine Option für dich? Bei Nichtgebrauch Spalte einfach ausblenden.

[atilla]

So vielleicht?

leider nein, Klaus.

Eher noch weniger. Wenn ich das mache, was ich jetzt verstanden habe, dann würde ich bei klick auf 4004 ohne nach links oder rechts zu gucken
alle 4004 er löschen. Und bei Klick auf 101 sind alle 101 weg, natürlich auch die Inhalte aus den Zellen daneben bis Spalte Y.

[atilla]

:72:

Aua, aua, aua,  jetzt steig ich dahinter.

Günter Vorschlag hat mir die Augen aufgemacht.
Ich habe bisher nur die Bedingte Formatierung in U betrachtet und auch dort die Farben.
Die Feile führten ja auch dahin.

Na, Günters Vorschlag ist doch machbar.
einmal nach dem Wert in U Filtern und dann nach Spalte Y mit Falsch.

Das sollte auch per VBA nach Doppelklick in die Zelle machbar sein.
Magst Du manuell oder per Code und Doppelklick?

Und beim nächsten mal erklärst Du gleich in drei Varianten, was Du möchtest, vielleicht kapier ich es dann auf Anhieb. :19:

Jetzt weiß ich auch, warum ich Dich diesmal nicht verstanden habe. Ich habe Deinen ersten Beitrag gar nicht gelesen, sondern gleich die Datei
runtergeladen und dort die Erklärung angesehen. Im Beitrag hast Du es doch wunderbar erklärt. Wahrscheinlich war ich so nervös, dass ich es diesmal wieder vermassele und habs dann auch vermasselt. Muss nicht zum Optiker aber....

[atilla]

Hallo Klaus,

unten stehenden Code in das Codemodul der Tabelle:

Code:

 If Not Intersect(Target, Range("U2:U170")) Is Nothing Then
   Cancel = True
   bedingt_löschen
 End If
End Sub


Sub bedingt_löschen()
 Dim i As Long, p
 Dim Wert
 Dim rngA As Range
 
 Wert = Selection.Value
 p = Evaluate("=MIN(IF($U$2:$U$170=" & Wert & ",$W$2:$W$170))")
 If IsNumeric(p) Then
   For i = 2 To 170
     If Cells(i, 21) = Wert And Cells(i, 23) <> p Then
       If rngA Is Nothing Then
         Set rngA = Range(Cells(i, 21), Cells(i, 25))
       Else
         Set rngA = Union(rngA, Range(Cells(i, 21), Cells(i, 25)))
       End If
     End If
   Next i
 End If
 If Not rngA Is Nothing Then
   rngA.ClearContents
   Set rngA = Nothing
 End If
 Range(Cells(Selection.Row, 21), Cells(Selection.Row, 25)).ClearContents

End Sub

Ok so?