Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Autofilter

Autofilter
14.04.2005 15:59:53
Colosus
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter
14.04.2005 17:14:28
Colosus
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige