Selektierte Spalte, bestimmte Zeilen heraus Filtern und ausblenden

22/02/2011 - 09:58 von RogHB346 | Report spam
*/In dem folgenden Makro möchte ich aus der Selektierten Spalte,
bestimmte Zeilen heraus Filtern und ausblenden./***

*Und nicht nur einen bestimmten Begriff (Text, Zahl, Datum, Uhrzeit usw.
= Universal)
sondern auch die Funktionen ( <> = usw. Universal)*

*Beispiel: Eingabe über InputBox "<= 21.01.11" soll alle Daten anzeigen
die vor dem 21.01.11 liegen.
*

*/Ist das überhaupt möglich?/***

*//**/Wenn Ja, kann jemand diesen Sub eventuell für mich anpassen./***

*/'Spalten aus blenden nach Selektion auf Spalte
Sub Spalten_aus_blenden_nach_Selektion_auf_Spalte()
aktivespalte = ActiveCell.Column
suchwert = InputBox("Suchbegriff eingeben")
Application.ScreenUpdating = False
For I = 1 To Cells(Rows.Count, aktivespalte).End(xlUp).Row
Pos1 = InStr(1, Cells(I, aktivespalte).Value, suchwert, 1)
If Pos1 = 0 Then
Rows(I).EntireRow.Hidden = True
End If
Next I
Application.ScreenUpdating = True
End Sub/***

MfG - Heinz
Zum guten Glück gibt es keine blöden Fragen. Entweder weiß man nach
deren Beantwortung mehr oder man ist im Wissen stehen geblieben.
Anfànger in Excel - Nobodys perfekt (VBA Progm. Excel 2007)
 

Lesen sie die antworten

#1 Claus Busch
22/02/2011 - 11:59 | Warnen spam
Hallo Heinz,

Am Tue, 22 Feb 2011 09:58:01 +0100 schrieb RogHB346:

*/In dem folgenden Makro möchte ich aus der Selektierten Spalte,
bestimmte Zeilen heraus Filtern und ausblenden./***

*Und nicht nur einen bestimmten Begriff (Text, Zahl, Datum, Uhrzeit usw.
= Universal)
sondern auch die Funktionen ( <> = usw. Universal)*



probiers mal mit 2 Inputboxen, eine für das Vorzeichen und eine für den
Wert. Hier ist es so, dass du sowohl einen String als auch einen
Zellbereich als Kriterium eingeben kannst:
Sub Filtern()
Dim i As Integer
Dim Vorzeichen As String
Dim Suche As String

i = ActiveCell.Column
Vorzeichen = Application.InputBox("Vorzeichen eingeben", Type:=2)
Suche = Application.InputBox("Suchbegriff eingeben", _
"Filterkriterium", Type:)
ActiveSheet.UsedRange.AutoFilter Field:=i, Criteria1:= _
Vorzeichen & Suche, Operator:=xlAnd
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen