Office: Wenn Zelle richtig dann aktiviere ander Zelle

Hallo Excelspezies,
Benutze Office-Excel 2013
Ich konstruiere ein Übungsprogramm für die Artikelbestimmung. Wenn ich in die Zelle C6 den richtigen Artikel schreibe sollte nach Enter die Zelle H6 aktiviert werden. Danach sollte bei richtiger Eingabe in die Zelle H6 nach Enter die Zelle C7 aktiviert werden. usw. Bei falscher Eingabe sollte die aktive Zelle weiter aktiv bleiben. Also wenn ich in Zelle C6 ein falsches Wort schreibe soll die Zelle C6 weiter aktiv bleiben nach Enter, wie auch die anderen Zellen in die ich was eintrage. Bisschen kompliziert beschrieben....mache ein Übungsprogramm für deutsche Grammatik.
Die Spalten B und G sind ausgeblendet beim Üben.
In den Zellen der Spalte "E" steht =WENN(C6="";"";WENN(C6=B6;"richtig";FALSCH)) usw.
In den Zellen der Spalte "J" steht =WENN(H6="";"";WENN(H6=G6;"richtig";FALSCH)) usw.

Mit diesem Code erreiche ich nur das bei falscher Eingabe die aktive Zelle weiter aktiviert bleibt bis die richtige Eingabe erfolgt, danach wird die nächste Zelle in dieser Spalte(3) aktiviert.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 3 Then
Zeile = ActiveCell.Row - 1
If Zeile > 0 Then
If Cells(Zeile, 3).Value <> Cells(Zeile, 2).Value Then Cells(Zeile, 3).Activate
End If
End If

Kann da jemand helfen?

Gruß Monkee

 

Hi,

versuche es mal mit folgendem Code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngLetzte As Long
    Dim rngBereich As Range
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
    Set rngBereich = Union(Range(Cells(6, 3), Cells(lngLetzte, 3)), Range(Cells(6, 7), Cells(lngLetzte, 7)))
    If Not Intersect(Target, rngBereich) Is Nothing Then
        If Target.Offset(0, 2) = "richtig" Then
            If Not Intersect(Target, rngBereich.Areas.Item(1)) Is Nothing Then
                Target.Offset(0, 4).Select
            Else
                Target.Offset(1, -4).Select
            End If
        Else
            Target.Select
        End If
    End If
    Set rngBereich = Nothing
End Sub

Bis später,
Karin

 

Hi Karin,
soweit ist das gut, musste die Zeilen
Target.Offset(0, 4).Select
Else
Target.Offset(1, -4).Select
auf

Target.Offset(0, 5).Select
Else
Target.Offset(1, -5).Select

umändern damit es auf die nächste Antwort springt.
Nun passiert aber, dass bei richtiger Antwort die untere Zelle in Spalte 8 springt, Also von 6,8 nach 7,8. Es sollte aber nach 3,8 springen.
Nun wollte ich die Sache mit dem nächsten Block erweitern.....zu hoch für mich...leider.
Kannst du noch mal helfen. Ist für meine polnische Frau die gerade einen deutschen Kurs besucht.
Habe mal die Datei mit reingestellt.
Gruß Günter

 

Hi,

sory, mein Fehler - Spalte H ist 8 nicht 7. Ändere diese Zeile:

Code:

    Set rngBereich = Union(Range(Cells(6, 3), Cells(lngLetzte, 3)), Range(Cells(6, [B][COLOR=#ff0000]8[/COLOR][/B]), Cells(lngLetzte, [B][COLOR=#ff0000]8[/COLOR][/B])))

Bis später
Karin