Wie bekomme ich die Adresse der benachbarten Zelle?

Question

Ich habe den folgenden VBA-Code, um Vorkommen von "0" in einer folgenden Spalte zu finden:

Für jedes c In Range("B:B")

        If c.Value = "0" Then
            MsgBox "0 gefunden bei " & (c.Address)
        End If
    Next c

Wie kann ich den Code ändern, so dass wenn es eine "0" findet, zum Beispiel auf B6, es C7 anzeigt? Es soll also die diagonale Zelle zur Zelle anzeigen, in der die "0" gefunden wird.

Answer 1

Sie können Offset verwenden

MsgBox "0 gefunden an " & c.Offset(1,1).Address

Die Offset Eigenschaft hat die Form Offset(Zeile, Spalte). Beispiele:

Range("B6").Offset(0,0) // bezieht sich auf Zelle B6
Range("B6").Offset(1,0) // eine Zeile nach unten verschieben (B7)
Range("B6").Offset(0,1) // eine Spalte nach rechts verschieben (C6)
Range("B6").Offset(-1,0) // eine Zeile nach oben verschieben (B5)
Range("B6").Offset(0,-1) // eine Spalte nach links verschieben (A6)

Answer 2

Wie wäre es mit:

        MsgBox "0 gefunden bei " & Cells(c.Row + 1, c.Column + 1)