Office: Zellenfarbe mit Mausklick wechseln und bestimmten wert dann ausgeben

Hallo
Ich bin nicht so fit in VB und kämpfe seit Wochen an diesem Problem!!!

Ich hab eine Tabelle (Es ist wie ein Sehtest zu sehen.) in der z.B. 10 Felder sind, die durch Mausklick (noch nur) grün (Code 43) gefärbt werden, wenn wenn Zelle mit Zeichen erkannt wurde.

Es müssen eine min. Anzahl von Feldern gesehen werden. Wird mehr gesehen ist es gut.
also z.B. 7 sollen gesehen werden aber 9 wurden gesehen, so will ich dann das Feld 8 noch einmal Klicken
und dann soll sich die Zelle hellgrün (code 4) ferben.
Sollte noch einmal auf die Zeile (also 3 mal) geklickt wieder wieder weiß.

Mein Code ist zur Zeit der (in dem wird nur zu dunkel grün und weiß gewechselt):
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Interior.ColorIndex = 43 Then 'dunkel grün
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 43
End If
End Sub

Und wenn das dann funktionieren sollte, soll in der Zeile die hellgrüne Zell erkannt werden und welche hellgrün ist (in meinem Beisp. Zelle 8) und einen Wert in eine Zelle (z.B. in Zelle 12) auswerfen.

Also Zelle 8 = hellgrün dann ist Zelle 12 = Wert x

Wichtig Anmerkung: in meiner Tabelle besteht eine Zell aus 9 Zellen, die zusammengeführt sind (also A1-C1, A2-C2,A3-C3)
Ich benutze Excel 2010

ich habe schon gegooglet und die Sache gefunden das man Zelle 8 einen "Namen definiert ..." und dann den Namen eingibt und
in Bezieht sich auf: =ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";))
eingegeben, aber das "ZS(-1)" brauch ich nicht und bekomme ich nicht umgeändert das der Wert x dort steht und in Zelle 12 angezeigt wird!

Ich hoffe das mir hier geholfen werden kann.
denn ich verzweifel sonst noch und mein PC muss sonst .... ;(

Gruß leo4teo

 

Hallo,

also ich verstehe fast nur "Bahnhof".

Was verstehtst du denn unter "sehen"? Ich sehe immer die gesamte Tabelle, wenn keine Zeilen/Spalten versteckt sind.

Am besten, du stellst hier eine Muster-Tabelle mit einer nachvollziehbaren Erklärung rein, dann sehen wir weiter.

 

Sorry, ich verstehe!
Also ein andere sieht woanders etwas und ich markiere nur auf der Tabelle welche er gesehen hat. Deswegen das beispiel Sehtest.
Zelle1 = A, Zelle2 = B .... und der Seher hat bis Zelle8 gesehen = H. also hab ich auf dem PC die Tabelle in der ich die Zellen anklicke und sie werden grün. Nur das ich jetzt noch möchte das Zelle8 bei nochmaligem Klicken hellgrün werden soll! Und dann z.B. wegen Sehtest den Sehgrad anzeigt weil z.B. Zelle8 den Wert=0,16 entspricht und in Zelle12 angezeigt werden soll.
Würde nur bis Zelle6 gesehen (hellgrün dann) hat die Zelle einen anderen Wert, da schlecht gesehen wurde. (aber nicht auf meiner Excel Tabell, das sind nur Zellen mit Buchstaben oder symbolen, die aber nicht einen Wert entsprechen können).

Hoffe jetzt ist es klarer? Trotzdem schon mal Danke Nemo für deine Hilfsbereitschaft !

 

Also leo4teo,

die tafeln vom Augenarzt/Optiker kenne ich. Und für den Rest brauche ich doch eine Verständnis-Brille ;). Also, stelle doch einfach eine Tabelle ein, wo ich das, was du beschreibst, auch nachvollziehen kann. Ich habe da zwar so eine Ahnung, aber schau'n wir mal.

Prinzipiell habe ich folgendes in meiner Vorstellung:

• Es gibt einen definierten "klick-empfindlichen" Bereich.
• Bei einem Mausklick in eine der Zellen soll die Hintergrundfarbe geprüft werden.
• Je nach Farbe soll dann eine andere Farbe eingestellt werden.

Richtig?

 

Hallo Nemo,
also so sieht die Tabelle aus.
kurze Erklärung: grün sind alle gesehenen Felder. Das Feld drüber oder drunter grün, möchte ich mit erneutem klick auf das
Feld bewirken das es hellgrün wird. (Hier ist es mit Zelleneinferben geschehen, nicht mit Mausklick)

Und in der der Zeile (in der auch der Pfeil rechts ist (oder die Buchstaben auch sind)) soll dann in der Zeile die Zelle ganz links (die längliche Zelle links) erkannt werden welche Zelle hellgrün ist und den Wert von unten anzeigen.
Im Beispiel: erste Pfeil-Zeile wäre es der Wert=0,04 und in der zweiten Zeile der Wert=0,08.

Hoffe jetzt ist es deutlich geworden, was ich vor habe?!?

 

Hallo Nemo, oder wer auch immer hier helfen könnte.

Eigentlich ist es doch egal wie die Tabelle aussieht.
Mein Code:
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If ActiveCell.Interior.ColorIndex = 43 Then 'dunkel grün
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 43
End If
End Sub

Und mit dem kann ich nur zur Zeit zwischen grün und weiß wechseln. Ich möchte aber noch eine dritte Farbe haben!!!

Also 1x rechteMaus = grün, 2x rechteMaus = hell grün und 3x rechteMaus wieder weiß

Bitte nochmals um hilfe, danke
Gruß leo4teo

 

Hi,

ich weiß nicht ob ich ein Anliegen richtig verstanden habe, aber hier mal der Code wie ich deinen Beitrag interpretieren würde:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If Target.Interior.ColorIndex = xlNone Then
      Target.Interior.Color = 52377
   ElseIf Target.Interior.Color = 52377 Then
      Target.Interior.Color = 12379352
   Else
      Target.Interior.ColorIndex = xlNone
   End If
End Sub

Bis später,
Karin

 

Danke Karin
das war´s was ich wollte. Habe nur Target.Interior.Color = 12379352 in Target.Interior.Color = 196533 geändert

Aber nun hab ich noch eine Frage (Problem) und zwar.
Wie oben in der Tabelle zusehen, ist in der unteren reihe die 0,04 hellgrün und es soll nun die Farbe hellgrün (196533) erkannt werden und der Wert 0,04 z.B. in Zelle A1 angezeigt werden.
Oder wenn nur z.B. bis 0,06 hellgrün (0,05 und 0,04 wären dann weiss) der Wert 0,06 in A1 angezeigt wird.
Bekommt man das auch mit VB hin oder nur mit Namen Definierung und dann mit
=ZELLE.ZUORDNEN(38;INDIREKT(.....
hin. Und nur mit der Namen Definierung, komm ich auch nicht wirklich zu einer Lösung.

Hoffe das mir auch hier bei jemand helfen kann.
Danke jetzt schon einmal.
leo4teo

 

Hi,

also mir ist nicht so richtig klar was du machen willst. Du kannst zwar den Code so erweitern, dass beim Rechtsklick und Farbe Hellgrün etwas in A1 geschrieben wird, aber du musst bedenken, dass immer nur der zuletzt geänderte Wert dargestellt werden kann, denn ein bereits vorhandener wird dadurch überschrieben.

Bis später,
Karin

 

Hallo Karin,

also ich erkläre es mal so:
es ist z.B. eine Tabelle von A1-H1 und A4-H4 (32 Felder) und in den Zellen J1, J2, J3 und J4 sind die jeweiligen Werte der Zeile enthalten.
(Werte A=1 , B=2 ... H=8)

Beispiel:
Zeile 1 ist A1-D1 grün und E1 hellgrün, so das J1=5
Zeile 2 ist A2-E2 grün und F2 hellgrün, so das J2=6
Zeile 3 ist A3-C3 grün und D3 hellgrün, so das J3=4
Zeile 4 ist A4 grün und B4 hellgrün, so das J4=2

Und die Fabenänderung erfolgt durch deinen Code mit der rechten Maustaste. DAS FUNKTIONIERT ja schon!
nun soll noch die jeweilige Zeile die Farbe automatisch erkannt werden und in der in diesem Beispiel in der Zelle J den jeweiligen Wert Zeile anzeigen.

Hoffe das es jetzt verständlicher war.

 

Hi,

sorry, auch nicht verständlicher.

Lade doch mal deine Mappe hoch, schreibe in A1 den Wert den du angzeigt haben willst und setze den Cursor in die Zelle, die gerade hellgrün gefärbt wurde und die Grundlage für den Eintrag in A1 sein soll. Dann kann man das vielleicht besser nachvollziehen als anhand dieser "Trockenübungen".

Bis später,
Karin

 

hmm....

Hallo Karin,
hier zu dem Beispiel die Tabelle und die Zelle die hellgrün ist nimmt den Zellenwert der Zeile an.


Sprich, Zellwert bei E1=5 usw.

Jedesmal wenn die Tabelle geöffnet wird sind alle Zellen weiß. dann werden sie nach belieben eingefärbt, aber in einer Zeile
ist immer nur eine Zelle und immer die letzte Zelle der Zeile hellgrün.

Das sollte eigentlich nicht vorkommen, aber wenn doch soll trotzdem der Wert der hellgrünen Zelle angezeigt werden in Zelle J.


Der, der die Idee hat denkt immer das es doch ganz logisch ist was man will, doch die, die die Idee nicht im Kopf vor Augenhaben verstehen die Dinge oft nicht. Und ich bin auch nicht unbedingt der beste Erklär-Bär. ;)

Hoffe Trotzdem das ich meine Idee dir nun deutlich machen konnte.
Danke schon jetzt, für die Mühe dich in meine Gedankengänge hinein zu denken!

Bis Später
Leo4teo

 

Das ist auch nicht ganz verständlich!
Also mit Tabelle öffnen ist gemeint. wenn die Tabelle neu aufgemacht wird ist sie Weiß. und wenn alles ferig markiert und ausgewertet, wird die
Tabelle mit einem neuen namen versehen. Also geöffnet wird Tabelle.xlsx und gespeichert 20130522_Tabelle.xlsx.
Und immer die grund Tabelle Tabelle.xlsx

Das wollte ich noch als Missverständnis aus dem Weg räumen.
Bis Später
Leo4teo

 

diese Bilder sehen aber anders aus als das erste.
Ich hatte außerdem nicht "Bilder" hochladen sondern "Mappe" hochladen geschrieben, denn selbst Excel2010 kann aus einem Bild noch keine Excel-Datei erstellen. Ich kann deshalb auch nicht testen, ob der Code korrekt funktioniert

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If Target.Interior.ColorIndex = xlNone Then
      Target.Interior.Color = 52377
   ElseIf Target.Interior.Color = 52377 Then
      Target.Interior.Color = 12379352
      Range("A1") = Cells(5, Target.Column)
   Else
      Target.Interior.ColorIndex = xlNone
   End If
End Sub

Bis später,
Karin

 

Hallo Karin,
ich hab die Tabelle auch nur vereinfacht. denn ich habe ja keinen Code für diese Funktion.
außer:
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Interior.ColorIndex = xlNone Then
Target.Interior.Color = 52377
ElseIf Target.Interior.Color = 52377 Then
Target.Interior.Color = 195633
Else
Target.Interior.ColorIndex = xlNone
End If
End Sub

aber das ist nur der Farbwechsel. und der läuft.

aber das erkennen welche Zelle hellgrün ist und dann einen Wert an eine andere Zelle weiter gibt.
Und ich weiß nicht wie ich hier eine Mappe Hochladen soll? Geht doch nur Grafik, Video, Email oder Link? aber keine Datei.?

Gruß leo4teo