Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Turnier Verwaltung - Anzeige der freien Geräte

Turnier Verwaltung - Anzeige der freien Geräte
28.11.2005 14:05:54
Alexander
Hallo !
Ich bin dabei eine Turnierverwaltung für ein Dart Turnier zu erstellen.
Ich bin fast fertig und habe nur ein Problem.
Ich möchte das mir das Programm bei den verschiedenen Begegnungen anzeigt auf welchem Gerät die Begegnung gespielt wird. D.h. das Programm sollte wissen welches Gerät (Dartautomat) gerade frei ist !
In einer Zelle gebe ich die Anzahl der Geräte ein !
Ich habe folgende Spalten und Zeilen:
Spieler01 pl1 pl2 Spieler02
Spieler01 = Name Spieler01
pl1 = Die Sätze die er gewonnen hat (Eine Begegnung geht auf zwei gew. Sätze)
-""-
-""-
Wenn ich also bei pl1 1 eintrage und bei pl2 2 so weis das Programm
das Spieler 2 die Begegnung 2:1 gewonnen hat.
Ausserdem sollte das Programm nun wissen das das Gerät auf dem gespielt wurde
wieder frei ist !
Wenn das Turnier beginnt und ich habe z.B.: 16 Geräte auf denen gespielt werden kann, so sollte das Programm bei den ersten 16 Begegnungen die Zahlen 1-16 reinschreiben. Somit weis ich auf welchen Geräten gespielt werden kann !
Ist eine dieser Begegnungen zu ende, z.B.: auf Gerät Nr.5 so sollte das Programm selbst bei der Begegnung 17 das Gerät 5 hinschreiben !
Wär SUPER wenn mir da jemand helfen könnte !
Es wäre auch gut wenn die Gerätenummer die bei einer Begegnung steht sich nicht mehr ändert (wegen Formel oder so).
Gruß -ALEX-

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Turnier Verwaltung - Anzeige der freien Geräte
28.11.2005 15:08:02
Reinhard
Hi Alex,
Code beziueht sich auf folgenden Tabellen aufbau:
tisch	nam1	p1	p2	nam2

Rechtsklick auf den Blattnamen, Linksklick auf "Code anzeigen", Code reinkopieren, ggfs anpassen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
If Target.Value <> 2 Then Exit Sub
Cells(Range("a2").End(xlDown).Row + 1, 1) = Cells(Target.Row, 1)
End Sub

Einfügen---Modul, die Beiden Makros reinkopieren, Editor schliessen. In Excel über Ansicht---Symbolleisten--Formular den beiden Makros jeweils einen Schaltknopf zuweisen.
Mit den beiden Makros kannst du bei fehleingaben das Überwachungsmakro "abschalten" um Änderungen in der tabelle vornehmen zu können.
Sub Tischzuweisung_Ein()
Application.EnableEvents = True
End Sub
Sub Tischzuweisung_Aus()
Application.EnableEvents = False
End Sub
Gruß
Reinhard
Anzeige
Beendet, siehe neuen Thread o.w.T.
29.11.2005 15:10:08
Reinhard
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige