Suchergebnis mit Offset-Markierung
09.11.2012 19:25:41
Dietmar
Meine Offset-Kenntnisse reichen leider nicht aus.
Wie muss ich den nachfolgenden Code (übrigens von Herbers toller CD) ändern, damit die Zelle markiert wird, die zwei Spalten weiter rechts steht? Mit Offset(, 2) klappt es nicht.
Option Explicit
Sub SuchenFinden()
Dim rng As Range
Dim sBegriff As String, sAddress As String
sBegriff = InputBox( _
prompt:="Bitte Suchbegriff eingeben:", _
Default:="Hallo")
If sBegriff = "" Then Exit Sub
Set rng = Cells.Find( _
what:=sBegriff, _
lookat:=xlWhole, _
LookIn:=xlValues, _
MatchCase:=False, _
after:=ActiveCell)
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!", , _
Application.UserName
Exit Sub
End If
sAddress = rng.Address
rng.Select
MsgBox rng.Address(False, False)
rng.Offset(1).Select
Do
Cells.FindNext(after:=ActiveCell).Activate
If ActiveCell.Address = sAddress Then Exit Sub
MsgBox ActiveCell.Address(False, False)
Loop
End Sub
Vielen Dank!Dietmar aus Aachen