Wie zu range.find ein Wert in einer verbundenen Zelle

Question

Ich habe ein Arbeitsblatt mit verbundenen Zellen (z. B. B2: C3 mit Wert "myValue"). Wenn ich versuche, einen Wert zu suchen, die in einer verbundenen Zelle ist mit

r = ThisWorkbook.ActiveWorksheets.Range("$A:$D").Find("myValue") 
Debug.Print r.Address 

erhalte ich nur die Adresse von anderen einzelnen Zellen mit ähnlichen Werten, aber nicht der fusionierten Zelle.

Wie kann ich das mit VBA? Wenn ich die manuelle Suchfunktion von Excel verwende, findet es den Wert in kürzester Zeit.

Mit freundlichen Grüßen, Harry

EDIT: Wenn ich den Code aus Gary verwende ich bekommen einen Laufzeitfehler 91. Die Variable r Nichts ist.

Answer 1

ein paar Dinge Reinigung:

Sub MAIN() 
    Dim r As Range 

    Call Setup 
    Set r = ThisWorkbook.ActiveSheet.Range("$A:$D").Find("myValue") 
    Debug.Print r.Address 
End Sub 

Sub Setup() 
    Dim rng As Range 

    Set rng = Range("B2:C3") 

    With rng 
     .HorizontalAlignment = xlGeneral 
     .VerticalAlignment = xlBottom 
     .WrapText = False 
     .Orientation = 0 
     .AddIndent = False 
     .IndentLevel = 0 
     .ShrinkToFit = False 
     .ReadingOrder = xlContext 
     .MergeCells = True 
    End With 

    rng.Value = "MyValue" 
End Sub 

Werden Sie die oberen linken Ecke des bekommen verschmolzener Bereich:

Answer 2

sollten Sie MergeArea für solche Fälle verwenden:

Sub test() 
    Dim r As Range 
    Set r = ThisWorkbook.ActiveSheet.[A:D].Find("myValue") 
    Debug.Print r.MergeArea.Address 
End Sub