Scrollen zur richtigen Zeile

[Rabe]

Hi Andi,

Falls dies nicht geht, könnte ich auch die jeweiligen Zeilen der Spalten F und G mit einer Hilfsspalte verketten und dann nach der dem Verkettungen suchen, richtig?

ja, richtig.

[Andi1965]

Hallo Ralf,

nochmals danke. Eine kleine Bitte, was müsste ich in dem Code verändern, wenn ich die Suchoption "Gesamten Zelleninhalt vergleichen" mit einbinden will. Diese Suchoption gibt es unter Strg-f auch.

viele Grüße
Andi

[Andi1965]

Hi Andi,

Falls dies nicht geht, könnte ich auch die jeweiligen Zeilen der Spalten F und G mit einer Hilfsspalte verketten und dann nach der dem Verkettungen suchen, richtig?

ja, richtig.

Hallo Rallf,

kannst Du mir bitte nochmal  kurz helfen- siehe meine letzten Eintrag.
vg
Andi

[Rabe]

Hi Andi,

kannst Du mir bitte nochmal  kurz helfen- siehe meine letzten Eintrag.

Option Explicit

Sub Suchfunktion()
  Dim bFound As Boolean
  Dim rC As Range
  Dim tAddr As String
  Dim tSearch As String
  Dim loZeile As Long
  
  '    tSearch = InputBox("Suche nach:", "Suchen") 
  tSearch = Range("H7")
  If tSearch = "" Then Exit Sub
  With ActiveSheet.Range("I:I")
     Set rC = .Find(tSearch, LookIn:=xlValues)
     If Not rC Is Nothing Then
        tAddr = rC.Address
        Do
           MsgBox "Gefunden in " & rC.Address(0, 0) & ", Wert: " & rC.Select
           bFound = True
           Set rC = .FindNext(rC)
           loZeile = ActiveCell.Row
        Loop While Not rC Is Nothing And rC.Address <> tAddr
  Range("F" & loZeile).Activate
     End If
  End With
  If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

Mit dieser Tabelle:

Tabelle1

	E	F	G	H	I
6	Suchparameter 1		Suchparameter 2	beide Suchparameter	Hilfsspalte
7	Test	Last		TestLast	Test
8		Mast			Test
9		Tast	Test		TestTest
10		Test	Last		TestLast
11			Mast		TestMast
12			Tast		TestTast
13			Test		TestTest

verwendete Formeln
Zelle	Formel	Bereich	N/A
H7	=$E$7&$F$7
I7:I13	=$E$7&G7

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit