Supportnet / Forum / Tabellenkalkulation
größte Säule ermitteln
Frage
hallo,
vllt kan mir jemand helfen.
ich habe ein Säulendiagramm das zwischen 2 und 20 Datenreihen besitzt, d.h. diese Anzahl ändert sich bei diversen eingaben des Benutzers.
Nun möchte ich sowohl die "höchste" als auch die "niedrigste" Datenreihe ermitteln, d.h. die Datenreihen mit dem größten bzw. kleinsten y-Wert. Dieses möchte ich per VBA Code machen.
Anschließend möchte ich eben diese beiden Datenreihen in irgend einer weise formatieren, dabei hilft mir aber dann "MAKRO AUFZEICHNEN".
Danke
MfG
seebaer
[*]
[sup][i]Admininfo: Führ bitte einen Thread nicht fort indem du einen Zweiten eröffnest, und vermeide Mehrfachanfragen. Die Datenbank wird es dir danken. Siehe [url=https://supportnet.de/faqsthread/840][u]FAQ 2[/u][/url] für deine nächste Anfrage.[/u][/i][/sup]
Antwort 1 von coros
Hallo Seebar,
wo stehen die y-Daten für das Diagramm (Bereichsangabe)? Das müsste man schon wissen, da man diese Werte abfragen muss.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
wo stehen die y-Daten für das Diagramm (Bereichsangabe)? Das müsste man schon wissen, da man diese Werte abfragen muss.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von seebaer_1
hallo oliver,
das ist genau der bereich aus meiner anderen frage, also B151:B170 und das diagramm ist ein eingebettetes im tabellenblatt("Übersicht-Sektionen")
MfG
seebaer
das ist genau der bereich aus meiner anderen frage, also B151:B170 und das diagramm ist ein eingebettetes im tabellenblatt("Übersicht-Sektionen")
MfG
seebaer
Antwort 3 von coros
Hallo seebaer,
ermiiteln kannst Du den höchsten und niedrigsten Wert mit dem gleichen Makro wie aus der Frage
https://supportnet.de/threads/1651780
nur dass Du halt dort nur mit "rngBereich" den Wert abfragst.
Den Rest machst Du ja dann mit der Makroaufzeichnung.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ermiiteln kannst Du den höchsten und niedrigsten Wert mit dem gleichen Makro wie aus der Frage
https://supportnet.de/threads/1651780
nur dass Du halt dort nur mit "rngBereich" den Wert abfragst.
Den Rest machst Du ja dann mit der Makroaufzeichnung.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von seebaer_1
hallo oliver,
mit folgendem könnte ich die datenreihe färben, aber nun bräuchte ich noch eine schleife oder verzweigung die sagt:
wenn zB B151 blau(fett), dann "meine anweisung" oder wenn zB B153 rot(fett) dann "meine anweisung". also meine frage wäre wie man das rot(fett) bzw blau(fett) abfrägt?
meine anweisung:
Sub färben ()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 32
.Pattern = xlSolid
End With
End Sub
danke
MfG
seebaer
mit folgendem könnte ich die datenreihe färben, aber nun bräuchte ich noch eine schleife oder verzweigung die sagt:
wenn zB B151 blau(fett), dann "meine anweisung" oder wenn zB B153 rot(fett) dann "meine anweisung". also meine frage wäre wie man das rot(fett) bzw blau(fett) abfrägt?
meine anweisung:
Sub färben ()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
With Selection.Interior
.ColorIndex = 32
.Pattern = xlSolid
End With
End Sub
danke
MfG
seebaer
Antwort 5 von coros
Hallo seebar,
bleibe bitte in Deinem Beitrag
https://supportnet.de/threads/1651780
sonst wird das zu unübersichtlich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
bleibe bitte in Deinem Beitrag
https://supportnet.de/threads/1651780
sonst wird das zu unübersichtlich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.