Torten-Diagramm aus definierten Daten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Torten-Diagramm aus definierten Daten
von: Claus
Geschrieben am: 20.09.2003 17:21:40

Hallo zusammen,

Hinweis: VBA ist nicht "gut" sondern "geht so, lerne noch"

mein Termin-Tool braucht mal wieder Hilfe...

Ich möchte über eine User-Form per InputBox ein Datum eingeben (kein Problem) welches dann das definierte Bezugsdatum ist. Alle Termine, die kleiner sind als das eingegebene Datum sollen nicht ins Tortendiagramm einbezogen werden.

In dem beigefügten Beispiel sollen dann z.B. alle Werte aus Spalte D ab dem 12.09.2003 ins Tortendiagramm einfließen. Die Gesamtsumme vom definierten Datum (12.09.2003) bis zum maximalen Datum soll dabei als Bezugsgröße dienen. Im Diagramm soll dann "ok" und "leer" zu sehen sein. Ist sowas möglich? Vielleich hat ja jemand einen ähnlichen Code, den ich modifizieren kann?

Danke und viele Grüße, Claus

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C21. / Formel ist =UND(C2>0;D2<>"ok";(C2-HEUTE())<6)Abc
C22. / Formel ist =UND(C2>0;D2<>"ok";(C2-HEUTE())<11)Abc
C31. / Formel ist =UND(C3>0;D3<>"ok";(C3-HEUTE())<6)Abc
C32. / Formel ist =UND(C3>0;D3<>"ok";(C3-HEUTE())<11)Abc
C41. / Formel ist =UND(C4>0;D4<>"ok";(C4-HEUTE())<6)Abc
C42. / Formel ist =UND(C4>0;D4<>"ok";(C4-HEUTE())<11)Abc
C51. / Formel ist =UND(C5>0;D5<>"ok";(C5-HEUTE())<6)Abc
C52. / Formel ist =UND(C5>0;D5<>"ok";(C5-HEUTE())<11)Abc
C61. / Formel ist =UND(C6>0;D6<>"ok";(C6-HEUTE())<6)Abc
C62. / Formel ist =UND(C6>0;D6<>"ok";(C6-HEUTE())<11)Abc
C71. / Formel ist =UND(C7>0;D7<>"ok";(C7-HEUTE())<6)Abc
C72. / Formel ist =UND(C7>0;D7<>"ok";(C7-HEUTE())<11)Abc
C81. / Formel ist =UND(C8>0;D8<>"ok";(C8-HEUTE())<6)Abc
C82. / Formel ist =UND(C8>0;D8<>"ok";(C8-HEUTE())<11)Abc
C91. / Formel ist =UND(C9>0;D9<>"ok";(C9-HEUTE())<6)Abc
C92. / Formel ist =UND(C9>0;D9<>"ok";(C9-HEUTE())<11)Abc
C101. / Formel ist =UND(C10>0;D10<>"ok";(C10-HEUTE())<6)Abc
C102. / Formel ist =UND(C10>0;D10<>"ok";(C10-HEUTE())<11)Abc
C111. / Formel ist =UND(C11>0;D11<>"ok";(C11-HEUTE())<6)Abc
C112. / Formel ist =UND(C11>0;D11<>"ok";(C11-HEUTE())<11)Abc
C121. / Formel ist =UND(C12>0;D12<>"ok";(C12-HEUTE())<6)Abc
C122. / Formel ist =UND(C12>0;D12<>"ok";(C12-HEUTE())<11)Abc
C131. / Formel ist =UND(C13>0;D13<>"ok";(C13-HEUTE())<6)Abc
C132. / Formel ist =UND(C13>0;D13<>"ok";(C13-HEUTE())<11)Abc
C141. / Formel ist =UND(C14>0;D14<>"ok";(C14-HEUTE())<6)Abc
C142. / Formel ist =UND(C14>0;D14<>"ok";(C14-HEUTE())<11)Abc
C151. / Formel ist =UND(C15>0;D15<>"ok";(C15-HEUTE())<6)Abc
C152. / Formel ist =UND(C15>0;D15<>"ok";(C15-HEUTE())<11)Abc
C161. / Formel ist =UND(C16>0;D16<>"ok";(C16-HEUTE())<6)Abc
C162. / Formel ist =UND(C16>0;D16<>"ok";(C16-HEUTE())<11)Abc
C171. / Formel ist =UND(C17>0;D17<>"ok";(C17-HEUTE())<6)Abc
C172. / Formel ist =UND(C17>0;D17<>"ok";(C17-HEUTE())<11)Abc
C181. / Formel ist =UND(C18>0;D18<>"ok";(C18-HEUTE())<6)Abc
C182. / Formel ist =UND(C18>0;D18<>"ok";(C18-HEUTE())<11)Abc
C191. / Formel ist =UND(C19>0;D19<>"ok";(C19-HEUTE())<6)Abc
C192. / Formel ist =UND(C19>0;D19<>"ok";(C19-HEUTE())<11)Abc
C201. / Formel ist =UND(C20>0;D20<>"ok";(C20-HEUTE())<6)Abc
C202. / Formel ist =UND(C20>0;D20<>"ok";(C20-HEUTE())<11)Abc
C211. / Formel ist =UND(C21>0;D21<>"ok";(C21-HEUTE())<6)Abc
C212. / Formel ist =UND(C21>0;D21<>"ok";(C21-HEUTE())<11)Abc
C221. / Formel ist =UND(C22>0;D22<>"ok";(C22-HEUTE())<6)Abc
C222. / Formel ist =UND(C22>0;D22<>"ok";(C22-HEUTE())<11)Abc
C231. / Formel ist =UND(C23>0;D23<>"ok";(C23-HEUTE())<6)Abc
C232. / Formel ist =UND(C23>0;D23<>"ok";(C23-HEUTE())<11)Abc
C241. / Formel ist =UND(C24>0;D24<>"ok";(C24-HEUTE())<6)Abc
C242. / Formel ist =UND(C24>0;D24<>"ok";(C24-HEUTE())<11)Abc
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
Bild


Betrifft: Hab schonmal weitergemacht...brauche Anstoss
von: Claus
Geschrieben am: 20.09.2003 18:41:18

Guten Abend,

bei diesem Code, den ich via Recherche gefunden habe, brauche ich etwas Hilfe. Ich habe eine UserForm, einen Rahmen und ein leeres Bild...aber trotzdem gibt es in Zeile "frmChart.Show" einen Laufzeitfehler. Es ist für den Bruchteil einer Sekunde das geladene Bild in der UserForm zu sehen. Dann hängt er sich wahrscheinlich bei dem AutoSize-Befehl auf. Das imgChart liegt im frmChart...



Private Sub cmdDiagramm_Click()

Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False

cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1:C3"), _
PlotBy:=xlRows
cht.Export "test.gif"

With frmChart.imgChart
.Picture = LoadPicture("test.gif")
.AutoSize = True
End With
frmChart.Show

Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.4



Bild


Betrifft: AW: Hab schonmal weitergemacht...brauche Anstoss
von: Jochen
Geschrieben am: 20.09.2003 18:47:59

load frmchart
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
.AutoSize = True
End With
frmChart.Show


Bild


Betrifft: AW: Hab schonmal weitergemacht...brauche Anstoss
von: Claus
Geschrieben am: 20.09.2003 18:56:49

Hi,

danke für die Antwort - nur das klappt leider noch weniger...

Noch eine andere Idee?

Gruß, CLaus


Bild


Betrifft: AW: Hab schonmal weitergemacht...brauche Anstoss
von: Jochen
Geschrieben am: 20.09.2003 20:02:15

Noch weniger ist natürlich Quatsch. Gib mal den kompletten Pfad
zu dem Bild an.


Bild


Betrifft: Hier der Code, der noch nicht sauber funtzt...Help
von: Claus
Geschrieben am: 21.09.2003 00:09:31

...das Bild wird geladen, aber nicht verkleinert. Ich schätze mal, dass VBA bei dem Versuch abschmiert. Als Fehlermeldung kommt dies:

Userbild


Ansonsten ist der Code unverändert geblieben. Auf dem Bild sieht man, dass das Diagramm in die imgChart, welche auf dem frmChart liegt, eingelesen wurde...am Ende nochmal der komplette Code.

Beschreibung: In Tabelle1 sind Werte in A1:C3. UserForm mit Buttom zum Diagramm erzeugen. Diagramm wird gespeichert als .gif-Datei. Diese Datei dann ins imgChart geladen. Das Bild soll verkleinert werden und dabei gibt es den Laufzeitfehler...Hilfe!


Private Sub cmdDiagramm_Click()

Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False

cht.SetSourceData Source:=Sheets("Tabelle1").Range("A1:C3"), _
PlotBy:=xlRows
cht.Export "test.gif"

With frmChart.imgChart
.Picture = LoadPicture("test.gif")
'.AutoSize = True
End With
frmChart.Show  (hier stürtzt er ab)


Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.4



Gruß, Claus


Bild


Betrifft: Jetzt klappts
von: Claus
Geschrieben am: 21.09.2003 01:09:04

frmChart.Show Befehl gelöscht

PictureSizeOption auf Stretch gesetzt

Gute Nacht, Claus


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Torten-Diagramm aus definierten Daten"