Poker Tabelle

Forumthread: Poker Tabelle

Poker Tabelle

24.10.2006 13:21:02

Mike Meister

Hallo,
ich habe eine Excel Datei (pxl) für mein PDA erstellt.
Ab und zu spiele ich mit meinen Freunden Poker.
Ich bin schon so weit, dass die einzelnen Spieler aufgelistet werden und deren Endstand (plus / minus) angezeigt wird
Z.B.:
-0,5 Euro Spieler1
0,5 Euro Spieler2
0,5 Euro Spieler3
2 Euro Spieler4
-2,5 Euro Spieler5
Jetzt versuche ich, dass mir die Excel Datei genau liefert, welcher Spieler welchem genau was zahlen soll.
In diesem Fall:
Spieler 5 zahlt Spieler 4 / 2 Euro
Spieler 5 zahlt Spieler 3 / 0,5 Euro
Spieler 1 zahlt Spieler 2 / 0,5 Euro
Gibt es da schon eine Funktion in Excel, die mir dabei hilft? Da die Datei auch auf dem PDA laufen soll, sind die Möglichkeiten doch beschränkt, oder? Würd mich riesig freuen, wenn mir jemand helfen könnte.
Vielen Dank im Voraus

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Poker Tabelle

24.10.2006 14:09:55

Walter
AW: Poker Tabelle

24.10.2006 14:12:39

Reinhard
AW: Poker Tabelle

24.10.2006 14:54:38

Mike Meister
AW: Poker Tabelle

24.10.2006 15:12:08

Rudi Maintaire
korrigiert

24.10.2006 16:38:07

Reinhard

AW: Poker Tabelle

24.10.2006 14:09:55

Walter

Hallo Großer Meister,
Ich glaube das geht in Deine Richtung
https://www.herber.de/bbs/user/37627.xls
Gut Blat und Gruß
Rentner Walter
aus dem nördlichen Nordhessen
Eine Antwort wäre nett!

AW: Poker Tabelle

24.10.2006 14:12:39

Reinhard

Hi Mike,
habe keinPda, k.A. was da geht oder nicht.
Spalte D wird erzeugt wenn man den Code laufen läßt.

Tabellenblattname: Tabelle1
A        B     C                 D
1  Spieler1   -0,5       Spieler1 zahlt an Spieler2 0,5
2  Spieler2    0,5       Spieler5 zahlt an Spieler3 0,5
3  Spieler3    0,5       Spieler5 zahlt an Spieler4 2
4  Spieler4      2
5  Spieler5   -2,5
Benutzte Formeln:
A1:  ="Spieler"&ZEILE()
A2:  ="Spieler"&ZEILE()
A3:  ="Spieler"&ZEILE()
A4:  ="Spieler"&ZEILE()
A5:  ="Spieler"&ZEILE()

Option Explicit
Option Base 1
Sub tt()
Dim Zei As Long, Summe, Spieler, n As Long, nn As Long, pos As Long
Zei = Range("B65536").End(xlUp).Row
Summe = Application.WorksheetFunction.Sum(Range("B1:B" & Zei))
If Summe <> 0 Then
MsgBox "Fehler, die Summe von B muss 0 sein, sie eträgt aber " & Summe
Exit Sub
End If
Columns(4).ClearContents
ReDim Spieler(Zei, 2)
For n = 1 To Zei
Spieler(n, 1) = Cells(n, 1)
Spieler(n, 2) = Cells(n, 2)
Next n
For n = 1 To Zei
If Spieler(n, 2) < 0 Then
For nn = 1 To Zei
If Spieler(nn, 2) > 0 Then
pos = pos + 1
If Spieler(nn, 2) >= Abs(Spieler(n, 2)) Then
Range("D" & pos) = Spieler(n, 1) & " zahlt an " & Spieler(nn, 1) & " " & Abs(Spieler(nn, 2))
Spieler(nn, 2) = Spieler(nn, 2) - Abs(Spieler(n, 2))
Spieler(n, 2) = 0
Exit For
Else 'sp2 hat weniger zu kriegen als sp1 hat
Range("D" & pos) = Spieler(n, 1) & " zahlt an " & Spieler(nn, 1) & " " & Abs(Spieler(nn, 2))
Spieler(nn, 2) = 0
Spieler(n, 2) = Spieler(n, 2) + Spieler(nn, 2)
End If
End If
Next nn
End If
Next n
Columns(4).AutoFit
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Poker Tabelle

24.10.2006 14:54:38

Mike Meister

Hi,
ich habe die Methode mal ausprobiert, leider klappt da was noch nicht ganz(siehe unten/Spieler1 zahlt 0,9 obwohl er nur 0,5 verloren hat). Soweit super vielen Dank!!!
Spieler1 -0,5 Spieler1 zahlt an Spieler2 0,9
Spieler2 0,9 Spieler5 zahlt an Spieler2 0,4
Spieler3 0,1 Spieler5 zahlt an Spieler3 0,1
Spieler4 2 Spieler5 zahlt an Spieler4 2
Spieler5 -2,5

AW: Poker Tabelle

24.10.2006 15:12:08

Rudi Maintaire

Hallo,
bei mir klappt das.

korrigiert

24.10.2006 16:38:07

Reinhard

Hi Mike,
probier das mal asu bitte.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Infobox / Tutorial

Poker Tabelle erstellen und verwalten in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Erstelle eine neue Excel-Datei.
- Öffne Excel und erstelle ein neues Dokument, das als deine Poker Tabelle dient.
Spalten einrichten.
- Lege folgende Spalten an:
  - A: Spieler
  - B: Betrag (plus / minus)
  - C: Transaktionen (wer zahlt wem)
  - D: Ergebnis
Daten eingeben.
- Füge die Spielernamen in Spalte A und deren jeweilige Beträge in Spalte B ein. Beispiel:
```
A          B
Spieler1   -0,5
Spieler2   0,5
Spieler3   0,5
Spieler4   2
Spieler5   -2,5
```

Verwende VBA für Berechnungen.

Öffne den VBA-Editor (ALT + F11) und füge den folgenden Code in ein neues Modul ein:

Option Explicit
Sub PokerBerechnung()
 Dim Zei As Long, Summe, Spieler, n As Long, nn As Long, pos As Long
 Zei = Range("B65536").End(xlUp).Row
 Summe = Application.WorksheetFunction.Sum(Range("B1:B" & Zei))
 If Summe <> 0 Then
     MsgBox "Die Summe muss 0 sein, sie beträgt: " & Summe
     Exit Sub
 End If
 Columns(3).ClearContents
 ReDim Spieler(Zei, 2)
 For n = 1 To Zei
     Spieler(n, 1) = Cells(n, 1)
     Spieler(n, 2) = Cells(n, 2)
 Next n
 For n = 1 To Zei
     If Spieler(n, 2) < 0 Then
         For nn = 1 To Zei
             If Spieler(nn, 2) > 0 Then
                 pos = pos + 1
                 If Spieler(nn, 2) >= Abs(Spieler(n, 2)) Then
                     Range("C" & pos) = Spieler(n, 1) & " zahlt an " & Spieler(nn, 1) & " " & Abs(Spieler(n, 2))
                     Spieler(nn, 2) = Spieler(nn, 2) - Abs(Spieler(n, 2))
                     Spieler(n, 2) = 0
                     Exit For
                 Else
                     Range("C" & pos) = Spieler(n, 1) & " zahlt an " & Spieler(nn, 1) & " " & Abs(Spieler(nn, 2))
                     Spieler(n, 2) = Spieler(n, 2) + Spieler(nn, 2)
                     Spieler(nn, 2) = 0
                 End If
             End If
         Next nn
     End If
 Next n
 Columns(3).AutoFit
End Sub

Makro ausführen.
- Schließe den VBA-Editor und führe das Makro aus (über Entwicklertools -> Makros).

Häufige Fehler und Lösungen

Fehler: Summe der Beträge ist nicht 0.
- Lösung: Überprüfe die Eingabewerte in Spalte B. Die Summe der Gewinne und Verluste muss gleich Null sein.
Fehler: Spieler zahlt einen falschen Betrag.
- Lösung: Stelle sicher, dass die Beträge korrekt in Spalte B eingegeben wurden und keine Tippfehler vorliegen.

Alternative Methoden

Verwendung von Excel-Formeln:
- Anstelle eines VBA-Skripts kannst Du auch Formeln verwenden, um die Beträge zu berechnen und darzustellen. Dies ist jedoch weniger flexibel.
Benutze ein Poker Spreadsheet aus dem Internet.
- Es gibt viele vorgefertigte Poker Tabellen, die Du anpassen kannst, um Deine spezifischen Anforderungen zu erfüllen.

Praktische Beispiele

Beispiel für eine einfache Poker Tabelle:

Spieler      Betrag
Spieler1     -0,5
Spieler2     0,5
Spieler3     0
Spieler4     2
Spieler5     -2,5

Transaktionen:
- Spieler5 zahlt Spieler4 2 Euro.
- Spieler5 zahlt Spieler3 0,5 Euro.
- Spieler1 zahlt Spieler2 0,5 Euro.

Tipps für Profis

Automatisiere Deine Poker Tabelle:
- Nutze komplexere VBA-Skripte, um Prozesse zu automatisieren, wie das Hinzufügen neuer Spieler oder das Verfolgen von mehreren Spielen gleichzeitig.
Datenvisualisierung:
- Verwende Diagramme in Excel, um die Gewinn- und Verlustverhältnisse visuell darzustellen. Das macht es einfacher, die Daten auf einen Blick zu verstehen.

FAQ: Häufige Fragen

1. Wie kann ich meine Poker Tabelle auf dem PDA verwenden? Du kannst die Excel-Datei im .xls-Format speichern, das von vielen PDAs unterstützt wird.

2. Gibt es spezielle Vorlagen für Poker Tabellen? Ja, im Internet findest Du verschiedene Poker Tabellen und Vorlagen, die Du anpassen kannst.

3. Welche Excel-Version ist erforderlich? Das VBA-Skript sollte in den meisten aktuellen Excel-Versionen funktionieren, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Forumthread: Poker Tabelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Infobox / Tutorial

Poker Tabelle erstellen und verwalten in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread