Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auflistung nach Kriterien durchsuchen

Auflistung nach Kriterien durchsuchen
Kälberer
Hallo zusammen,
um eine Auswertung über Beanstandungen machen zu können, habe ich eine Eingabemaske erstellt. Über diese füttere ich die die Tabelle im Registerblatt "Gesamt".
Die Seite "Auswertung" soll nun alle angefallenen Beanstandungen eines bestimmten Lieferanten auflisten.
Hierbei sollen alle Kriterien, die auf der Seite "Gesamt" aufgeführt werden, wieder ausgegeben werden, sobald sie von dem in Zelle B2 auf dem Register "Auswertung" genannten Lieferanten verursacht wurden.
Wichtig ist, dass die Anzahl an Beanstandungen insgesamt, sowie auf einen Lieferanten bezogen natürlich variabel sein soll.
Wie kann ich jemandem von euch die Datei zur Verfügung stellen? Dann ist es vielleicht einfacher und ich könnte mir den fertigen Code genau anschauen und versteh es dann vielleicht auch mal...
Vielen Dank schon im Voraus!
Michael

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Klick auf "Forums-Seiten", dann auf "Upload" oT
24.02.2010 13:45:45
Björn
oT = ohne Text
AW: Klick auf "Forums-Seiten", dann auf "Upload" oT
24.02.2010 14:16:09
fcs
Hallo Michael,
derartige Listen-Auswertungen macht man entweder als Pivot-Tabellenbericht/-Auswertung der Eingabe-Daten oder indem man den Autofilter auf die Einagbedaten anwendet.
Eine Auswertung per VBA-Prozedur sollte hier der letzte Ausweg sein.
Gruß
Franz
AW: Klick auf "Forums-Seiten", dann auf "Upload" oT
24.02.2010 14:55:44
Kälberer
Hallo,
leider ist die Datei schon größer als 300kb, etwa 600 kb groß.
Außerdem kenne ich mich leider auch nicht so super mit Pivot Tabellen aus.
Gibts noch ne Alternative euch die Daten zukommen zu lassen?
Gruß
Michael
Zip, Rar o.ä. o.w.T.
24.02.2010 15:01:35
Reinhard

AW: Auflistung nach Kriterien durchsuchen
25.02.2010 08:45:04
Kälberer
Hallo zusammen,
hab mich da wohl etwas blöd angestellt...
Hier der LInk zur Datei:
https://www.herber.de/bbs/user/68238.zip
Wäre cool, wenn mir da jemand helfen könnte.
Michael
Anzeige
Ich hoffe mal für Dich...
25.02.2010 12:33:33
Björn
... dass es sich bei den Daten um "Fantasie"-Namen und Daten handelt.
Sonst bitte sofort Löschung veranlassen...
Da kommt eine Fehlermeldung, wenn ich auf "Beanstandung suchen" Klicke und dann über das X schließe bzw. "Abbrechen" klicke!
Du solltest nach jeder Inputbox prüfen, ob auch wirklich eine Eingabe erfolt ist. Sonst kommt eben so ein Fehler!
Füge folgende Zeile nach Deiner Inputbox ein: 
If lstrAdrSuche = "" Then Exit Sub

Wenn also keine Eingabe erfolgt ist, wird diese Prozedur beendet.
Dann greifst Du im Code auf ein Blatt "Adressen" zu, das in Deiner Datei nicht vorhanden ist, also kann ich nicht weiter testen.
Dein eigentliches Problem mit der Auswertung ist nichts anderes wie ein SVERWEIS bei mehrfach vorkommendem Suchkriterium.
Dazu verweise ich gerne mal auf diese Seite:
http://www.excelformeln.de/formeln.html?welcher=28
Mehr ist das nicht...
Gruß
Björn B.
Anzeige
AW: Auflistung nach Kriterien durchsuchen
25.02.2010 12:37:50
fcs
Hallo Michael,
ein Auswerte-Makro schaut etwa wie folgt aus.
Gruß
Franz 
Sub Auswertung()
Dim wksGesamt As Worksheet, wksAusw As Worksheet
Dim ZeileG As Long, ZeileA As Long
Dim sLieferant As String
Set wksGesamt = Worksheets("Gesamt")
Set wksAusw = Worksheets("Auswertung")
Application.ScreenUpdating = False
With wksAusw
'vorhandene Daten in Auswertung löschen
If .Cells(.Rows.Count, 1).End(xlUp).Row >= 5 Then
.Range(.Rows(5), .Rows(.Cells(.Rows.Count, 1).End(xlUp).Row)).ClearContents
End If
'Zeile unterhalb der gesuchte Daten eingetragen werden sollen
ZeileA = 4
'Name des auszuwertenden Lieferanten einlesen
sLieferant = .Range("B1").Value
End With
With wksGesamt
'in Gesamtliste Zeilen mit Lieferant suchen und in Auswertung kopieren
For ZeileG = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(ZeileG, 1) = sLieferant Then
ZeileA = ZeileA + 1
.Rows(ZeileG).Copy Destination:=wksAusw.Cells(ZeileA, 1)
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige

299 Forumthreads zu ähnlichen Themen

Summwenn mit mehreren Arbeitsblaettern/Kriterien
Alex

Hallo @ all
Ich habe mal wieder ein Problem:
Ich habe die Arbeitsblaetter 1-31 und moechte von dort jeweils die Werte aus den Zellen G2:G32 summieren wenn Die Zellen A und B jeweils eine entsprechende Bedingung erfuellen.
Bisher arbeitete ich nur mit einer Bedingung in den Zellen de...
12.08.2008 13:20:00
Thread-ID: 1001177
4 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
Anzeige
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
Liste mit 2 Kriterien sortieren...
Uwe

Guten Abend an Alle,
brauche mal Hilfe bei der sortierung einer liste.
In F1 soll der beste Spieler aus der Liste angezeigt werden, der die kürzeste Zeit benötigt hat, und dabei am wenigsten Fehler gemacht hat.
...wie kann man sowas machen.
Mit der Funktion Rang und KKleinste ha...
19.10.2008 20:47:00
Thread-ID: 1017528
7 Beiträge
Suchen in Matrix nach 2 Werten mit einer Funktion
Heix

Hallo zusammen, habe gerade die Gesamt-CD von Herrn Herber erhalten und habe nun auch schon die erste Frage:
Ich möchte in einer Zelle den Wert aus einer Matrix übernehmen lassen und zwar wie folgt:
Matrix:
Lampe Brutto Netto
-------- -------- -------
EGES.....24.......18
28.11.2008 11:24:00
Thread-ID: 1028631
5 Beiträge
Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Vergleich Wert aus Formel mit Zahl über VBA Code
Maja

Hallo,
ich habe als VBA-Anfänger ein Problem, an dem ich mir die "Zähne ausbeiße".
Ich möchte die Summe aus zwei Zellen (z.B. AD7 und AE7), die jeweils eine Formel enthalten mit einer Zahl aus einer dritten Zelle (z.B. AE2) vergleichen. Ist die Summe von AD7 und AE7 nun größer als die Z...
09.12.2008 18:38:21
Thread-ID: 1031489
7 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
5
4
1
3
6
4
7
6
2
3
9
6
2
6
7
9
4
4
3
3
2
6
8