Herbers Excel-Forum - das Archiv

Autofilter

Bild

Betrifft: Autofilter
von: Colosus

Geschrieben am: 14.04.2005 15:59:53
Hallo Profis,
ich stehe gerade vor folgender Aufgabe:
Im Sheet1 wird der Wert der Aktiven Zeile ausgelesen.
Das habe ich hingekriegt:
Dim Zelle As String
Zelle = ActiveCell.Value
Im Sheet2 soll der Autofilter nach diesen Wert sortieren.
Und hier ist mein Problem. Ich komme einfach nicht auf die Lösung.
Ich bin für eure Hilfe dankbar!
Schöne Grüße
Bild

Betrifft: AW: Autofilter
von: Colosus

Geschrieben am: 14.04.2005 17:14:28
Jetzt bin ich etwas weiter:
der Code sieht wie folgt aus:
Dim Zelle As String
Sheets("Projektplan").Activate
Zelle = ActiveCell.Value
Selection.Copy
Sheets("To Do-Liste").Activate
Range("A6").Select
ActiveSheet.Paste
Range("A7").CurrentRegion.AutoFilter _
Field:=1, _
Criteria1:="=" & Range("A6").Value
Was ich aber noch brauche:
1.) wenn Wert = " ", dann eine Msgbox Keine Angaben,
2.) dass ich auch die Unterpunkte gleichzeitig mit sortiere, d.h.
wenn die Zelle den Wert "2.1"enthält und nach ihr sortiert wird,
dass auch gleichzeitig nach den Werten "2.1.?" sortiert wird.
Thanx
 Bild
Excel-Beispiele zum Thema "Autofilter"
Autofilter auch mit Ziffern von Zahlen Zellenwert als Autofilter-Kriterienwert
AutoFilter über mehrere Arbeitsblätter setzen Kopfzelle mit aktivem Autofilter markieren
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen Anzahl der durch Autofilter ermittelten Datensätze anzeigen
Autofilter-Kriterien über UserForm vorgeben Makroaufruf bei Betätigung des Autofilters
Autofilter-Kriterien nach dem Filtern anzeigen Kopfzeile einer Autofilter-Tabelle gelb hinterlegen