14.12.2016, 09:20
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
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