Kannst Du mir bitte noch auf den letzten Eintrag (s.u.) antworten, falls Du die Zeit findest? Das wäre klasse.
Viele Grüße
Heider
Vielen Dank, dass Du Dir so viel Mühe gibst mit einem Neuling!
Das Skript ist echt klasse.
Ich habe nun versucht es in eine andere Mappe zu integrieren, die ich dann nutzen möchte.
Leider klappt es nicht ganz und einige Kreise haben keine bzw. die falsche Farbe.
Ich habe es online gestellt.
Die Datei https://www.herber.de/bbs/user/25484.xls wurde aus Datenschutzgründen gelöscht
2 Fragen habe ich noch.
1. Ich habe rausgefunden, dass der msoShapeOval Befehl das Format
msoShapeOval X Koordinate, Y Koordinate, X Dimension, Y Dimension hat.
Wieso arbeitet das Skript mit:
ActiveSheet.Shapes.AddShape msoShapeOval, 273, 392, 30, 30
bzw. wie muss man x und y für andere Tabellen ändern?
2. Wozu braucht man die Funktion "Nummer des ersten Kreises ermitteln"
und muss ich diese eventuell auch anpassen?
Viele Grüße
Heider
----------Sub shp_einf()----------------------------------
'?
ActiveSheet.Shapes.AddShape msoShapeOval, 273, 392, 30, 30
For Each shp In ActiveSheet.Shapes
anz = anz + 1
'?
If shp.Left = 273 Then
x = anz
Exit For
End If
Next
------------Sub anz_obj_ermitteln()
'?
ActiveSheet.Shapes.AddShape msoShapeOval, 273, 392, 30, 30
For Each shp In ActiveSheet.Shapes
anz = anz + 1
'?
If shp.Left = 273 Then
MsgBox anz
Exit For
End If
Next
Die aktuelle Mappe:
Die Datei https://www.herber.de/bbs/user/25513.xls wurde aus Datenschutzgründen gelöscht
Ich würde mich sehr freuen, wenn Du es Dir mal anschauen würdest.
Also
Ich habe eine Quell-Tabelle mit einer Auflistung von Beträgen (in Euro), die
vom Kunden und gekauftem Produkt abhängen.
Diese Quelltabelle soll in eine Zieltabelle (ganz unten im JPEG Bild)
umgewandelt oder überführt werden, die dann die Beträge nicht nur als Zahl
sondern auch als farbige Kreise darstellt. Bei positiven Beträgen ein grüner
Kreis und bei negativen ein roter Kreis. Die Höhe des Wertes bestimmt die Größe
des jeweiligen Kreises.
Die Herausforderung ist wie folgt:
Primär:
Wie kann man einen Automatismus einrichten, der die Tabelle bzw. die Beträge
als farbige Kreise darstellt? Die Tabelle müsste nach Maximum- und Minimum-
Werten durchgesucht werden Diese Werte bestimmen dann die maximale Größe
eines Kreises Dementsprechend müssten die kleineren Werte bzw. Kreise größer
oder kleiner und rot oder grün dargestellt werden. Das Tabellenfeld indem sich
der Betrag befindet, müsste an die Größe des Kreises angepasst werden (wie in
der letzten Tabelle im JPEG-Bild).
Hinweis: Mit der Excel-Funktion Blasendiagramm lässt es sich leider nicht
realisieren-habe es schon ausgiebig probiert.
Die Lösung des Primären Problems wäre schon viel wert.
Sekundär:
Die Quelltabelle enthält die Beträge, die Kunden und Produkten zugeordnet sind,
nicht in Form von Pull-Down-Menüs (wie in der mittleren Tabelle im JPEG)
sondern als eine lange Liste von Kunden und Produkten die aufgeführt sind und
denen dementsprechend Beträge zugeordnet sind (ähnlich wie in der ersten
Tabelle im JPEG-Bild) Also wie kann ich Werte aus einer Quelltabelle oder einem
Pulldown einer Quelltabelle in eine Pulldown meiner Zieltabelle überführen?
Vielleicht hast Du ja ne Idee?
Vielen Dank im Voraus schon mal !
Grüße
Heider
##############################################################################
Kompletter Forumsbeitrag unter
https://www.herber.de/index.html?https://www.herber.de/forum/archiv/648to652/t648405.htm