Formel Problem

Hallo Zusammen,
ich habe ein Formel-Problem. Vielleicht gibt es auch andere Lösungsmöglichkeit.
Ich habe eine Datei mit mehreren Tabellenblättern, u.a. "Runde" und "Spielrunden".

Im Tabellenblatt "Runde" werden zu jeder neuen Spielrunde 3 Gruppen mit jeweils 4 Spielern zusammengelost. Der Sieger der Spielrunde erhält 4 Punkte, der 2. 3 Pkte, usw.
Das Ergebnis wird in das Tabellenblatt "Spielrunde übernommen, aber das Problem liegt darin, dass die Formel, die hinterlegt ist, die vorherigen Spielrunden löscht und nur das aktuelle Spielrundenergebnis einträgt.
Die Formel lautet: =WENN(D$1=Runde!$A$1;SVERWEIS($A2;Runde!$A$1:$B$18;2;FALSCH);"")
mir fällt leider nichts anderes ein und behelfe mich indem ich die aktuelle Spielrunde kopiere und als Wert wieder einfüge.
In D$1 steht Runde2 und wird mit mit der Runde im Tabellenblatt "Runde" abgeglichen
Im Sverweis gleicht "$A2"den Spielernamen mit dem Namen in Tabellenblatt "Runde" ab und übernimmt dann das Ergebnis.
Ich möchte gerne eine Lösung, die mir die Ergebnisse der einzelne Spielrunden einträgt.

Ich hab die Datei hochgeladen: "Kratzer plus Turnier 12 Teilnehmer mit 8er Plan original"
ich hoffe ihr könnt mir weiterhelfen.

Vielen Dank im Voraus
schneiko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Formel Problem

30.11.2023 16:02:22

AW: Formel Problem

30.11.2023 16:06:32

Konrad Schneider

AW: Formel Problem

30.11.2023 17:51:18

JoWE

AW: Formel Problem

30.11.2023 17:51:36

JoWE

AW: Formel Problem

30.11.2023 17:56:53

Konrad Schneider

AW: Formel Problem

30.11.2023 18:05:17

JoWE

AW: Formel Problem

01.12.2023 12:04:31

JoWE

AW: Formel Problem

01.12.2023 13:01:26

Konrad Schneider

AW: Formel Problem

01.12.2023 12:03:45

Rolf

AW: Formel Problem

01.12.2023 12:57:32

Konrad Schneider

Option Explicit Private Sub Workbook_Open() Dim ze As Object 'sichern der letzten Ergebnisse Application.EnableEvents = False Application.ScreenUpdating = False For Each ze In Sheets("Spielrunden").Range("C2:Q13") If ze.HasFormula = True And ze.Text > "" Then ze.Copy ze.PasteSpecial Paste:=xlPasteValues End If Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub

Hallo Konrad,

du kannst das 'festschreiben' der Werte über das Change-Ereignis realisieren, z.B. so:
(die Formeln gehen dabei natürlich verloren!)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lCol As Long
Dim Bereich As Range

Set Bereich = Range("B3:B6, B9:B12, B15:B18, B21:B24, B27:B30, B33:B36, B39:B42, B45:B48")
If Not Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Wert in A1 wurde verändert"
Bereich.ClearContents
Else
If WorksheetFunction.CountA(Bereich) = 12 Then '12 für dein Beispiel mit 3 Automaten
If MsgBox("Ergebnisse festschreiben?", vbYesNo, Range("A1")) = vbYes Then
With Worksheets("Spielrunden")
lCol = .Range("C1:Q1").Find(what:=Range("A1").Value).Column 'Spalte der entsprechenden Runde ermitteln
With .Range(.Cells(2, lCol), .Cells(13, lCol))
.Value = .Value 'Werte festschreiben
End With
End With
End If
End If
End If
Set Bereich = Nothing
End Sub

Gruß Rolf

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel Problem

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread