AW: Filter mit Makro setzen
23.10.2014 14:29:15
Rolf.dW
Hallo Jochen,
hier ein kl. Beispiel:
Option Explicit
Sub FLTR_Titel()
Dim inpB As String, name As String
Dim fz As Long
Dim Bereich As Range
BlattschutzNein 'Sub-Routine
Range("HOME").Offset(1, 1).Select
'(Kurz-) Bezeichnung erfassen
inpB = InputBox _
("Bitte den Titel eingeben.", _
"Filterkriterium")
If inpB = "" Then
frmMasterFILTERN.Hide
Exit Sub
Else
With Range("HOME").Offset(-2, 1)
.Offset(-1, 0).Value = "gefiltert nach:"
.Value = "TITEL"
.Font.name = "Miriam"
.Font.ColorIndex = 6
.Font.Shadow = True
End With
End If
'Komplette Bezeichnung suchen
Set Bereich = Range("Titel").Find(inpB, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns)
If Bereich Is Nothing Then
MsgBox "Der Titel konnte nicht gefunden werden."
frmMasterFILTERN.Hide
Range("HOME").Offset(1, 1).Select
Else
name = Bereich.Value
End If
'Filtern
frmMasterFILTERN.Hide
Range("Titel").AutoFilter
ActiveSheet.Range("Titel").AutoFilter Field:=1, Criteria1:=name
For fz = Range("HOME").Offset(1, 0).Row To ActiveSheet.UsedRange.Rows.Count
If ActiveSheet.Rows(fz).Hidden True Then
Range("B" & fz).Select
Exit For
End If
Next fz
BlattschutzJa 'Sub-Routine
End Sub