Fußballtabelle (ohne Makro) eigenständig aktualisieren - Fehler bei mehreren punktgleichen...

Hallo Denis,

füge ein Standardmodul ein und kopiere folgenden Code in dieses Modul:

Sub Auflisten()

Dim i As Integer, j As Integer, iAnz As Integer, n As Integer

Dim varOrder() As Variant, varData As VariantWith Application

   iAnz = .Evaluate("=Sum(1/Countif(Q1:Q18,Q1:Q18))")

   ReDim Preserve varOrder(iAnz - 1)

   varOrder(0) = .Max(Range("Q1:Q18"))

   For i = 1 To iAnz - 1

      varOrder(i) = .Large(Range("Q1:Q18"), .CountIf(Range("Q1:Q18"), ">=" & varOrder(i - 1)) + 1)

   Next

End With

varData = Range("Q1:R18")

n = 1

For i = LBound(varOrder) To UBound(varOrder)

   For j = LBound(varData) To UBound(varData)

      If varData(j, 1) = varOrder(i) Then

         Cells(n, "AC") = varData(j, 2)

         n = n + 1

      End If

   Next

Next

End Sub

Claus

Hallo Denis,

SVERWEIS oder VERGLEICH geben dir immer nur den ersten Fund zurück. Du solltest doch mal die Verwendung von VBA überdenken.

Claus

Hallo DenisMaier22,

da sich deine Anfrage auf der Formel bezieht, bitte ich dich deine Anfrage erneut im Microsoft TechNet Forum zu stellen.

Leider ist es mir nicht möglich deine Anfrage direkt dorthin zu verschieben, ich möchte dich deshalb bitten diese Anfrage erneut im TechNet Forum zu stellen.

Hier der Link zum Forum:

https://social.technet.microsoft.com/Forums/de-de/home?category=microsoftofficede

Es wäre sehr nett von dir, wenn du uns einen Link zu deiner Anfrage im TechNet Forum, zur Verfügung stellst. Auf diese Weise können auch andere User schnell die Antwort finden.

Gruß,

Michalina

Ich muss gestehen, ich kenne mich in der Arbeit mit VBA nicht besonders gut aus (konkreter: gar nicht gut), deswegen wollte ich drauf verzichten. Wenn ich bisher mit Makros gearbeitet habe, dann habe ich immer die Aufzeichnung benutzt und das Makro entsprechend
einem Button zugeteilt.

https://social.technet.microsoft.com/Forums/de-DE/78624897-b7c9-4eb6-8c6f-78d3cb20303d/fuballtabelle-ohne-makro-eigenstndig-aktualisieren-fehler-bei-mehreren-punktgleichen-teams?forum=Office2016ITProDE