VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Auto Filter, Bezug auf Zellenwert	02.01.2023 16:18:24	PaulDo
Auto Filter, Bezug auf Zellenwert	03.01.2023 06:12:58	RPP63
Auto Filter, Bezug auf Zellenwert	03.01.2023 09:13:57	PaulDo
Auto Filter, Bezug auf Zellenwert	03.01.2023 13:42:39	Gast69298
Auto Filter, Bezug auf Zellenwert	03.01.2023 19:38:03	PaulDo
Auto Filter, Bezug auf Zellenwert	04.01.2023 11:21:54	PaulDo
Auto Filter, Bezug auf Zellenwert	04.01.2023 12:10:46	ralf_b
Auto Filter, Bezug auf Zellenwert	04.01.2023 18:47:02	PaulDo

Ansicht des Beitrags:

Von:
PaulDo

Datum:
03.01.2023 09:13:57

Views:
323

Rating:

Antwort:

Thema:
Auto Filter, Bezug auf Zellenwert

So in etwa:

Sub KontoNr()
'Autofilter setzen und lösen
Tabelle1.Range("A3").AutoFilter
 
'Filtern: Bestimmter Wert
Tabelle1.Range("A3").AutoFilter Field:=1, Criteria1:="Government"

Dim n As Integer

n = 3
Sheets(1).Select

With Range("A:A").Cells.SpecialCells(xlCellTypeVisible)
    Do Until .Cells(n, 1).Value = ""
        If Cells(n, 1).Value = "Government" Then Cells(n, 1).Offset(0, 3).Interior.ColorIndex = 50
     n = n + 1
    Loop
End With
End Sub

Für Filterwert und Farbe will ich noch Parameter einsetzen. Muss ich noch ausprobieren. Für Verbesserungsvorschläge bin ich offen.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Auto Filter, Bezug auf Zellenwert	02.01.2023 16:18:24	PaulDo
Auto Filter, Bezug auf Zellenwert	03.01.2023 06:12:58	RPP63
Auto Filter, Bezug auf Zellenwert	03.01.2023 09:13:57	PaulDo
Auto Filter, Bezug auf Zellenwert	03.01.2023 13:42:39	Gast69298
Auto Filter, Bezug auf Zellenwert	03.01.2023 19:38:03	PaulDo
Auto Filter, Bezug auf Zellenwert	04.01.2023 11:21:54	PaulDo
Auto Filter, Bezug auf Zellenwert	04.01.2023 12:10:46	ralf_b
Auto Filter, Bezug auf Zellenwert	04.01.2023 18:47:02	PaulDo