Dart Zähler

[Eagle]

bei mir sieht es so aus. und ich kann auf der Dartscheibe alles anklick en und es passiert nichts.
   

[Elex]

Hey. 

Habe es jetzt mal in Excel 2007 getestet. Sollte laufen.

Also meine Datei runterziehen -> öffnen -> Makros zulassen -> Doppelklick auf F17(Blaue Überschrift Check Out)
Jetzt sollte es automatisch zum Spiel springen.

Im Board auf Neustart klicken. Ab jetzt sollten im Board die Werte anklickbar sein.

Gruß Elex

[Eagle]

ja so funktioniert es jetzt aber ich hätte es wie gesagt schlicht und einfach. ich habe jetzt noch etwas mit Makro aufzeichne gemacht, allerdings springt Excel nicht zum nächsten Spieler, sondern gibt ein Fehler wieder da die Zellen gesperrt sind die nicht gefüllt werden sollen und das mit doppelt und dreifach bekomme ich nicht hin. ich hänge die Datei noch mal mit ran.

[Elex]

Die Makros alle in ein allgemeines Modul

Code:

Sub DartWert()
  ActiveSheet.Shapes.Range(Application.Caller).Select
  ActiveCell = Selection.Characters.Text
  ActiveCell.Select
End Sub

Sub Doppel()
  ActiveCell = ActiveCell.Value * 2
End Sub

Sub Dreifach()
  ActiveCell = ActiveCell.Value * 3
End Sub

0-25 Makro DartWert zuweisen
Doppel -> Makro Doppel zuweisen
Dreifach -> Makro Dreifach zuweisen

[Eagle]

das finde ich super. danke. Würde es auch gehen das man zuerst doppelt oder dreifach klickt und dann den wert und dann in die nächste Zelle springt und es wäre wirklich ein super ding, wenn nach den drei würfen der andere Spieler dran ist und in die nächste Zeile bei Spieler 1 springen würde. wenn es nicht geht ist das so wie es jetzt ist auch schon sehr gut. vielen Dank Elex
Wenigstens einer der nicht gleich meckert: "wieso machst du das so, im netzt gibt es schon was" usw.

[Elex]

Alles so in das allge.Modul.

Code:

Option Explicit
Public a As Long

Sub DartWert()
  If a = 0 Then a = 1
  ActiveSheet.Shapes.Range(Application.Caller).Select
  ActiveCell = Selection.Characters.Text * a
  a = 1
  'ActiveCell.Select
  ActiveCell.Offset(, 1).Select
  If ActiveCell.Column = 5 Then ActiveCell.Offset(, 2).Select
  If ActiveCell.Column = 10 Then ActiveCell.Offset(1, -8).Select
End Sub

Sub Doppel()
  a = 2
End Sub

Sub Dreifach()
  a = 3
End Sub

[snb]

@Elex,

Wie oft noch: verzichte auf 'Select' und 'Activate' und 'verbundene Zellen' in VBA.

Ohne alle diese ActiveX-buttons:

[snb]

Und noch etwas komprimiert und 'doppelt' und 'driefach' integriert.

[Elex]

Servus

Wie oft noch: verzichte auf 'Select' und 'Activate' und 'verbundene Zellen' in VBA.

Muss mir das mal aufschreiben.

Dein Vorschlag aber wieder nur halb fertig. Wie oft noch?
Und der Mix aus Tippen und Klick macht bestimmt auch nicht glücklich.

[HKindler]

Hi,

Muss mir das mal aufschreiben.

Aufschreiben nutzt da nichts. Handle danach! Und damit du es nicht vergisst, lies mal die Geschichte von Malermeister PinselGut und seinem Gesellen JawollChef durch. Dann wirst du es auch nicht mehr so schnell vergessen.

Übrigens sind auch die anderen Tutorials dort lesenswert.