|
Moin!
Aus deiner Sicht ist das mit dem Crossposting zwar verständlich (möglichst viel INPUT / Ideen) aber die Leute in den Foren machen das ja nur aus Spaß an der Freude. Und wenn die sich dann 1 ,2 Stunden vor ein Problem klemmen das in einem anderen Forum schon gelöst wurde sind die dann (auch verständlicherweise) sauer. Wenn Crossposting, dann ggf. mit verlinken oder wie in einem Forum geschrieben mit anmerken. Dann kann man dort schauen, ob's gelöst wurde oder sich von den Ideen gegenseitig "befruchten". :-) Aber das ist ja nicht das Thema und mir eigentlich auch egal.
Was meinst du mit "welches Feld, Zelle es sich handelt"? Willst du die Farbe oder die Koordinaten davon? Bei der Farbe würde wie im Code gestern abend die Zeile hier reichen. (wie gesagt die Zuordnung basiert auf dem Screenshot und den dort ersichtlichen Zeilen / Spaltenköpfen) A und B stehen dann für deine Zahlen, die du ausgewählt hast.
ActiveSheet.Cells(13 - B, 2 + A).Interior.ColorIndex
Wenn du deinen Wert 0 bis 2 haben willst, müsstest wie gestern die Farben deiner Zellen auswerten (kennen). Das sehe dann so aus:
If ActiveSheet.Cells(13 - B, 2 + A).Interior.ColorIndex = 4 Then msgbox "0"
If ActiveSheet.Cells(13 - B, 2 + A).Interior.ColorIndex = 6 Then msgbox "1"
If ActiveSheet.Cells(13 - B, 2 + A).Interior.ColorIndex = 3 Then msgbox "2"
Kannman auch in if then else packen, kommt dann aber auch auf das selbe raus, sieht nur anders aus.
VG
|