Weiß jnd von euch wie ich manuell die y-Achse eines Diagrammes beschriften kann? Also nicht die Achse an sich, sondern die angezeigten Werte ändern.
Wie ich die „Beschriftung der Rubrikenachse (X)“ ändere weiß ich, aber ich finde nichts vergleichbares für die y-Achse. =(
Weiß jnd von euch wie ich manuell die y-Achse eines Diagrammes
beschriften kann? Also nicht die Achse an sich, sondern die
angezeigten Werte ändern.
Wie ich die „Beschriftung der Rubrikenachse (X)“ ändere weiß
ich, aber ich finde nichts vergleichbares für die y-Achse. =(
Hallo Shadow,
Rechtsklick auf die Achse und dann Skalierung, war es das?
gruß
Maria
Danke das kannte ich noch nicht,
ist aber trotzdem nicht die Lösung meines Problems.
Unter „Skalierung“ kann ich die schon angegebenen Werte nur umändern.
Sprich die Kommastelle verrücken usw.
Was ich aber suche ist, dass ich die y-Achse völlig unabhängig von den Werten des Graphen benennen kann.
So wie es auch mit der x-Achse möglich ist…
Beispiel: Auf der x-Achse habe ich U in V und auf der y-Achse I in mA. Der Graph soll aber nun U/I anzeigen. Dann kann ich das so machen, dass auf der x-Achse U angezeigt wird, aber auf der y-Achse wird dann U/I statt I angezeigt…
Hallo Shadow,
Rechtsklick in die Diagrammfläche (nicht da wo die Säulen sind, nur eben innerhalb des Rahmens, dann Diagrammoptionen, Register Titel. Dort kannst deine Achsen beschriften wie du willst (z. B. x-Achse mit Kartoffeln in Säcken und y-Achse mit Nachtgebete pro Wochenende).
Überhaupt einfach mal überall reinklicken und sehen was passiert. 
PS noch ein Tip, der vielleicht recht hilfreich ist, lies mal unter Nettikette nach.
Gruß
Maria
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke, dass du so tapfer durchhälst Maria, aber
Dort kannst deine Achsen beschriften wie du
willst (z. B. x-Achse mit Kartoffeln in Säcken und y-Achse mit
Nachtgebete pro Wochenende).
hier habe ich in meinem ersten Post geschrieben:
Also nicht die Achse an sich, sondern die angezeigten Werte ändern.
Überhaupt einfach mal überall reinklicken und sehen was
passiert.
Glaub mir, dass tue ich! 
PS noch ein Tip, der vielleicht recht hilfreich ist, lies mal
unter Nettikette nach.
Habe mir das Wichtigste angeschaut.
Habe ich etwas Falsches geschrieben?
Ich war jetzt anderthalb Jahre Moderator in einem recht großen Forum, aber andere Foren, andere Sitten.
So klärt mich auf! 
oT: Nettikette
Hi!
Bei uns ist es üblich, eine Frage mit einer Anrede zu beginnen und mit einem Gruß abzuschliessen. Nur eine Frage wie in den Hilfstext eines Programmes einzugeben, bringt oft keine gewünschte Reaktion. Wir sind eben kein Programm, sondern Menschen.
Weiterhin viel Freude bei uns!
Karin
PS noch ein Tip, der vielleicht recht hilfreich ist, lies mal
unter Nettikette nach.Habe mir das Wichtigste angeschaut.
Habe ich etwas Falsches geschrieben?Ich war jetzt anderthalb Jahre Moderator in einem recht großen
Forum, aber andere Foren, andere Sitten.
So klärt mich auf!
Bei uns ist es üblich, eine Frage mit einer Anrede zu beginnen
und mit einem Gruß abzuschliessen. Nur eine Frage wie in den
Hilfstext eines Programmes einzugeben, bringt oft keine
gewünschte Reaktion. Wir sind eben kein Programm, sondern
Menschen.
Weiterhin viel Freude bei uns!
Hallo Karin,
du hast Recht.
Aber, irgendwie empfand ich das in diesem fall gar nicht so, aber ist
ja wurscht liegt ja an meinem Empfängisverhalten. Aber aus seine Rückfrage , allein das sie kommt, der ist okay.
Er hat ja voll Recht mit andres Forum, andre Sitten.
Hätte er für mein Empfinden hier zu brachial reingefragt hätte er schon den sanften Hinweis auf:
http://www.kmbuss.de/Excel-CD/Pics/OH_Forumsbeitrag.gif
bekommen
Aber nur mal so zur Info, mit dem „andre Foren, andre Sitten“, hier, und in allen Foren die ich kenne ist Crossposting absolut unerwünscht.
Ja, in allen, bis auf eins. Da wird ausdrücklich gesagt dass Crossposting absolut keine Rolle spielt.
ist ein Excel/vba Forum und da sitzen für mich die besten Vbaler Deutschlands, kenne keine Besseren, was nichts besagt, weil kennen tue ich eh keinen einzigen *g, aber ich meine das so, höchstens 2000 Leute in D haben deren Wissen. Von mir aus 5000, aber dann ist Schluß.
Von daher werde ich die Adresse dieses Forums nie hier bekannt geben, es wäre absolut Verschwendung in vielerlei Hinsicht wenn dort Anfragen kämen wie rechne ich mit negativen Uhrzeiten o.ä., mal so als Beispiel, dafür ist das Forum hier und andere zuständig um dies zu lösen.
Sorry, bin wiedermal in Plauderlaune(Danke fürs Durchhalten beim Lesen*smile*, an sich wollte ich nur sgaen, egal ob Forumsbeitrag setzen oder Crossposting oder sonstwas, andre Länder andre Sitten.
Wie auch immer, schönen Sonntag *wünsch*
Guts Nächtle
Reinhard
back to topic
Guten Abend miteinander!
Danke für die Aufklärung. Das wäre doch gelacht, wenn die Gewohnheiten dieses Forums nicht übernehmen würde.
Aber trotzdem wäre es sehr lieb von euch, wenn doch noch jnd die Lösung für mein Problem erkennen würde.
Bis später.
Patrick
Aber trotzdem wäre es sehr lieb von euch, wenn doch noch jnd
die Lösung für mein Problem erkennen würde.
Hi Patrick,
mit Diagrammen kenne ich mich nicht aus.
Ich könnte dir sowas bieten für diese tabelle (trage die Werte so ein wie im beispiel:
Tabellenblattname: Tabelle1
A B C
1 U I U/I
2 100 3 33,3333333333333
3 200 4 50
4 300 7 42,8571428571429
5 400 2 200
Benutzte Formeln:
C2: =A2/B2
C3: =A3/B3
C4: =A4/B4
C5: =A5/B5
Dann diesen Code ablaufen lassen:
Option Explicit
Sub Makro4()
Dim n
Application.ScreenUpdating = False
For Each n In ActiveSheet.Shapes
n.Delete
Next n
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 339#, 174#, 285#, 129#). \_
Select
Range("J30").Select
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 366.75, 198.75, 201.75, 76.5). \_
Select
Range("C29").Select
ActiveSheet.Shapes.AddLine(383.25, 226.5, 419.25, 238.5).Select
ActiveSheet.Shapes.AddLine(419.25, 222.75, 454.5, 237.75).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
Selection.ShapeRange.Line.EndArrowheadLength = msoArrowheadLengthMedium
Selection.ShapeRange.Line.EndArrowheadWidth = msoArrowheadWidthMedium
Selection.ShapeRange.Flip msoFlipVertical
Range("H27").Select
ActiveSheet.Shapes.AddLine(420#, 217.5, 453#, 238.5).Select
Selection.ShapeRange.Flip msoFlipVertical
Range("H29").Select
ActiveSheet.Shapes.AddLine(453#, 216.75, 493.5, 261.75).Select
Range("E29").Select
ActiveSheet.Shapes.AddLine(492#, 231.75, 550.5, 261.75).Select
Selection.ShapeRange.Flip msoFlipVertical
Range("C5").Select
Selection.Copy
Range("D8").Select
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 355.5
Selection.ShapeRange.IncrementTop 192#
Selection.ShapeRange.IncrementLeft -36.75
Selection.ShapeRange.ScaleHeight 2.67, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.67, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 0.48, msoFalse, msoScaleFromTopLeft
Range("J29").Select
Application.CutCopyMode = False
Range("A2").Select
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 387#
Selection.ShapeRange.IncrementTop 270#
Range("H28").Select
Application.CutCopyMode = False
Range("A1").Select
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 549.75
Selection.ShapeRange.IncrementTop 282#
Selection.ShapeRange.ScaleHeight 1.39, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.24, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 18.75
Selection.ShapeRange.IncrementTop -5.25
Selection.ShapeRange.ScaleHeight 0.68, msoFalse, msoScaleFromTopLeft
Range("J27").Select
Application.CutCopyMode = False
Range("B1").Select
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 285.75
Selection.ShapeRange.IncrementTop 201#
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 288.75
Selection.ShapeRange.IncrementTop 213.75
Selection.ShapeRange.IncrementLeft -54#
Selection.ShapeRange.IncrementTop -6.75
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 236.25
Selection.ShapeRange.IncrementTop 201#
Range("E24").Select
Application.CutCopyMode = False
ActiveSheet.Shapes.AddLine(574.5, 227.25, 596.25, 227.25).Select
Range("C1").Select
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft 482.25
Selection.ShapeRange.IncrementTop 217.5
Range("K20").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Gruß
Reinhard
Hallo Patrick,
steht dein Problem noch oder gibt es bereits eine Lösung?
Ich würde dir gern helfen, nur weiß ich inzwischen nicht, ob ich vielleicht dein Problem doch nicht verstanden habe.
Wenn du also noch Hilfe brauchst, dann benötige ich ein paar Datensätze am besten als Tabelle und die Bezeichnung je Achse, außerdem was für ein Diagramm dargestellt werden soll. Oder schicke mir die Tabelle mit den Angaben zum Diagramm per Mail. Ich werde mir das kurzfristig ansehen.
Gruß Maria
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Re^2: back to topic
Hallo,
ihr habt mich auf eine gute Idee gebracht.
hier ist der Upload:
http://rapidshare.com/files/356544/Diagramme.xls.html
bei Bedarf kann ich es dem Gewünschten auch per E-Mail zusenden.
Nochmal kurz das Problem:
Ich will auf der y-Achse die I-Werte angezeigt haben. (Die Werte und nicht die alleinige Beschriftung der Achse!)
Vielen Dank und bis bald hoffentlich. =)
Patrick
Hallo Patrick,
Rechtsklick in die Diagrammfläche (auf die weiße Fläche innerhalb des Rahmens), Diagrammoptionen, Register Achsen, bei Primärachse ein Häkchen setzen bei Größnachse (Y) , OK
War es das?
Gruß Maria
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Maria,
das ist leider nicht die Lösung, denn dann erscheinen wie gesagt die Werte von U/I und nicht die I-Werte.
Grüße
Re^5: back to topic
Hallo Maria,
das ist leider nicht die Lösung, denn dann erscheinen wie
gesagt die Werte von U/I und nicht die I-Werte.
Grüße
Hi Shadow,
wie wärs denn damit:
http://rapidshare.com/files/363634/Diagramme_2_.xls…
Gruß
Reinhard
Re^6: back to topic
Hi Shadow,
wie wärs denn damit:
http://rapidshare.com/files/363634/Di…
Gruß
Reinhard
Heureka! Das ist es!
Auf die Idee bin ich gar nicht gekommen. Du hast einfach Grafiken eingefügt oder? Womit hast du die erstellt? Mit Paint und dergleichen?
Herzlichen Dank
Patrick
Hallo Maria,
das ist leider nicht die Lösung, denn dann erscheinen wie
gesagt die Werte von U/I und nicht die I-Werte.
Grüße
Hallo Patrick,
U/I ist R, der Widerstand. Auf deinem linken Diagramm wird der Widerstand R in Abhängigkeit von U dargestellt. Insofern ist es richtig, dass du an der Y-Achse nicht den Wertebereich für die Stromstärke anzeigen kannst. Es wäre auch sachlich falsch, wenn du „händisch“ dort versuchst die Stromstärke anzuzeigen.
Wenn du den Graphen des linken Diagramms anklickst, werden die dazugehörenden Werte in deiner Datentabelle eingerahmt. Die Stromstärke wird dabei nicht eingerahmt.
Wenn du den Graphen des rechten Diagramms anklickst, werden die Zeilen 1 und 4 markiert, Zeile 1 für die Spannung U in V (deine X-Achse), Zeile 4 für U/R gleich Stromstärke I(deine Y-Achse)). Die Werte dieser Zeile hast du noch einmal berechnet, obwohl du diese Werte ja in der Zeile 2 schon gegeben hast. (Ich würde sagen, dass ist die Probe, ob du in Zeile 3 richtig gerechnet hast.) Die Bezeichnung der Y-Achse ist übrigens falsch, denn dein Wertebereich ist I in mA. Die Überschrift des Diagramms sollte richtigerweise Widerstand R=U/I oder so ähnlich heißen.
Gruß
Maria
Re^7: back to topic
Heureka! Das ist es!
Auf die Idee bin ich gar nicht gekommen. Du hast einfach
Grafiken eingefügt oder? Womit hast du die erstellt? Mit Paint
und dergleichen?
Hi Patrick,
nein, alles mit Excelbordmitteln, sind nur die Zellen von Tabelle2, die Tabelle2 hatte ich halt nur versteckt
D.h. Wertänderungen in Tabelle2 erzeugen in dem Diagramm auch Änderungen der Beschriftungswerte.
Hier siehte alles, auch ohne makros diesmal *g
http://rapidshare.com/files/371987/Diagramme_2_.xls…
Gruß
Reinhard
Abend,
sehr raffiniert.
Ich habe mich schon gewundert was die Makros da sollen, musste sie extra aktivieren lassen…
Aber das ging mir trotzdem ein wenig zu schnell.
Wie hast du die Zellen zu Grafiken bekommen?
Und wie hast du debenbei die restlichen Tabellen verschwinden lassen?
Oder hast du mir einen Tipp, wo ich das nachlesen könnte?
Grüße
Patrick
Hi Patrick,
Wie hast du die Zellen zu Grafiken bekommen?
oben in der Symbolleiste kannste überr Anpassen die Kamera als Symbol einbauen. Die macht das Gleiche. Aber ist nicht nötig. Du markierst einen Beeich, dann Strg+C, dann hälst du die Shifttaste gedrückt und gehst auf Bearbeiten, dann gibts da auf einmal "verknüpfte Bilder einfügen o.ä. , schon haste das.
Und wie hast du nebenbei die restlichen Tabellen verschwinden
lassen?
Mit Excel kannste die Blätter ein oder ausblenden.
Mit Vba kannste die Blätter zusätzlich verstärkt ausblenden lassen, so dass sie mit Excel nicht mehr einblendbar sind
Der Code:
Worksheets(„Tabelle2“).visible=xlveryhidden
Gruß
Reinhard
Guten Morgen,
da wäre ich mit Sicherheit niemals drauf gekommen!
Aber ich merke gerade, dass die Lösung neue Probleme mit sich bringt.
- Die Graphik wird nicht als Teil des Diagramms gesehen und somit kann ich sie nicht übereinander in MS-Word einfügen.
Ich könnte jetzt natürlich in Excel ein Screenshot machen, usw…
Aber meinst es geht auch einfacher?
Grüße
Patrick