Fehler in VBA Prg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Alfred,
es ist ein BIschen Code Kata...
Wenn man die Variablen rausschmeisst, die nicht verwendet werden, die With strategischer einsetzt und die Grenzbedingungen in For-Schleife gedacht optimiert, kann man den Code tatsächlich abspecken. Da es auf Version1 basiert, sollte es funtionieren. Ansonsten wären es Tippfehler.
Variabledeklaration (in "Extras", "Optionen") musst Du unbedingt auf erforderlich setzen.

Sub markierung()
Dim a, x, y
Dim hitL%, hitP%
    
    For x = zeileGezogen - Cells(zeileGezogen, 2).Value + 1 To zeileGezogen 'wo kommt zeileGezogen her?
        hitL = 0
        hitP = 0
        For y = 3 To 8 ' wenn überall nur y + 3 verwendet wird, dann direkt in Grenzbedingungen einbauen
            With Cells(x, y)
                For a = 11 To 16
                    If Cells(zeileGezogen, a).Value = .Value Then
                        .Interior.Color = vbGreen
                        hitL = hitL + 1
                        Cells(x, 25) = hitL
                    End If
                    If Cells(zeileGezogen, a + 8).Value = .Value Then
                        .Font.Color = vbRed
                        hitP = hitP + 1
                        Cells(x, 26) = hitP
                    End If
                    If Cells(zeileGezogen, 17).Value = .Value Then
                        .Interior.Color = vbMagenta
                        .Font.Color = vbRedYellow
                    End If
                Next a
            End With
        Next y
        Cells(x, 27).Interior.Color = vbYellow
    Next x
End Sub

VG
Yal

Hallo Alfred,
wir sehen hier jede Menge Frage und jede Menge unterschiedlichen Bedürfnisse und Wissensstände. Es ist nie einfach zu entdecken, welche Motivationen hinter der Frage stehen. Richtige Unbeholfenen und möchte-gerne-Lösung-umsonst-bekommen reihen sich aneinander. Daher kannst Du nachvollziehen, dass deine Frage nicht richtig zugeordnet wurde.
Es freut mich, dass es dir Licht bringen kann, das dir zu weiteren Schritte verhelfen wird.
Zum "With": with ist nichts anderes als "alles was mit einem Punkt anfängt, bezieht sich auf diesem With, mit dem Ziel Wiederholungen zu vermeiden. Also

Cells(x, y).Value

Und

With Cells(x, y)
    .Value
End With

sind absolut das gleiche. In dem Fall macht man aus einer Zeile drei. Was nicht effektiv ist. Hatte man mehreren Cells(x, y). ... nacheinander bringt die Verlagerung in einem with ein leichter lesbaren Code.
VG
Yal

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread