---

Hallo,

In einer Tabelle sollte Spalte A1-A10 mit Spalte C1-C10 und dem Vorzeichen in Spalte B1-B10 Berechnet werden .
Nach einem Klick auf einen Start Button kann man das Ergebnis in Spalte D1-D10 Händisch eintragen.
NAch dem Klick auf den Fertig Button, sollte er die richtigen Felder grün und die falschen Felder rot
Markieren. Und unten Angeben wieviel Falsch und Richtig waren, und wieviel Zeit man dafür gebraucht hat.
Mit dem Macro recorder stoße ich an meine Grenzen, da ich von Macros keine Ahnung habe. Kann mir hierbei vielleicht jemand bei meinem vorhaben Helfen, wie ich das Lösen kann.

------------------
Gruß  Garry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Rechenaufgabe.txt

Hi Garry,

vielleicht wäre das eine Möglichkeit - siehe Anhang.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

1mal1_test_04.txt

Hallo Karin,

genau das meine ich, nur wie bekomme ich den Code jetzt auf meine Tabelle übertragen. Habe sie dir mal Angehängt. Wenn du mir Eklären kannst wie ich deinen Code jetzt auf meine Tabelle übertragen kann.....wäre echt Super.

------------------
Gruß  Garry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Garry,

es wäre wesentlich einfacher gewesen, wenn du deine Mappe gleich zu Beginn hochgeladen hättest - dann hätte man den Code gleich auf deine konkreten und wesentlich komplizierteren Bedingungen ausrichten können und man hätte sich Zeit und Mühe sparen können. Beachte dies bitte das nächste Mal.

Code:

---

Option Explicit
Dim dblStart As Double
Dim rngZelle As Range
Dim rngBereich As Range

Sub Start()
  Dim intSpalte As Integer
  Set rngBereich = Union(Range("E4:E22"), Range("I4:I22"), Range("Q4:Q22"), Range("W4:W22"), _
      Range("AC4:AC22"), Range("AI4:AI22"))
  For Each rngZelle In rngBereich
      If rngZelle.Interior.ColorIndex <> xlNone Then
        rngZelle.ClearContents
        rngZelle.Interior.Color = 14277081
      End If
  Next rngZelle
  Range("AK4:AL6").ClearContents
  dblStart = Now
  Set rngBereich = Nothing
End Sub

Sub RichtigkeitPruefen()
  Dim lngRichtige As Long
  Range("AK4") = "Zeit"
  Range("AL4") = Now - dblStart
  Range("AL4").NumberFormat = "mm:ss"
  Set rngBereich = Union(Range("E4:E22"), Range("I4:I22"), Range("Q4:Q22"), Range("W4:W22"), _
      Range("AC4:AC22"), Range("AI4:AI22"))
  For Each rngZelle In rngBereich
      If rngZelle.Row Mod 2 = 0 Then
        If rngZelle.Offset(0, 1) = "" Then
            If Application.Evaluate(rngZelle.Offset(0, -4) & rngZelle.Offset(0, -3) & _
              rngZelle.Offset(0, -2)) = rngZelle Then
              rngZelle.Interior.ColorIndex = 4
              lngRichtige = lngRichtige + 1
            Else
              rngZelle.Interior.ColorIndex = 3
            End If
        ElseIf rngZelle.Offset(0, 1) <> "" Then
            If rngZelle <> "" Then
              If Application.Evaluate(rngZelle & rngZelle.Offset(0, 1) & rngZelle.Offset(0, 2)) _
                  = rngZelle.Offset(0, -2) Then
                  rngZelle.Interior.ColorIndex = 4
                  lngRichtige = lngRichtige + 1
              Else
                  rngZelle.Interior.ColorIndex = 3
              End If
            Else
              rngZelle.Interior.ColorIndex = 3
            End If
        End If
      End If
  Next rngZelle
  Range("AK6") = "Richtige"
  Range("AL6") = lngRichtige
  Set rngBereich = Nothing
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Karin,

Sorry .... werde es beim nächstenmal Berücksichten.

Super Danke Klappt ja wie am Schnürchen. Genauso habe ich es mir Vorgestellt.

Danke  

------------------
Gruß  Garry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP