Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Grafik verschieben
zurück: Datum/Zeit mit Wert vergleichen weiter: Steuerelement suchen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Hemsa
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Jun 2011, 21:44
Rufname:

Grafik verschieben - Grafik verschieben

Nach oben
       Version: Office 2003

Hallole,
Wenn ich den Wertebereich für eine Grafik nach rechts verschieben will benutzte ich z.B. folgende Funktion:

ActiveChart.SeriesCollection(1).Values = "='22'!R3C" & sp & ":R15C" & sp

wobei 22 das Arbeitsblatt ist und sp in Abhänigkeit vom Datum das Ganze für die Grafik nach Datum aktualisiert ( für jedes Datum eine neue Spalte ).

Nun will ich nicht nach rechts aktualisieren, sondern nach oben / unten wie in diesem Beispiel:

Code:

    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R16C2:R57C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R15C2:R56C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R14C2:R55C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R13C2:R54C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R12C2:R53C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R11C2:R52C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R10C2:R51C2"


Mein Ansatz war: Die Werte die nach dem R kommen, durch eine Variable zu ersetzen ( sp und tt ). Nach dem gleichem Prinzip wie im obrigem Beispiel.

Code:

    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R"&sp&"C2:R"&tt&"C2"


aber ich bekomme immer eine Fehlermeldung.

Hat einer ein Idee wo der Fehler liegt?

Danke im Vorraus
Michael
MK_Excel
Excel-VBA-Programmierer


Verfasst am:
09. Jun 2011, 22:53
Rufname:
Wohnort: Heilbronn


AW: Grafik verschieben - AW: Grafik verschieben

Nach oben
       Version: Office 2003

Hallo Michael,

und was für eine Fehlermeldung bekommst du?

_________________
Gruss MK_Excel
Hemsa
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Jun 2011, 19:28
Rufname:

AW: Grafik verschieben - AW: Grafik verschieben

Nach oben
       Version: Office 2003

Hallo MK_Excel,

es taucht ein Fenster auf mit einem gelben Dreieck und der Meldung:

Compile error:

Syntax error

mit der Markierung von der Zeile die ich oben angegeben habe.

Eine Idee?

Danke schon mal im Vorraus
Michael

PS: Bin übrigens in Böckingen geboren. Ist allerdings schon eine Weile her.
Hemsa
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Jun 2011, 19:46
Rufname:

AW: Grafik verschieben - AW: Grafik verschieben

Nach oben
       Version: Office 2003

Hallole, habe mal Leerzeichen eingefügt, dann bekomme ich allerdings eine andere Fehlermeldung.

Dieser File ist mit dem Makrorecorder aufgezeichnet worden, wo ich dann im umsetzen nicht mehr weiterkomme.

Hier ist der Code:

Code:

Sub Makro2()

    Dim sp As Integer
    Dim tt As Integer

    sp = 10
    tt = 58

    ActiveSheet.ChartObjects("Grafik 1").Activate
    ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R" & sp & "C2:R" & tt & "C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R16C2:R57C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R15C2:R56C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R14C2:R55C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R13C2:R54C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R12C2:R53C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R11C2:R52C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R10C2:R51C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R9C2:R50C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R10C2:R51C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R11C2:R52C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R12C2:R53C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R13C2:R54C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R14C2:R55C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R15C2:R56C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R16C2:R57C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R17C2:R58C2"
    ActiveChart.SeriesCollection(2).Values = "=Sayfa1!R18C2:R59C2"

End Sub
Hemsa
Im Profil kannst Du frei den Rang ändern


Verfasst am:
10. Jun 2011, 20:13
Rufname:


AW: Grafik verschieben - AW: Grafik verschieben

Nach oben
       Version: Office 2003

Hallo MK_Excel,

jetzt klappt es. Jetzt kommt die andere Arbeit, Makro automatisch starten nach Eingabe etc.

Danke das du dich bemüht hast.

Michael
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: SVERWEIS vs. BEREICH.VERSCHIEBEN 9 Shruuf 3895 10. März 2014, 13:36
Pietro SVERWEIS vs. BEREICH.VERSCHIEBEN
Keine neuen Beiträge Excel Formeln: Grafik mit Formel einfügen 17 Reiner 27339 29. Dez 2013, 23:18
hiob Grafik mit Formel einfügen
Keine neuen Beiträge Excel Formeln: Grafik dynamisch einfügen 9 bone 6974 22. Aug 2012, 13:18
Gast Grafik dynamisch einfügen
Keine neuen Beiträge Excel Formeln: erledigte zeilen in neue Tabelle verschieben 5 dan123 7157 01. Jun 2010, 16:22
tayfun242 erledigte zeilen in neue Tabelle verschieben
Keine neuen Beiträge Excel Formeln: jede zweite zeile verschieben od. kopieren 2 david edison 4423 06. Jan 2008, 14:23
david edison jede zweite zeile verschieben od. kopieren
Keine neuen Beiträge Excel Formeln: Bereich verschieben - Formelhilfe 2 Mick1_1 1029 23. Dez 2007, 23:32
Mick1_1 Bereich verschieben - Formelhilfe
Keine neuen Beiträge Excel Formeln: Kalkulation Datenbank auf 2. Seite verschieben 1 Jones26 513 19. Dez 2007, 18:47
Jones26 Kalkulation Datenbank auf 2. Seite verschieben
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Berreich.Verschieben mit leeren Zellen dazwischen? 7 hurz 504 19. Dez 2007, 17:14
< Peter > Berreich.Verschieben mit leeren Zellen dazwischen?
Keine neuen Beiträge Excel Formeln: Verknüpfungen - Verschieben der Quelldatei 2 Gast aus Winsen 2051 31. Jul 2007, 21:34
Gast aus Winsen Verknüpfungen - Verschieben der Quelldatei
Keine neuen Beiträge Excel Formeln: Liste mit Datum - Grafik nach Tage 2 MarcelSChoe 814 23. Apr 2007, 14:20
Gast Liste mit Datum - Grafik nach Tage
Keine neuen Beiträge Excel Formeln: Linie in Grafik zeigt statt Nichts Null an 15 Alex__81 1111 03. Apr 2007, 14:18
Thomas Ramel Linie in Grafik zeigt statt Nichts Null an
Keine neuen Beiträge Excel Formeln: konditionierte Grafik einfügen 3 jodelpax 497 21. März 2007, 12:17
jodelpaxxx konditionierte Grafik einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript