Problem mit Schleifen

Hallo zusammen,
ich habe mal wieder ein "Problem"
Ich versuche mich momentan mit einer Schleife.
Erstmal zu meinem Programm:
Es ist wie ein Stundennachweis aufgebaut, es werden aus drei Dateien die Stunden zusammengesammelt und sollen dann hier ausgewertet werden.
Im Sheet "Stunden" sind bis zu 1200 Daten.
In Spalte B steht das Datum des Spieles
In C die "Altersklasse"
In D der Gegner
Dann in E kommt der Name des Mitarbeiters
In F die dazugehörige Stundenanzahl
In G der zweite Name
in H die nexte Stundenanzahl usw.
das geht bis AA so .
Ich hab das bisher mit Excel gelöst, also =wenn(A1=Stunden!E2;F2
In dem Tabellenblatt 1 sollen alle Stunden des 1ten Mitarbeiters aufgelistet werden, in A1 steht der jeweilige Name
Da es aber insgesamt biszu 35 "Mitarbeiter" sind, ist das halt ein wirres Meer an Daten und v.a. wird die Datei halt imens groß (meine hat bisher ca 20.000 KB)
Die Stunden werden dann nochmal "Ausgewertet" in 1.Mannschaft und in Nachwuchs. Also habe ich 1,5mio(35*3*1200*12) dieser Wenn-Formeln. Das ist einfach nicht mehr übersichtlich.
Es muss abgefragt werden, ob im sheet Stunden in z.b. E2 der Name mit dem Namen in Sheets "1" Zelle "A1" übereinstimmt, wenn ja, dann müssen die Zellen B2,C2,F2 kopiert und im Sheet "1" eingefügt werden. das muss dann bis E1200 gemacht werden und halt dann bei G2 wieder anfangen.
Ich habe es schon versucht, mit einer Schleife, ich scheitere aber schon kläglich daran, die Zellenabfrage zu bestimmen.
Ich hoffe hier auf etwas Hilfe oder einen Denkanstoß.
Ich habe eine deutlich abgespeckte Datei hochgeladen, welche meine Grundidee verdeutlichen soll, hoffentlich habe ich es etwas erklären können.
https://www.herber.de/bbs/user/132992.xlsx
Grüße
Stefan Hiemer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim wks As Worksheet, b As Boolean Dim lngZeile1 As Long, lngZeile2 As Long Application.ScreenUpdating = False With Worksheets("Stunden") For lngZeile1 = 2 To .Cells(Rows.Count, 5).End(xlUp).Row b = False For Each wks In ThisWorkbook.Worksheets If wks.Range("A1") = .Cells(lngZeile1, 5) Then b = True Exit For End If Next wks If b = False Then MsgBox "Kein Blatt " & .Cells(lngZeile1, 5) & " vorhanden." Else lngZeile2 = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1 wks.Cells(lngZeile2, 1) = .Cells(lngZeile1, 2) wks.Cells(lngZeile2, 2) = .Cells(lngZeile1, 3) End If Next lngZeile1 End With End Sub

Hi Stefan
Fällt mir auf, dass du INDIREKT verwendest, darum sollte folgende Ergänzung ein Unterschied machen:

Application.Calculation = xlCalculationManual
' bestehender Code
Application.Calculation = xlCalculationAutomatic

Warum?
https://www.tabellenexperte.de/excel-im-schneckentempo-volatile-funktionen/
Ersetze INDIREKT durch INDEX.
Die 1,5 Mio. WENN's sind mir gar nicht aufgefallen, da ich mich gleich auf die Schleife gestürzt hatte.
Ich möchte mich Piet anschliessen. Da und dort kann man zwar noch etwas Schleifen-Kosmetik betreiben, aber eine echte Verbesserung erreichst du mit einem Neustart.
Um die Daten zusammenzuziehen und auszuwerten (Tabellenblätter Stunden, Auswertung, Bankdienstler) wäre m.E. Power Query (PQ) prädestiniert. Mindestens die Datenverbindung und die Einteilung in Stunden!AG:AP (Spalte mit Bedingung hinzufügen) wäre damit ein Klacks.
Das Duplizieren der ausgewerteten Daten auf 35 Einzelblätter (so mein Verständnis) ist aus reiner "Daten-Optik" Quatsch. Ich weiss es gibt manchmal Gründe, aber es hat dann nichts mit einer "Auswertung" zu tun.
Ein möglicher Lösungsansatz könnte sein, alle 35 Namen in einer Schleife im Autofilter abarbeiten lassen. Dazwischen z.B. ein PDF-Print einbauen, falls du die Blätter z.B. für Mailversand einzeln brauchst. Oder gleich einen Word-Serienbrief erstellen.
cu
Chris

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread