Daten vergleichen und zuordnen

Hallo Excel,- VBA Profis,
ich habe mal wieder so ein eigenwilliges Konstrukt und brauch zwingend Hilfe.
Sheet "Ergebnisse"
Hier habe ich ab Zeile 2 Fußballergebnisse. Relevant: In den Spalten C:D Heim,- und Gastteam, in den Spalten E:H die Ergebnisdaten.
Sheet "Alles"
Hier habe ich Spielpaarungen, Relevant: In den Spalten G:H Heim,- und Gastteam, in den Spalten V:Y die zu ermittelnden Ergebnisdaten.
_________________________________________
Die Spielpaarungen in "Alles" sollen in Sheet "Ergebnisse" gesucht werden und die Ergebnisdaten entsprechend in "Alles" zugeordnet werden.
Hier ein Beispiel: https://www.herber.de/bbs/user/139775.xlsb
Wohl erschwerend:
Spielpaarungen in Sheet "Alles" können mehrfach vorkommen (dennoch die Ergebnisdaten ermitteln)
Die Teamnamen werden unterschiedlich geschrieben, In Sheet "Ergebnisse" durchgehend Großbuchstaben, in Sheet "Alles" Groß,- und Kleinbuchstaben.
Ist mal wieder so ein Ding, was ich ohne Hilfe nicht hinbekomme.
Kann mal bitte ein Profi draufschauen und die Sache knacken?
Mit freundlichen Gruss
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fred,
..bin zwar nicht der VBA-Spezialist, aber etwas kürzer konnte ich Deinen Code schon schreiben.

Sub ergebnisse_übertragen()
Dim rngL As Range
Dim Ende As Range
' Formeln in Ergebnisse____________________________________________________
With Worksheets("Ergebnisse")
Set rngL = .Range("L2:L" & .Cells(.Rows.Count, "A").End(xlUp).Row)
rngL.FormulaLocal = "=C2&D2"
rngL = rngL.Value
End With
' Formeln in Alles__________________________________________________________
With Worksheets("Alles")
Set Ende = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range("V8:Y" & Ende).FormulaLocal = "=WENNFEHLER(INDEX(Ergebnisse!E:E;VERGLEICH(GROSS($G8)& _
GROSS($H8);Ergebnisse!$L:$L;0));"""")"
.Range("V8:Y" & Ende) = .Range("V8:Y" & Ende).Value
End With
' Hilfsspalte wieder löschen________________________________________________
rngL.ClearContents
'Variablen zurücksetzen_________________________________________________
Set rngL = Nothing
Set Ende = Nothing
End Sub

ich lösche am Ende wieder die Hilfsspalte, damit ist Deine Ergebnis-Tabelle wieder wie vorher.
Gruß Rolf

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten vergleichen und zuordnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread