Etwas suchen und ausgehend davon etwas referenzieren sind Basics.
Auf diese Frage stößt man jede Woche ein dutzend mal. Sollte also nicht schwer sein da was zu finden.
Dennoch, ... hier:
Option Explicit
Sub Test()
Dim rngCell As Excel.Range
Set rngCell = Worksheets("Tabelle1").UsedRange.Find( _
What:=58, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=XlSearchOrder.xlByRows, _
MatchCase:=False)
If Not rngCell Is Nothing Then
'die Zelle in der der Suchbegriff gefunden wurde
Debug.Print "rngCell : "; rngCell.Address
'Zelle eins links davon
Debug.Print "O(0, -1) : "; rngCell.Offset(0, -1).Address
'Zelle zwei links davon
Debug.Print "O(0, -2) : "; rngCell.Offset(0, -2).Address
'Zelle eins rechts davon
Debug.Print "O(0, 1) : "; rngCell.Offset(0, 1).Address
End If
End Sub
|