Filter i excel

Jeg har svaret dig i en tidligere tråd - måske det var en ide at vi forfølger den løsning?

Det kan laves med en makro. Nedenstående makro - som nok skal rettes lidt til - vil vise de rækker med der hører til det bogstav, der skrives i celle A1. Hvis indholdet i A1 slettes vises alle rækker igen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("A1:A" & LastRow).EntireRow.Hidden = False
If Range("A1") = "" Then
GoTo H:
End If
For x = 2 To LastRow
If Cells(x, 1) <> "" Then
A = Cells(x, 1)
End If
If Cells(1, 1) = A Then
Rows(x).EntireRow.Hidden = False
Else
Rows(x).EntireRow.Hidden = True
End If
Next
H:
End If
End Sub

sender du et svar

Du får et svar