Thema Datum  Von Nutzer Rating
Antwort
24.04.2016 19:28:04 joshua1990
NotSolved
24.04.2016 19:44:59 Gast38699
NotSolved
24.04.2016 19:59:58 Gast84844
NotSolved
Blau 10³ Würfel berechnen
 24.04.2016 21:49:48 Gast70407
NotSolved
25.04.2016 08:18:05 Gast60022
NotSolved
25.04.2016 09:53:06 Gast2687
NotSolved
26.04.2016 15:03:20 Gast53957
Solved

Ansicht des Beitrags:
Von:
Gast70407		 Datum:
24.04.2016 21:49:48		 Views:
1420		 Rating:
     
Antwort:
  Ja
Thema:
10³ Würfel berechnen

Hallo! Also ich vermute mal, dass du nicht viele Antworten bekommen wirst. Das crossposting wird nicht gerne gesehen. :-)  Weiß nicht genau, ob das hilft, aber das wäre eine Möglichkeit auf die schnelle - ist deshalb nicht getestet und evtl. etwas zu lang. Die Zellenzugriffe sind nach dem Seitenaufbau von office-fragen.de aufgebaut (da sah man es am besten). Die Farbewerte müssten ggf. auch noch angepasst werden. Schau mal bitte und prüfe. Wen noch Fragen sind, einfach nochmal melden. Schönen Abend noch

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub matrix()
 
Dim werte   ' deine drei werte
Dim summe As Integer 'die Summe der Schatten
 
werte = Array(1, 4, 6)  'nur als Beispiel - die Eingabe müsste man halt noch klären also A B E
 
'erster Durchgang
 
If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(1), 2 + werte(0)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot
 
'zweiter Durchgang
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(2), 15 + werte(0)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot
 
'dritter Durchgang
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 4 Then summe = summe + 0 'grün
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 6 Then summe = summe + 1 'gelb
If ActiveSheet.Cells(13 - werte(1), 28 + werte(2)).Interior.ColorIndex = 3 Then summe = summe + 2 'rot
 
MsgBox summe 'deine Bewertung
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.04.2016 19:28:04 joshua1990
NotSolved
24.04.2016 19:44:59 Gast38699
NotSolved
24.04.2016 19:59:58 Gast84844
NotSolved
Blau 10³ Würfel berechnen
 24.04.2016 21:49:48 Gast70407
NotSolved
25.04.2016 08:18:05 Gast60022
NotSolved
25.04.2016 09:53:06 Gast2687
NotSolved
26.04.2016 15:03:20 Gast53957
Solved