Zeilen aus Datenbank in neue Tabelle filtern

Bild

Betrifft: Zeilen aus Datenbank in neue Tabelle filtern
von: margit-s
Geschrieben am: 09.10.2003 23:38:21

Hallo,

ich versuche schon eine Weile nachfolgendes zu lösen, es ist mir leider noch nicht gelungen. Kann jemand helfen? Ich würde mich freuen.

Ich habe eine komplexe Datenbank, in der sich bestimmte Zellen (mit Zahlen) automatisch verändern. Bis jetzt habe ich diese Zellen mit einer bedingten Formatierung versehen, so dass sie, wenn sie sich in einem bestimmten Prozentsatz zu einer anderen Zelle der gleichen Zeile verändern, rot hinterlegt sind.

Zur besseren Übersicht, möchte ich die kompletten Zeilen mit den entsprechend veränderten Zellen automatisch in eine separate Tabelle filtern. Hat jemand eine Idee?

Hoffe es ist verständlich erklärt. Hat jemand eine Idee? Freue mich schon jetzt auf Antwort :-)!

Bild


Betrifft: AW: Zeilen aus Datenbank in neue Tabelle filtern
von: K.Rola
Geschrieben am: 10.10.2003 00:54:26

Hallo,

wenn ich dich recht verstehe, ist das Filterkriterium die durch
bedingte Formatierung rot gefärbte Zelle? Wenn ja, wie lautet
die Bedingung?

Gruß K.Rola


Bild


Betrifft: AW: Zeilen aus Datenbank in neue Tabelle filtern
von: MikeS
Geschrieben am: 10.10.2003 12:14:25

Hallo,

anbei die Prozedur.

Komischerweise funktioniert es bei Zellhintergrund ROT perfekt (manuelle Änderung der Hintergrundfarbe), bei bedingter Formatierung klappt es leider nicht.

Frag mich nicht warum, obwohl ich mit Interior.ColorIndex = 3 richtig abgefragt habe,
wie ich zumindest meine.



Option Explicit

Sub ZeilenKopieren()
   Dim wsQuelle As Worksheet, wsZiel As Worksheet
   Dim Bereich As Range
   Dim Startzeile As Byte, Endzeile&, Zeile&
   Dim Startspalte As Byte, Endspalte As Byte, Spalte As Byte
   Set wsQuelle = Worksheets("Tabelle1")
   Set wsZiel = Worksheets("Tabelle2")
   Set Bereich = wsQuelle.UsedRange
   Startzeile = 1
   Endzeile = Bereich.Rows.Count
   Startspalte = 1
   Endspalte = Bereich.Columns.Count
   Application.ScreenUpdating = False
   
   With wsZiel
      .Activate
      .UsedRange.Clear
      .Cells(1, 1).Activate
   End With
      
   wsQuelle.Activate
      
   For Zeile = Startzeile To Endzeile
      For Spalte = Startspalte To Endspalte
         If Cells(Zeile, Spalte).Interior.ColorIndex = 3 Then
            Rows(Zeile).EntireRow.Copy
               With wsZiel
                  .Activate
                  .Paste
                  .Application.CutCopyMode = False
               End With
            ActiveCell.Offset(1, 0).Activate
            wsQuelle.Activate
            Exit For
         End If
      Next Spalte
   Next Zeile
   
   Application.ScreenUpdating = True
End Sub


     Code eingefügt mit Syntaxhighlighter 2.1


Ciao Mike


Bild


Betrifft: AW: Zeilen aus Datenbank in neue Tabelle filtern
von: margit-s
Geschrieben am: 11.10.2003 11:24:49

Hallo und danke schon einmal für die ersten Antworten. Die Formel lautet: Wenn Zellwert ist kleiner als =E5-E5x5%.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeilen aus Datenbank in neue Tabelle filtern"