Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
VBA Autofilter
13.02.2017 10:11:28
Matthias
Hallo zusammen,
ich habe in einer Datei zwecks Filterung einen VBA Code hinterlegt (Google Fund) :-).
Dieser Arbeite auch einwandfrei! Allerding möchte ich diesen erweitern und zwar wenn die Zelle $F$2 nicht gefüllt ist, sollen alle Werte angezeigt werden.
Wer kann mir helfen?
Anbei der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
Application.ScreenUpdating = False
Set CellRange = Range("A8:A157")
For Each Cell In CellRange
Cell.EntireRow.Hidden = (Cell.Value = "FALSCH")
Next
Application.ScreenUpdating = True
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Autofilter
13.02.2017 11:56:47
fcs
Hallo Mathias,
z.B. so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellRange As Range, Cell As Range
If Target.Address = "$F$2" Then
Application.ScreenUpdating = False
Set CellRange = Range("A8:A157")
If Target.Text = "" Then
CellRange.EntireRow.Hidden = False
Else
For Each Cell In CellRange
Cell.EntireRow.Hidden = (Cell.Value = "FALSCH")
Next
End If
Application.ScreenUpdating = True
End If
End Sub

LG
Franz
AW: VBA Autofilter
13.02.2017 12:32:35
Matthias
Hallo Franz,
VIELEN DANK!
Gruß
Matthias
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige