Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
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
Inhaltsverzeichnis

Autofilter unter Autofilter setzen

Autofilter unter Autofilter setzen
Steffen
Guten Morgen,
folgendes Problem wiedermal :-(
in der angehängten Datei ist ein Autofilter für Zeile 4 festgelegt. ich benötige allerdings theoretisch noch einen zweiten Autofilter, denn ich möchte nicht nur in Spalte D nach Händlern filtern, sondern auch in Spalte K nach NICHT belegten Zeilen. Hat den Hintergrund, dass die Händler, welche diese Liste bekommen (also den Auszug), nicht daran interessiert sind, was bereits ausgeliefert wurde, sondern was noch ausgeliefert werden soll.
wie kann ich per VBA in der Spalte (die sich übrigens dynamisch ändert :-( ) "Auslieferung Fahrzeug IST" die Zeilen anzeige, deren Zelle in der Spalte "Auslieferung Fahrzeug IST" den Inhalt Null hat.
Hoffe das war halbwegs verständlich
Hier der Download: https://www.herber.de/bbs/user/69091.xls
Grüße Steffen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: arbeite ohne verbundene Zellen...
15.04.2010 09:28:15
Steffen
hmm, an sich ein guter Vorschlag. Die Tabelle https://www.herber.de/bbs/user/69091.xls
wird allerdings durch ein Makro erstellt. Ich bin heilfroh, dass es jetzt so funktioniert, wie es soll. Es muss doch möglich sein, einen Code einzubauen, der jede Zeile löscht, wenn "Auslieferung Fahrzeug IST" leer ist und in "Fabriknummer"KEINE ZAHL steht.
ACHTUNG: Auslieferung Fahrzeug IST wäre auch leer, wenn ein neuer Monat beginnt. In dem Falle steht dann in der Spalte Fabriknummer der Monat. Diese Zeile darf dann nicht gelöscht werden.
Gruß Steffen
Anzeige
AW: arbeite ohne verbundene Zellen...
15.04.2010 10:37:54
Reinhard
Hallo Steffen,
Sub Loesch()
Dim Zei As Long, Zelle As Range
With Worksheets("temp")
Set Zelle = .UsedRange.Find("Auslieferung Fahrzeug")
If Not Zelle Is Nothing Then
For Zei = .Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1
If .Cells(Zei, Zelle.Column + 2) = "" Then
If IsNumeric(.Cells(Zei, 1).Value) Then Rows(Zei).Delete
End If
Next Zei
End If
End With
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige