Office: Rechnen mit Makro

Hallo VBA'ler!

Ich hätte gern gewußt, ob und wie es mittels Makro möglich ist, meine Aufgabe zu lösen.

Mit den rechten 3 Zahlen soll mit den vier Grundrechenarten versucht werden die höchstmögliche Gesamtzahl zu ermitteln. Bedingung ist, dass die Zahl im linken Bereich vorkommt. Also max. 42 ist. Eine weitere Bedingung ist das die Zahl in einer ungefärbten Zelle stehen muß.


In meinem Beispiel wäre also die höchstmöglich Zahl die "22"

6*3+4=22; 6*4+3=27-geht nicht, da die Zelle rot ist.


Die drei Zahlen wechseln natürlich von mal zu mal, genau so wie die Stellungen der ungefärbten Zellen.


Ich hoffe ich konnte es verständlich erklären.

Danke für eure Hilfe!

gruß
kugelfisch

:)

 

Hallo kugelfisch,

kopiere Dir mal folgenden Code in ein neues MODUL:

Code:

Danach kannst Du in eine beliebig freie Zelle in Deiner Tabelle folgendes eingeben:

=NotRedMax(I3;J3;K3)

Gruß

Gerhard

 

Moin, kugelfisch,

warum eigentlich VBA? Okay, die Funktion zum Auslesen der Hintergrundfarbe der zutreffenden Ergebniszelle... *wink.gif* Und die Formeln stellen keinen Anspruch auf Vollständigkeit.

	I	J	K	L	M	N	O	P
1					13	$F	3	0
2	4	6	3		0	$G	3	0
3					27	$F	3	0
4					21	$G	-4142	21
5					22	$A	-4142	22
6					14	$G	-4142	14

M1 : =I2+J2+K2
N1 : =ADRESSE(1+GANZZAHL(M1/7);WENN(REST(M1;7)=0;7;REST(M1;7)))
O1 : =Hintergrund(N1)
P1 : =WENN(O1=3;0;M1)
M2 : =WENN(I2*J2*K2>MAX(A1:G6);0;I2*J2*K2)
N2 : =ADRESSE(1+GANZZAHL(M2/7);WENN(REST(M2;7)=0;7;REST(M2;7)))
O2 : =Hintergrund(N2)
P2 : =WENN(O2=3;0;M2)
M3 : =I2*J2+K2
N3 : =ADRESSE(1+GANZZAHL(M3/7);WENN(REST(M3;7)=0;7;REST(M3;7)))
O3 : =Hintergrund(N3)
P3 : =WENN(O3=3;0;M3)
M4 : =J2*I2-K2
N4 : =ADRESSE(1+GANZZAHL(M4/7);WENN(REST(M4;7)=0;7;REST(M4;7)))
O4 : =Hintergrund(N4)
P4 : =WENN(O4=3;0;M4)
M5 : =J2*K2+I2
N5 : =ADRESSE(1+GANZZAHL(M5/7);WENN(REST(M5;7)=0;7;REST(M5;7)))
O5 : =Hintergrund(N5)
P5 : =WENN(O5=3;0;M5)
M6 : =J2*K2-I2
N6 : =ADRESSE(1+GANZZAHL(M6/7);WENN(REST(M6;7)=0;7;REST(M6;7)))
O6 : =Hintergrund(N6)
P6 : =WENN(O6=3;0;M6)

Zelle	Nr.: / Bedingung	Format
P1	1. / Formel ist =$P1=MAX($P:P)	Abc
P2	1. / Formel ist =$P2=MAX($P:P)	Abc
P3	1. / Formel ist =$P3=MAX($P:P)	Abc
P4	1. / Formel ist =$P4=MAX($P:P)	Abc
P5	1. / Formel ist =$P5=MAX($P:P)	Abc
P6	1. / Formel ist =$P6=MAX($P:P)	Abc

Code:

 

Danke Euch beiden für die Antworten.

Der sinn dieser Frage war, das ich ein "Brettspiel" in Excel umsetzen will. Und da dieses über Schaltflächen bedient werden soll, habe ich mir gedacht funktioneren Makros am besten.

Die Frage bezieht sich auch nur auf ein Teilproblem. Den Rest will ich allein lösen. Da ich aber noch VBA-Anfänger bin scheitere ich momentan schon an obigen Problem.

Hinweise zur Fragebeantwortung:

- Es soll ein Makro sein
- Die rechten 3 Zahlen sind jeweils Würfelzahlen (1-6)
- Der linke Bereich ist immer konstant, außer die Stellung der roten Felder.


@jinx

zu umständlich, trotzdem danke

@Bamberg

funktioniert nicht so wie ich es brauche


gruß

 

Hallo!

Hat sich erledigt. Habe eine Möglichkeit bekommen die sauber funktioniert.

Thread ist damit zu!