Office: VBA - Springen in nächste ungeschützte Zelle ohne TAB/Enter

Hi Helmut,

wie Application.Match den Wert findet weiß ich nicht. Ich will auch gewiss nicht streiten, aber eine Schleife ist immer Zeit-aufwendiger (und Rechenleistung-aufwendiger?) als der direkte Vergleich der Match-Funktion (möglicherweise weil der Prozess dafür eben intern abläuft?). Dass die Schleife länger dauert lässt sich ganz einfach testen: trage in die letzte Zelle einer Spalte einen Wert ein und vergleiche die Zeit, die Excel für die Schleife braucht und die Zeit für Application.Match, um die Zeilennummer zu ermitteln. Sicher macht sich das bei 10-20 Werten nicht bemerkbar, sollte man aber nicht vergessen, vor allem wenn Projekte sehr umfangreich sind. Aber natürlich gibt es Situationen, wo man ohne Schleife nicht auskommt.

Offset funktioniert natürlich nur bei einem zusammenhängenden Bereich. Bei einem diskontinuierlichen Bereich kann man aber trotzdem ohne Schleife die gewünschte Zelle ermitteln:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lngZelle As Long
    Dim rngBereich As Range
    Set rngBereich = Range("A1, A3, A5, C4, C6, C9, C11, D7, D10, D12, D15, E9, E11")
    If Not Intersect(Target.Cells(1), rngBereich) Is Nothing Then
        If Target.Count = 1 Then
            lngZelle = Application.Match(Target.Address, Split(rngBereich.Address, ","), 0)
            If lngZelle = rngBereich.Cells.Count Then
                rngBereich.Cells(1).Select
            Else
                Range(Split(rngBereich.Address, ",")(lngZelle)).Select
            End If
        End If
    End If
End Sub

---

 

Problem ist gelöst, alles funktioniert wie gewünscht.
Vielen Dank an alle, die an dem Projekt mitgearbeitet haben.