ich habe wohl eine Anfängerfrage: Über eine VBA-Prozedur wird eine bestimmte Zelle in einem Tabellenblatt selektiert(Suchabfrage). Ich möchte, dass die Zelle, die sich zwei Zellen über und zwei Zellen links von der Ergebniszelle befindet, aktiviert wird. (Beispiel: Ergebnis= c5, aktiviert werden soll a3). Wo in der folgenden Prozedur muss ich welchen Befehl eingeben?
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = InputBox("Bitte Suchbegriff eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Nächsten Fall mit dem eingegebenen Suchbegriff anzeigen?", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Nichts (mehr) gefunden!"
Vielen Dank schon mal für eure Hilfe. Ich hoffe, das ist nicht zu kompliziert.
Gruß
Uli