Wie wird nach einem Zellenwert mit VBA gefiltert?

477
Suyash

Ich habe zwei Blätter in einer Arbeitsmappe. Ich verwende den folgenden VBA-Code, um die Daten zu filtern:

Sub apply_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("A4").AutoFilter 1, "=001" Next End Sub

Jetzt möchte ich den Wert in Zelle F1 anstelle von 001 verwenden. Wie kann ich den Code ändern?

0
https://superuser.com/users/774984/peterh PeterH können Sie das Problem lösen. Suyash vor 5 Jahren 0

1 Antwort auf die Frage

0
dmb

Das ist ziemlich einfach, probiere es aus:

Sub apply_autofilter_across_worksheets()  ' Updateby Extendoffice 20160623  Dim xWs As Worksheet On Error Resume Next For Each xWs In Worksheets xWs.Range("A4").AutoFilter FIELD:=1, CRITERIA1:=xWs.range("F1").value Next End Sub

Prost

Vielen Dank. Ich habe jedoch viele Arbeitsblätter in derselben Arbeitsmappe und möchte mich auf einmal ändern. Kannst du mir helfen. Suyash vor 5 Jahren 0
@Suyash Sie möchten ein bestimmtes Blatt auswählen? Weil Sie alle Blätter in dieser Arbeitsmappe durchlaufen. dmb vor 5 Jahren 0
Es funktioniert nicht mit anderen Blättern Kannst du mir helfen? Suyash vor 5 Jahren 0

Verwandte Probleme