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
(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
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 | 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 |