Verbundene Zelle .Offset(1, 1) - Problem
19.10.2020 20:22:13
HannesStein
ein Makro namens "Ecke" soll die Zelle rechts unter einer gegebenen Zelle zurückgeben.
Das mache ich mit Offset(1, 1). A1 liefert B2.
Doch leider funktioniert das nicht, wenn die Ausgangszelle zu einer Gruppe verbundenner Zellen gehört. Wie muss die "Ecke" nun geändert werden, damit sie auch in diesem Fall funktionieren. Man kann davon ausgehen, dass die Ergebniszellen keine verbundene Zelle ist.
"Ecke" wird von "Versuch" einmal mit einer verbundenen Zelle und einmal mit einer gewöhnlichen Einzelzelle aufgerufen
Sub Versuch()
Range("A1:C1").Merge
Debug.Print Ecke(Range("A1")).Address
'Ergibt: $D$2 (statt $B$2)
Debug.Print Ecke(Range("A3")).Address
'Ergibt: $B$4
End Sub
Function Ecke(Zelle As Range) As Range
'Die Zelle rechts darunter soll zurück gegeben werden
Set Ecke = Zelle.Offset(1, 1)
End Function
Gruss, Hannes