Suchfunktion spezifizieren

Forumthread: Suchfunktion spezifizieren

10.04.2015 16:22:32

Dietmar

Hallo in die Runde,
beigefügt habe ich einmal eine Beispieldatei hochgeladen, in der es eine gut funktionierrende Suchfunktion gibt. Vermutlich habe ich sie hier im Forum erhalten :-)
Ich möchte diese nun wie folgt spezifizieren (habe aber keine Idee, wie ich das angehen sollte):
- Die Suche soll nur in dem Bereich A1:B100 stattfinden (alternativ: Spalte A und B)
- Die Suche soll auch in verborgenen Zellen stattfinden
- Wenn Sucherergebnis in ausgeblendeter Zeile steht, soll Msgbox darauf hinweisen
https://www.herber.de/bbs/user/97009.xls
Vielen Dank vorab und noch einen sonnigen Tag!
LG
Dietmar

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suchfunktion spezifizieren

10.04.2015 17:45:10

Klexy
Toll !

10.04.2015 20:53:31

Dietmar
AW: Suchfunktion spezifizieren

10.04.2015 17:56:50

Daniel
WOW !

10.04.2015 20:55:07

Dietmar

AW: Suchfunktion spezifizieren

10.04.2015 17:45:10

Klexy


Private Sub CommandButton1_Click()
Dim Suchbegriff As String
Dim Weiter
Dim Bereich As Range
Set Bereich = Range("A1:B100")
Suchbegriff = InputBox("Was suchen Sie ?" _
& vbCrLf & vbCrLf & "Sie können auch Teile des Suchbegriffs eintragen.", "Hinweis")
On Error GoTo fehler
If Suchbegriff = "" Then
Range("A1").Select
Exit Sub
End If
For Each b In Bereich
If InStr(1, b.Value, Suchbegriff) > 0 Then
If b.EntireRow.Hidden = True Then
b.Select
MsgBox "In versteckter Zelle  " & b.Address & "  gefunden."
End If
b.Select
Weiter = MsgBox("Möchten Sie weitersuchen?                ", vbYesNo, "Hinweis")
If Weiter  vbYes Then
Exit Sub
End If
End If
Next
fehler:
Weiter = MsgBox("Der Suchbegriff wurde nicht gefunden!", vbInformation, "MLC... damit Sie  _
gut gerüstet sind")
Range("A1").Select
End Sub

Toll !

10.04.2015 20:53:31

Dietmar

Hallo Klexy,
funzt 1A
Vielen Dank!
LG
Dietmar

AW: Suchfunktion spezifizieren

10.04.2015 17:56:50

Daniel

Hi
wenn du in ausgeblendeten Zellen suchen willst, kannst du .FIND nicht verwenden.
Excelfunktionen bearbeiten nur sichtbare Zellen.
probier mal das:

Private Sub CommandButton1_Click()
Dim rngSuch As Range
Dim arrSuch
Dim z As Long, s As Long
Dim Suchbegriff As String
Dim Weiter
Set rngSuch = Range("A1:B100")
arrSuch = rngSuch.Value
Suchbegriff = InputBox("Was suchen Sie ?" _
& vbCrLf & vbCrLf & "Sie können auch Teile des Suchbegriffs eintragen.", "Hinweis")
If Suchbegriff = "" Then
Range("A1").Select
Exit Sub
End If
For z = 1 To UBound(arrSuch, 1)
For s = 1 To UBound(arrSuch, 2)
If LCase(arrSuch(z, s)) Like "*" & LCase(Suchbegriff) & "*" Then
If rngSuch.Cells(z, s).EntireRow.Hidden Or rngSuch.Cells(z, s).EntireColumn.Hidden  _
Then
MsgBox "Produkt im ausgeblendeten Bereich!"
Else
rngSuch.Cells(z, s).Select
End If
Select Case MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
Case vbNo: Exit Sub
Case Else
End Select
End If
Next s
Next z
If z > UBound(arrSuch, 1) Then MsgBox "Suchbegriff nicht gefunden"
End Sub

Gruß Daniel

WOW !

10.04.2015 20:55:07

Dietmar

Hallo Daniel,
ist genauso klasse!
Werde mich nun entscheiden müssen, welche Variante ich nehme.
Mal schaun :-)
Vielen Dank!
LG
Dietmar

Beliebteste Forumthreads (12 Monate)

Forumthread: Suchfunktion spezifizieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread