List Box zur Suchfunktion erweitern

[AndyExcel77]

Hallo,

ich habe eine Suchfunktion eingebaut die ich per Schaltfläche aktiviere,

ich würde gerne die gesamten Ergebnisse separat in einer List box angezeigt bekommen.

dazu immer die nebenstehenden Werte in den Spalten in meinem fall immer B,C,D in der selben Zeilen höhe mit angezeigt bekommen

hier mein Code

DANKE

 Sub Suchfunktion()
  Dim bFound As Boolean, bCancel As Boolean
  Dim rC As Range
  Dim tAddr As String
  Dim tSearch As String
  tSearch = InputBox("Suche nach:", "Suchen")
  If tSearch = "" Then Exit Sub
  With ActiveSheet.Cells
      Set rC = .Find(tSearch, LookIn:=xlValues)
      If Not rC Is Nothing Then
          tAddr = rC.Address
          Do
              rC.Select
              rC.Interior.ColorIndex = 4
              bCancel = MsgBox("Artikel:" & rC.Value, vbRetryCancel) = vbCancel
              rC.Interior.ColorIndex = 2
              bFound = True
              Set rC = .FindNext(rC)
          Loop While Not rC Is Nothing And rC.Address <> tAddr And Not bCancel
      End If
  End With
  If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub

[AndyExcel77]

PS: ich kann die Suchfunktion nicht ausführen, wenn der Blattschutz aktiviert ist, gibt es hierfür noch Abhilfe ?

DANKE

[Steffl]

Hallo,

hier hast Du doch einen Ansatz erhalten. Und wegen dem Blattschutz. Entferne ihn und setze ihn danach wieder.

[AndyExcel77]

hallo,

ja danke , aber es funktioniert nicht

hier zeigt er mir einen Fehler an

 listbox1.AddItem r.Value

[Steffl]

Hallo,

ich wußte ja nicht, wie deine Listbox heißt darum habe ich sie als ListBox1 bezeichnet. Das mußt Du natürlich anpassen.

[Kuwer]

Hallo,

hallo,

ja danke , aber es funktioniert nicht

hier zeigt er mir einen Fehler an

 listbox1.AddItem r.Value

den Fehler hattest Du dann aber auch schon da, ohne jedoch darauf hinzuweisen.
Es gibt halt keine Variable r, eher rC.

Gruß Uwe

[AndyExcel77]

Hallo,


den Fehler hattest Du dann aber auch schon da, ohne jedoch darauf hinzuweisen.
Es gibt halt keine Variable r, eher rC.

Gruß Uwe

Hey auch mit rC. funktioniert es nicht, die spalte wird mir als Fehler angezeigt..

eine mehrspaltige List box mit ROW Source Eigenschaften wäre wohl auch geeigneter

trotzdem vielen dank für die mühen :=)

[AndyExcel77]

Hallo,

hier hast Du doch einen Ansatz erhalten. Und wegen dem Blattschutz. Entferne ihn und setze ihn danach wieder.

Hallo,

das mit dem Blattschutz funktioniert nicht, bitte um Hilfe.

[Steffl]

Hallo,

wieso sollte das nicht funktionieren?

PHP-Code:

Sub Suchfunktion()
  Dim bFound As Boolean, bCancel As Boolean
  Dim rC As Range
  Dim tAddr As String
  Dim tSearch As String
  tSearch = InputBox("Suche nach:", "Suchen")
  If tSearch = "" Then Exit Sub
  ActiveSheet.Unprotect Password:="Dein Passwort" 'Bitte auf dein tatsächliches Passwort abändern!
  With ActiveSheet.Cells
      Set rC = .Find(tSearch, LookIn:=xlValues)
      If Not rC Is Nothing Then
          tAddr = rC.Address
          Do
              rC.Select
              rC.Interior.ColorIndex = 4
              bCancel = MsgBox("Artikel:" & rC.Value, vbRetryCancel) = vbCancel
              rC.Interior.ColorIndex = 2
              bFound = True
              Set rC = .FindNext(rC)
          Loop While Not rC Is Nothing And rC.Address <> tAddr And Not bCancel
      End If
  End With
  ActiveSheet.Protect Password:="Dein Passwort" 'Bitte auf dein tatsächliches Passwort abändern!
  If Not bFound Then MsgBox "Begriff [" & tSearch & "] nicht gefunden!"
End Sub