Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
608to612
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
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramm ertsellen

Diagramm ertsellen
12.05.2005 11:32:04
steffen
Ich möchte mit Hilfe eines Markos ein Diagramm erstellen. Die Daten für das Diagramm müssen jedes mal neu berechnet werden und die Zwischenergebnis für das Diagramm sollen aber nirgenwo erscheinen sondern nur als Diagramm. Mein anfang sieht so aus:

Sub Diagramm()
With Worksheets("Diagramm")
gradzahl = 0
'Dim Ergebnis 1  As Double
'Ergebnis 1 = 0
'Ergebnis 2 = 0
'Ergebnis 3 = 0
'0-45
If gradzahl < 45 Or gradzahl > 0 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.1").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
Else
'45-90
If gradzahl >= 45 And gradzahl < 90 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.2").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.6").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.5").Value
Else
'90-135
If gradzahl >= 90 And gradzahl < 135 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.2").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
Else
'135-180
If gradzahl >= 135 And gradzahl < 180 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.1").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value + Range("Ö.FL.6").Value
Else
'180-225
If gradzahl >= 180 And gradzahl < 225 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.1").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
Else
'225-270
If gradzahl >= 225 And gradzahl < 270 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.6").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
Else
'270-315
If gradzahl >= 270 And gradzahl < 315 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.5").Value + Range("Ö.FL.6").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.2").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.1").Value + Range("Ö.FL.3").Value + Range("Ö.FL.4").Value
Else
'315-360
If gradzahl >= 315 And gradzahl < 360 Then
'AW_SOSW
Ergebnis 1 = Range("Ö.FL.3").Value + Range("Ö.FL.5").Value
'AW_NWNO
Ergebnis 2 = Range("Ö.FL.1").Value
'AW_ÜR
Ergebnis 3 = Range("Ö.FL.2").Value + Range("Ö.FL.4").Value + Range("Ö.FL.6").Value
End If
End If
End If
End If
End If
End If
End If
End If
End If
'QS_SOSW
Ergebnis 4 = (Range("II_SOSW").Value * ("Ergebnis 1") * Range("GI_SOSW") * 0.567) / 100
'QS_NWNO
Ergebnis 5 = (Range("II_NWNO").Value * ("Ergebnis 2") * Range("GI_NWNO") * 0.567) / 100
'QS_ÜR
Ergebnis 6 = (Range("II_ÜR").Value * ("Ergebnis 3") * Range("GI_ÜR") * 0.567) / 100
Ergebnis 7 = ("Ergebnis 4") + ("Ergebnis 5") + ("Ergebnis 6")
For b = 2 To 73
Cells(3, b) = (66 * (Range("HV") + Range("HT"))) - (0.95 * (Range("QI") + ("Ergebnis 8")))
Next b
End Sub

MfG Steffen

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm ertsellen
13.05.2005 18:41:01
Cardexperte
Hello Steffen,
ein Diagramm ohne Tabellenwerte gibt es wohl nicht, außer man lässt das Diagramm zeichnen und als Grafik abspeichern, danach kann man die Daten dann wieder löschen, obigen Code verstehe ich nicht! Range("II_SOSW").value, keine Ahnung was das ist, hast du namen verwendet?
Gruss WS
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige