Makro "zerschossen"

Hallo Excel Experten,
ich habe gestern abend ein Makro dummerweise aus "Experimentierfreudigikeit zerschossen" und weis nun nicht mehr, wo oben und unten ist. Passiert, wenn man einen Code nicht wirklich versteht.
Es sollen die Ergebnisse der Spiele von Blatt "Ergebnisse" den Spielen von Blatt "TagesListe" zugeordnet werden. "Derzeitiger Stand" :


Sub Ergebnisse_TagesListe()
Dim ArZiel, ArQuelle, rngZiel As Range, n&, c&
With Sheets("Ergebnisse") 'Reparatur
Set rngQuell = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 6)
End With
With Sheets("TagesListe") ' Basis
Set rngZiel = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 6)
End With
ArQuelle = rngQuell.Value2
ArZiel = rngZiel.Value2
For n = LBound(ArQuelle) To UBound(ArQuelle)
For c = LBound(ArZiel) To UBound(ArZiel)
If ArZiel(c, 4) = ArQuelle(n, 6) Then
For sp = 8 To 11
Sheets("TagesListe").Cells(c + 1, sp + 0) = Sheets("Ergebnisse").Cells(n + 1, sp + 0) _
Next sp
'  Exit For
End If
Next
Next
End Sub

Kann ein Experte bitte mal auf die Beispielmappe schauen und seine Kompetenz einbringen.
https://www.herber.de/bbs/user/147496.xlsb
Gruss
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

1. verwende "option explicit", dann fallen falsch geschriebene oder nicht definierte Variablen auf.
2. deine Ranges beginnen im Code bei A2+2 Zeilen offset also A4. Aber im 2ten Blatt später. Hier stimmt die Rangegröße nicht. War das auch so vorm Zerschiessen?
3. rngQuell und rngZiel sind nicht notwendig, da sie später nicht benutzt werden. Es würde auch so gehen.


ArQuelle = .Range("A4", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 6).Value

4. Die Spalte zum Vergleich der Quelle ist 4 (D). Da steht aber keine Mannschaft drin. Zudem denke ich das man das nur zuordnen kann wenn man die Kombination Heim und Gast vergleicht. Das sehe ich hier nicht gegeben.


If ArZiel(c, 4) = ArQuelle(n, 6) Then

nur ein Vergleich, Spalte D mit F
Ich glaube das hat nie funktioniert. Soviel kann man sich nicht zerschiessen.
gruß
rb

Dim ArZiel, ArQuelle, rngZiel As Range, n&, c& With Sheets("Ergebnisse") .Range("b10:c" & .Cells(.Rows.Count, "H").End(xlUp).Row).Replace Chr(10), "" Set rngQuell = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 7) End With With Sheets("TagesListe") Set rngZiel = .Range("a2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 7) End With ArQuelle = rngQuell.Value2 ArZiel = rngZiel.Value2 For n = LBound(ArQuelle) To UBound(ArQuelle) For c = LBound(ArZiel) To UBound(ArZiel) If ArZiel(c, 2) = ArQuelle(n, 4) And _ ArZiel(c, 3) = ArQuelle(n, 5) Then For sp = 8 To 11 'Wertespalten Sheets("TagesListe").Cells(c + 1, sp + 0) = Sheets("Ergebnisse").Cells(n + 1, sp + 0) _ Next sp End If Next Next

Option Explicit Sub ergebnis() Dim ArZiel, ArQuelle, n&, c&, sp& Application.ScreenUpdating = False With Sheets("Result_1") .Range("H4:I" & .Cells(.Rows.Count, "H").End(xlUp).Row).Replace Chr(10), "" ArQuelle = .Range("H4:I" & .Cells(.Rows.Count, "H").End(xlUp).Row).Value End With With Sheets("Result_2") ArZiel = .Range("D10:E" & .Cells(.Rows.Count, "D").End(xlUp).Row).Value End With For n = LBound(ArQuelle) To UBound(ArQuelle) For c = LBound(ArZiel) To UBound(ArZiel) If ArZiel(c, 1) = ArQuelle(n, 1) And _ ArZiel(c, 2) = ArQuelle(n, 2) Then For sp = 8 To 11 Sheets("Result_2").Cells(c + 9, sp) = Sheets("Result_1").Cells(n + 3, sp + 3) Next sp End If Next Next End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro "zerschossen"

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread