Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ergebnisauflistung nach festgelegten Bedingungen
#1
Hallo zusammen,

ich stehe vor einer großen Excel-Herausforderung, die ich mit meinem Halbwissen aktuell nicht lösen kann. 

Ich möchte aus dem Tabellenausschnitt die Artikelnummern/Marken rausfiltern, die die entsprechenden Bedingungen erfüllen.

1. Alle Artikel mit mehr als 40 Rückläufen
2. Alle Artikel unter 4,1 Bewertung
3. Beide Bedingungen müssen über beide Monate erfüllt worden sein

Das Ergebnis soll dann in einer anderen Tabelle (Tabellenblatt) aufgelistet werden.

Kann mir jemand helfen?

Vielen Dank schon mal vorab.


Angehängte Dateien
.xlsx   Vorlage_ExcelTabelle_Ergebnisauflistung.xlsx (Größe: 11,42 KB / Downloads: 7)
Antworten Top
#2
Moin Moin,

das geht ganz gut mit PivotTable, siehe Anhang.


Angehängte Dateien
.xlsx   GMG Vorlage_ExcelTabelle_Ergebnisauflistung.xlsx (Größe: 25,67 KB / Downloads: 1)
Beste Grüße
  Günther

Excel-ist-sexy.de
  …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Antworten Top
#3
Hallo Tebo,

ein eher schlichter Ansatz wäre

Code:
Sub tebo()
   lr1 = Sheets(1).Cells(Row.Count, "A").End(xlUp).Row
   For i = 4 To lr1
      lr2 = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row
      If Cells(i, "C") > 4.1 And Cells(i, "E") > 4.1 _
          And Cells(i, "D") > 40 And Cells(i, "F") > 40 Then
         Sheets(1).Range(Cells(i, "A"), Cells(i, "F")).Copy Sheets(2).Cells(lr2, "A")
      End If
   Next i
End Sub

Mfg
Antworten Top
#4
Danke für die Hinweis. Problem konnte ich damit lösen. 

VG
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste