Suchbutton inkl. Suchfunktion
01.04.2016 15:19:47
Alex
Folgendes Problem:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 2 Then
Select Case Target.Row
Case 5, 7, 8
On Error GoTo ERREXIT
Application.EnableEvents = True
Call ZeilenFiltern(Me)
End Select
End If
End If
ERREXIT:
Application.EnableEvents = True
End Sub
Sub ZeilenFiltern(wks As Worksheet)Application.ScreenUpdating = False
With wks
.Rows.Hidden = False
With .Range(.Cells(26, 1), .Cells(Rows.Count, 1).End(xlUp)).Offset(, 1000)
.FormulaR1C1 = "=if(and(rc1=r5c2,rc2=r7c2,rc3=r8c2),0,"""")"
.EntireRow.Hidden = True
If Application.Count(.Cells) Then
.SpecialCells(xlCellTypeFormulas, xlNumbers).EntireRow.Hidden = False
End If
.ClearContents
End With
End With
End If
End Sub Dieser Code funktioniert super und macht genau das was ich möchte!
Jedoch würde ich gern diesen Code in einen Suchbutton integrieren, sodass mir die Zeile (obrige Code) angezeigt wird,sowie Grafiken etc.
Der leider kann ich diesen Code nicht einfach in den Suchbutton kopieren, verstehe aber nicht warum?!
Habt ihr eine Lösung und könnt mir ggf. den Code zukommen lassen?
(Vermute es liegt am Target, aber was kann ich stattdessen verwenden um an Ziel zu kommen?)
Liebe Grüße
Alex