Daten aus mehreren Sheets filtern und anzeigen lassen

[WillWissen]

Hi,

du hast 'ne PN

[technoente]

Vielen Dank an alle Ratschläge um meine Ausbildung zu retten

Wie könnte ich denn das ganze nun vereinfachen?
Ich habe ja in der Datei versucht es anschaulich darzustellen .
Was ware denn der erste Schritt den ich machen müsste?
"Die sind aber auch ein Grund, die Daten erst einmal vernünftig in eine Tabelle aufzubereiten,"

genau das ist mein Ziel .
Ich möchte einfach eine Auflistung der Daten , einfach nur zum Abgleichen ohne in jedes Blatt einzeln reinzugehen .


ich hoffe ihr könnt mir helfen !
vielen dank vorab für die ganze nette unterstützung !


hier nochmal die Datein diesmal ( hoffentlich) alles gelöscht ( danke nochmal an WillWissen  und Der Steuerfuzzi )

  Excel Auswertungstabelle - Kopie.xlsx (Größe: 24,96 KB / Downloads: 7)

[GMG-CC]

Du hast ja schon einige Ratschläge bekommen, und von mir hast du auch eine PM...

[technoente]

danke dir , ich weiß aber nicht so recht wie ich anfangen soll .
:( gruß

[Der Steuerfuzzi]

Also hier mal ein Code mit dem Du die Daten sammeln kannst:

Code:

Sub DatenSammeln()
Dim wks As Object
Dim sht As Object
Dim cll As Object
Dim rn As Long
rn = 2
Set sht = ThisWorkbook.Sheets("Auswertungstabelle ")
On Error GoTo errhld
Application.ScreenUpdating = False
sht.UsedRange.Offset(1, 0).Cells.ClearContents
For Each wks In ThisWorkbook.Sheets
    If Not wks.Name = sht.Name Then
        For Each cll In wks.Range("B15:B37,N15:N37").Cells
            If cll.Value = "" Then Exit For
            sht.Cells(rn, 1) = wks.Cells(10, "A")
            sht.Cells(rn, 2) = wks.Cells(10, "N")
            sht.Cells(rn, 3) = wks.Cells(10, "S")
            sht.Cells(rn, 4) = wks.Cells(12, "A")
            sht.Cells(rn, 5) = wks.Cells(12, "I")
            sht.Cells(rn, 6) = wks.Cells(12, "Q")
            sht.Cells(rn, 7) = cll.Offset(0, 1)
            sht.Cells(rn, 8) = cll.Offset(0, 3)
            sht.Cells(rn, 9) = cll.Offset(0, 5)
            rn = rn + 1
        Next
    End If
Next
errhld:
Application.ScreenUpdating = True
End Sub

Du musst ggf. den Blattnamen für die Auswertung entsprechend anpassen und die Ausnahme von Blättern anpassen, die nicht einbezogen werden sollen.

[technoente]

Vielen dank für deine Hilfe, wenn ich das Makro anwenden, kommt folgende meldung :
Laufzeitfehler "9":
Index außerhalb des gültigen Bereiches

Dann wenn ich auf Debuggen gehe, makiert er diese spalte :
Set sht = ThisWorkbook.Sheets("Auswertungstabelle"


Einen guten Start in die Woche wünsche ich !

[Der Steuerfuzzi]

Deshalb schrieb ich ja:

Du musst ggf. den Blattnamen für die Auswertung entsprechend anpassen

Anscheinend heißt das Blatt nicht so, wie es im Code steht.

[technoente]

fehler gefunden !
doch hieß es, aber ohne leerzeicvhen zum schluss !
danke dir !!