Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchergebnis mit Offset-Markierung

Suchergebnis mit Offset-Markierung
09.11.2012 19:25:41
Dietmar
Hallo zusammen,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchergebnis mit Offset-Markierung
09.11.2012 19:30:51
Hajo_Zi
Hasllo Ditmar,
rng.offset(0,2).Select

noch nicht ganz
09.11.2012 21:19:00
Dietmar
Hallo Hajo,
vielen Dank!
Habe *rng.select* geändert in *rng.offset(0, 2).Select*
In der Beispieltabelle sind 3 Zellen mit *Hallo* beschriftet.
Wenn ich dann den Suchvorgang starte, funktioniert es bei der 1. Fundstelle, die anderen beiden Suchergebnisse werden dann wieder direkt markiert.
Lässt sich das auch noch anpassen?
Viele Grüße
Dietmar

AW: noch nicht ganz
10.11.2012 10:59:55
Hajo_Zi
Hallo Dietmar,
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Cells.FindNext(after:=ActiveCell).offset(0,2).Activate
Gruß Hajo
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige