VBA - Suche unter Filterberücksichtigung
31.07.2017 13:04:40
Bernhard
mir fehlt ein kleiner Input, wo im Code ich definieren kann, dass nicht die gesamten Zeilen durchsucht werden, sondern nur in den gefilterten:
Da ich die bereits ausgetretenen User nicht benötige, wurden diese per Filter in der Ansicht ausgeblendet - durchsucht werden leider noch alle Werte.
.SpecialCells(xlCellTypeVisible) ....? wo einbauen?
Sub Search_Client()
Dim lng As Long
Dim wks1 As Worksheet
Dim i
Dim SN
Dim Suche
Dim Zelle As String
Dim iRow As Long
SN = Application.InputBox(" User (Nachname) eingeben:")
Set wks1 = Worksheets("User")
lng = ThisWorkbook.Sheets("User").Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lng
'Spalte angeben, in der gesucht wird (.Cells(i, x)
If InStr(1, wks1.Cells(i, 2).Value, SN, vbTextCompare) Then
'Zelle(n) angeben, welche ausgegeben werden sollen
Suche = Suche & " " & wks1.Cells(i, 1).Value & " | " & wks1.Cells(i, 2). _
Value & " | " & wks1.Cells(i, 25).Value & Chr(13)
End If
Next
'Ausgabe MsgBox
'MsgBox Suche, vbInformation + vbOKOnly, "Client | Zuordnung"
MsgBox Suche, , "Client | Zuordnung"
End Sub