CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

stenbye Nybegynder

14. januar 2014 - 23:26 Der er 4 kommentarer

Automatisk VBA filter

Jeg bruger nedenstående kode (fundet på dette site) til at filtere.

Det virker fint, men i stedet for at filtre efter værdien i E2 i samme ark, vil jeg gerne benytte værdien i E2 i et andet ark. fx ark1.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
Range("C1").AutoFilter Field:=1, Criteria1:=Range("A1").Value
End Sub

Bem.: Field:=1 refererer til et Autofilter's første felt.

På forhånd TAK!!

Synes godt om

finb Ekspert

15. januar 2014 - 16:18 #1

Har ikke lige vba her, men prøv:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2")) Is Nothing Then Exit Sub
sheets("ark1").select
Range("C1").AutoFilter Field:=1, Criteria1:=Range("A1").Value
End Sub

Synes godt om

Flemming Vadet - Smart Office DK Professor

15. januar 2014 - 20:01 #2

Hvis jeg forstår dig korrekt
Så har du en filtreret liste i f.eks. Ark2, og så vil du gerne, at når du retter i Ark1!E2, at filtreringen i Ark2 skal ændre sig - korrekt?
Dette er ikke testet, men nedenståede kode skal være bagved Ark1, hvor du redigerer celle E2. Ret selv til, hvis det hedder noget andet hos dis.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2")) Is Nothing Then
Sheets("Ark2").Range("C1").AutoFilter Field:=1, Criteria1:=Target.Value
End If
End Sub

Synes godt om

stenbye Nybegynder

31. januar 2014 - 10:23 #3

Det virker desværre ikke for mig :(

Synes godt om

Flemming Vadet - Smart Office DK Professor

31. januar 2014 - 14:48 #4

Du er velkommen til at sende filen til mig, så skal jeg kigge på det - mail findes på profilen.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Tæller elev nummer sammen Af lurup i Excel	6	I går 14:35	I dag 09:10
Fjerne hele header-området i Pivot Af Mikkel_W i Excel	1	22/08/202508:46	22/08/202513:37
Kan man det Af viborg2000 i Excel	9	20/08/202521:30	23/08/202515:44
Indsæt billede i celle ud fra en data kilde Af lurup i Excel	3	04/08/202513:17	05/08/202507:50
Omregning af tider Af Peder Lund Nielsen i Excel	4	28/07/202517:55	28/07/202520:52

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS