VBA-Excel Makro-text suchen und finden die nächste benachbarte Zelle

Ich versuche zu schreiben ein VBA-Excel-Makro erstellen Sie einen Algorithmus, mit dem text suchen und finden nächsten benachbarten Zelle zum anzeigen von text in eine msgbox zum Beispiel:

Ich analysiert den Satz "das Gebäude hat eine Pfeife, unter der ersten Etage." in separate Zellen. Mit diesem code:

Sub Module3()
'
' Parse text
'

'
    Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
End Sub

Ist der Satz jetzt analysiert. Sobald ich eine Zelle auswählen, wie kann ich die Anzeige der angrenzenden Zelle in einer msgbox

  1. Text suchen "gebrochen"
  2. Text suchen "gebrochen" und den angrenzenden Wort "Rohr"

InformationsquelleAutor mgrobins | 2013-07-01

  1. 2

    Dies zu tun, was Sie müssen:

    Sub FindPlusOffset()
    Dim ws As Worksheet
    Dim match As Range
    Dim findMe As String
    Dim findOffset As String

    Set ws = ThisWorkbook.Sheets("Sheet1")
    findMe = "broken"

    Set match = ws.Cells.Find(findMe)
    findOffset = match.Offset(, 1).Value
    MsgBox "The adjacent word to """ & findMe & """ is """ & findOffset & """."
End Sub

    Werden Sie wahrscheinlich wollen, um etwas Fehler-handling im Falle das Wort, das Sie suchen ist nicht gefunden. Sie können die ws Objekt, was auch immer Blatt-Namen, mit der Sie arbeiten.

    InformationsquelleAutor Jon Crowell

Schreibe einen Kommentar