Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Scrollen zur richtigen Zeile
#11
Hi Andi,

(03.06.2016, 14:36)Andi1965 schrieb: 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.
Antworten Top
#12
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
Antworten Top
#13
(03.06.2016, 15:52)Rabe schrieb: Hi Andi,

(03.06.2016, 14:36)Andi1965 schrieb: 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
Antworten Top
#14
Hi Andi,

(07.06.2016, 11:02)Andi1965 schrieb: 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
EFGHI
6Suchparameter 1 Suchparameter 2beide SuchparameterHilfsspalte
7TestLastTestLastTest
8MastTest
9TastTestTestTest
10TestLastTestLast
11MastTestMast
12TastTestTast
13TestTestTest

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

Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste