Wie vergleiche ich die Adressen von Zellen? Also liegt A7 before A9?
Sorry, bin noch sehr unerfahren.
Sandra
Sub ZellenAdressenVergeleichen()
Dim rngZ1 As Range, rngZ2 As Range
Set rngZ1 = [B5]
Set rngZ2 = [A7]
If rngZ1.Address = rngZ2.Address Then
MsgBox "Zelladressen sind identisch :" & vbLf & rngZ1.Address
ElseIf rngZ1.Row rngZ2.Row Then
MsgBox "Zelle " & rngZ1.Address & " liegt HINTER Zelle " & rngZ2.Address
ElseIf rngZ1.Column rngZ2.Column Then
MsgBox "Zelle " & rngZ1.Address & " liegt HINTER Zelle " & rngZ2.Address
End If
End Sub
Gruß, NoNet