PDA

Vollständige Version anzeigen : Ewige FIFA Liste


Langen09
24.09.2016, 16:48
Hallo zusammen,

ich habe folgendes Problem:

Ich habe eine Excel Liste, wo ich zwischen mir (Dennis) und meinem Kollegen (Padde) immer die Ergebnisse von Fifa Spielen eintrage.

Jetzt möchte ich, dass Excel mir direkt folgende Werte ausgibt:

-Siege
-Niederlagen
-Unentschieden
-Geschossene Tore
-Kassierte Tore
-Höchster Sieg
-Höchste Niederlage
-Längste Siegesserie

Habe aber leider keine Ahnung wie ich das umsetzten kann.

Falls mir jemand helfen kann, schonmal vielen Dank.

Ich habe die Excel-Datei angehangen.

Grüße Dennis

rastrans
25.09.2016, 14:34
Hallo Dennis,

das kopierst du in den VBA Bereich bei Tabelle1.

Viele Grüße
rastransPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile As Long
Dim intSiegSerie(1) As Integer

Application.EnableEvents = False
Application.ScreenUpdating = False
Range("B3:C10").Value = 0

lngZeile = 15
Do Until lngZeile > Cells(Rows.Count, 7).End(xlUp).Row
'Gewinn, Verlust, Gleich
If Cells(lngZeile, 7).Merge = 0 Then
If Cells(lngZeile, 7).Value > Cells(lngZeile, 8) Then
Call ZelleAddieren("B3")
Call ZelleAddieren("C4")
If Cells(lngZeile, 7).Value - Cells(lngZeile, 8).Value > Range("B8").Value Then
Range("B8").Value = Cells(lngZeile, 7).Value - Cells(lngZeile, 8).Value
Range("C8").Value = lngZeile
End If
intSiegSerie(1) = 0
intSiegSerie(0) = intSiegSerie(0) + 1
If intSiegSerie(0) > Range("B10").Value Then Range("B10").Value = intSiegSerie(0)
ElseIf Cells(lngZeile, 7).Value < Cells(lngZeile, 8) Then
Call ZelleAddieren("C3")
Call ZelleAddieren("B4")
If Cells(lngZeile, 8).Value - Cells(lngZeile, 7).Value > Range("B9").Value Then
Range("B9").Value = Cells(lngZeile, 8).Value - Cells(lngZeile, 7).Value
Range("C9").Value = lngZeile
End If
intSiegSerie(0) = 0
intSiegSerie(1) = intSiegSerie(1) + 1
If intSiegSerie(1) > Range("C10").Value Then Range("C10").Value = intSiegSerie(1)
Else
intSiegSerie(0) = 0
intSiegSerie(1) = 0
Call ZelleAddieren("B5")
Call ZelleAddieren("C5")
End If
End If
'Tore
Call ZelleAddieren("B6", Cells(lngZeile, 7))
Call ZelleAddieren("C6", Cells(lngZeile, 8))
Call ZelleAddieren("B7", Cells(lngZeile, 8))
Call ZelleAddieren("C7", Cells(lngZeile, 7))

lngZeile = lngZeile + 1
Loop
Range("B8").Value = "'" & Cells(Range("C8").Value, 7).Value & ":" & Cells(Range("C8").Value, 8).Value
Range("C8").Value = "'" & Cells(Range("C9").Value, 8).Value & ":" & Cells(Range("C9").Value, 7).Value
i = InStr(Range("C8").Value, ":")
Range("B9").Value = "'" & Mid(Range("C8").Value, i + 1) & ":" & Left(Range("C8").Value, i - 1)
i = InStr(Range("B8").Value, ":")
Range("C9").Value = "'" & Mid(Range("B8").Value, i + 1) & ":" & Left(Range("B8").Value, i - 1)
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Private Sub ZelleAddieren(Zelle As String, Optional Zahl As Integer = 1)
Range(Zelle).Value = Range(Zelle).Value + Zahl
End Sub