Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagrammtyp und Datenreihe

Diagrammtyp und Datenreihe
19.12.2003 23:05:44
Jochen
Hallo Leute,

mit Diagrammen habe ich kaum Erfahrung.

Ich habe die Aufgabe, mittels Diagramm eine Analoguhr zu erstellen.
Hab hier aus dem Forum auch einen Tipp erhalten, aber da war das mit
Ringdiagrammen gemacht, ich brauche aber richtige Zeiger.
Leider hab ich keinen Plan, welchen Diagrammtyp ich da nehmen muss
und wie die entsprechenden Daten aussehen müssen(Stunden,Minuten,Sekunden)

Das Ganze soll dann auch noch mit VBA animiert werden, doch das bekomme
ich in die Reihe.

Danke für Lösungsvorschläge.

Gruß Jochen

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

Betreff
Datum
Anwender
Anzeige
AW: Diagrammtyp und Datenreihe
20.12.2003 00:56:35
K.Rola
Hallo,

willst du eine Komplettlösung oder ist es dir lieber nur einen
Lösungsweg zu bekommen?

Gruß K.Rola
Zusatzfrage...
20.12.2003 01:22:33
K.Rola
Hallo,

soll deine Diagrammuhr letztlich mit der Systemzeit synchron laufen oder
über eine OnTime- Prozedur?

Gruß K.Rola
AW: Zusatzfrage...
20.12.2003 15:32:28
Jochen
Hallo K.Rola,

eine Musterlösung wäre natürlich super. Mir würde aber schon reichen,
wenn ich einen Ansatz für die rein mathematische Umsetzung und den
Diagrammtyp hätte.
Ideal wäre eine Umsetzung rein mit VBA, aber das ist zweitrangig.

Gruß Jochen
AW: Zusatzfrage...
20.12.2003 22:23:46
K.Rola
Hallo,

mal ein Beispiel für den Sekundenzeiger:

nimm ein XY- Diagramm Typ Punkte mit Linie ohne Datenpunkte.

Beide Achsenskalierungen min.= -1,1 und max.=1,1

Zelle A1 = 0
Zelle C1 = 0

Datenreihe X- Werte: =Tabelle1!$A$1:$B$1
Datenreihe Y- Werte: =Tabelle1!$C$1:$D$1

Option Explicit
Declare

Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)

Sub Zeiger()
Const pii As Double = 3.14159265358979
Const Radius1 As Byte = 33
Const Radius2 As Byte = 44
Dim z As Long
''Zeiger Sekunde
For z = 0 To 360
[b1] = Sin(z * pii / 180)
[d1] = Cos(z * pii / 180)
Sleep 5
DoEvents
Next
End Sub


Wenn du mit dem Rest nicht klarkommst, nochmal melden.

Gruß K.Rola
Anzeige
Danke...mT
21.12.2003 10:46:43
Jochen
Hallo K.Rola,

das reicht mir als Ansatz völlig aus. Ich habs inzwischen gelöst.
Ich kann die Datei ja mal hochladen, wenn du dir das ansehen willst.

Gruß Jochen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige