Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
704to708
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen herausfiltern

Zeilen herausfiltern
10.12.2005 20:12:34
Martin
Hallo
Aus einer Tabelle mit 325 Zeilen sollen immer die gleichen 27 Zeilen herausgefiltert werden können. Lässt sich das irgenwie mit einem Filter, oder sonst mit einer Fuktion bewerkstelligen? Ich wünsche mir das ich die relevanten Zeilen einmal eingeben muss und dann abspeichern kann. Zukünftig sollte der Filter oder ? aufgerufen werden können um die Zellen jedes Mal herauszufiltern. Die Tabelle ändert von den Werten her immer wieder, sie wird mir wöchentlich zugestellt. Die relvanten Daten befinden sich aber immer in den gleichen Zeilen. Kann mir jemand eine genaue Anleitung auf meine Frage liefern?
Danke und Gruss
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen herausfiltern
10.12.2005 20:25:14
Reinhard
Hi Martin, ungetestet: 
Option Explicit
Sub Makro1()
Dim werte, n As Integer
Workbooks.Open Filename:="C:\Eigene Dateien\Fragen.xls"
werte = Array(6, 8, 99, 100) ' Hier die 27 Zeilennummern intragen
For n = 0 To UBound(werte)
ActiveSheet.Cells(werte(n), 8) = " " 'H=8te Spalte, anpassen
Next n
Range("H1").AutoFilter Field:=1, Criteria1:=" " ' H anpassen
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen
AW: Zeilen herausfiltern
10.12.2005 20:28:28
Peter
Servus,
mal ne einfachere Alternative.
Alt F11, Module einfügen, unten stehenden Code einfügen, Bereich anpassen, den VBA Editor verlassen, mit der Play Taste Makro auswählen (Filteran bzw. Filteraus).
Option Explicit
Private Sub Modus(Status As Boolean, rngEintragen As Range)
rngEintragen.Rows.Hidden = Status
End Sub
Sub Filteran()
Dim myrange As Range
Set myrange = Range("A1,A5,A10,A15") 'Bereich unbekannt, anpassen !
Call Modus(True, myrange)
End Sub
Sub Filteraus()
Dim myrange As Range
Set myrange = Range("A1,A5,A10,A15") ' siehe oben
Call Modus(False, myrange)
End Sub

MfG Peter
Anzeige
AW: Zeilen herausfiltern
10.12.2005 21:08:20
Kurt
Hi,
wenn schon, dann so:
Option Explicit

Private Sub Modus(Status As Boolean)
Dim myRange As Range
Set myRange = Range("A1,A5,A10,A15") 'Bereich unbekannt, anpassen !
myRange.Rows.Hidden = Status
End Sub

Sub Filteran()
Call Modus(True)
End Sub
Sub Filteraus()
Call Modus(False)
End Sub
mfg Kurt
ne ist klar, wird schon wieder ;-) o.w.t.
11.12.2005 12:09:04
Peter
MfG Peter
AW: Zeilen herausfiltern
12.12.2005 16:10:44
Martin
Besten Dank - funtioniert bestens.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige