Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Jeden zweiten Wert in Diagramm

Jeden zweiten Wert in Diagramm
04.06.2007 10:02:00
Tobias
Hallo zusammen.
Ich brauch mal wieder eure Hilfe!!
Ich habe mir in Excel mit Hilfe eines VBA Codes ein Diagramm erstellen lassen. So weit so gut - aber jetzt brauche ich eine Diagrammlinie, die ich aus jedem zweiten Wert einer Spalte erstellen lassen will.
Also so:
Spalte4 (x-Werte): Jeden zweiten Wert von Zeile 1 bis Zeile 46
Spalte5 (y-Werte): ebenfalls nur jeden zweiten Wert von Zeile 1 bis 46
Wie kann man das machen!
Gruß
Tobias

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jeden zweiten Wert in Diagramm
04.06.2007 10:45:00
HermannZ
Hallo Tobias;
ein beispiel für so was;
 FGH
460Jede Nte Zelle einer Spalte in neuer Spalte untereinander ausfisten  
461   
462 Nte Zelle 
463121
4642 3
4653 5
4664 7
4675 9
4686 11
4697 13
4708 15
4719 17
47210 19
47311  
47412  
47513  
47614  
47715  
47816  
47917  
48018  
48119  
482   

Formeln der Tabelle
ZelleFormel
H463=WENN(AUFRUNDEN(ANZAHL($F$463:$F$481)/$G$463;0)<ZEILE(A1); "";INDEX($F$463:$F$481;SPALTE(A1)+(ZEILE(A1)-1)*$G$463))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruss HermannZ

Anzeige
AW: Jeden zweiten Wert in Diagramm
04.06.2007 10:52:00
Tobias
Hallo Hermann,
Danke für die Hilfe, aber ich benötige einen VBA Code, da ich mein Diagramm über VBA erstellen lasse!
Gruß
Tobias

AW: Jeden zweiten Wert in Diagramm
04.06.2007 19:52:13
Beverly
Hi Tobias,
leider schreibst du nichts dazu, wie du das Diagramm mit VBA erstellt, deshalb nur mal als Anregung
Sub diagramm_erstellen() Dim chDiagramm As Chart Dim loLetzte As Long Dim loZeile As Long Dim strFormelX As String Dim strFormelY As String Application.ScreenUpdating = False Set chDiagramm = Charts.Add chDiagramm.ChartType = xlXYScatterLinesNoMarkers chDiagramm.Location Where:=xlLocationAsObject, Name:="Tabelle2" Set chDiagramm = ActiveSheet.ChartObjects(1).Chart loZaehler = 1 With Worksheets("Tabelle1") loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _ Rows.Count) For loZeile = 3 To loLetzte Step 2 strFormelX = strFormelX & "," & .Cells(loZeile, 4) strFormelY = strFormelY & "," & .Cells(loZeile, 5) Next loZeile With chDiagramm .SeriesCollection.NewSeries .SeriesCollection(.SeriesCollection.Count).XValues = "={" & Mid(strFormelX, 2) & "}" _ .SeriesCollection(.SeriesCollection.Count).Values = "={" & Mid(strFormelY, 2) & "}" End With End With Application.ScreenUpdating = True End Sub


Es wird ein neuens XY-Diagramm erstellt und aus Spalte D die X-Werte, aus Spalte E die Y-Werte als neue Datenreihe eingefügt.
________________________________________

Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Diagramm in Excel: Jeden zweiten Wert anzeigen


Schritt-für-Schritt-Anleitung

Um in Excel ein Diagramm zu erstellen, das nur jeden zweiten Wert anzeigt, kannst du den folgenden VBA-Code verwenden:

Sub diagramm_erstellen()
    Dim chDiagramm As Chart
    Dim loLetzte As Long
    Dim loZeile As Long
    Dim strFormelX As String
    Dim strFormelY As String
    Application.ScreenUpdating = False
    Set chDiagramm = Charts.Add
    chDiagramm.ChartType = xlXYScatterLinesNoMarkers
    chDiagramm.Location Where:=xlLocationAsObject, Name:="Tabelle2"
    Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
    loZaehler = 1
    With Worksheets("Tabelle1")
        loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, _
                       .Rows.Count)
        For loZeile = 3 To loLetzte Step 2
            strFormelX = strFormelX & "," & .Cells(loZeile, 4)
            strFormelY = strFormelY & "," & .Cells(loZeile, 5)
        Next loZeile
        With chDiagramm
            .SeriesCollection.NewSeries
            .SeriesCollection(.SeriesCollection.Count).XValues = "={" & Mid(strFormelX, 2) & "}"
            .SeriesCollection(.SeriesCollection.Count).Values = "={" & Mid(strFormelY, 2) & "}"
        End With
    End With
    Application.ScreenUpdating = True
End Sub

Dieser Code erstellt ein XY-Diagramm in Tabellenblatt 2, wobei die X-Werte aus Spalte D und die Y-Werte aus Spalte E entnommen werden. Dabei werden nur die Werte aus jeder zweiten Zeile verwendet.


Häufige Fehler und Lösungen

  • Fehler: Das Diagramm wird nicht korrekt angezeigt.

    • Lösung: Stelle sicher, dass die Daten in den richtigen Spalten (D für X-Werte und E für Y-Werte) vorhanden sind und dass die Zeilen korrekt indiziert sind.
  • Fehler: Der VBA-Code läuft nicht.

    • Lösung: Überprüfe, ob die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, kannst du auch eine Formel nutzen, um jeden zweiten oder sogar jeden zehnten Wert in eine neue Spalte zu kopieren. Hier ist ein Beispiel:

=INDEX(A:A, ZEILE()*2)

Diese Formel gibt jeden zweiten Wert aus Spalte A zurück. Du kannst die Formel anpassen, um jeden zehnten Wert zu berücksichtigen, indem du die Zahl 2 durch 10 ersetzt.


Praktische Beispiele

Angenommen, du hast eine Liste von Werten in Spalte D und E. Um nur jeden zweiten Wert im Diagramm darzustellen, kannst du den oben genannten VBA-Code verwenden. Wenn du stattdessen nur jeden zehnten Wert anzeigen möchtest, kannst du die Schleife im Code anpassen:

For loZeile = 3 To loLetzte Step 10

Das sorgt dafür, dass nur jeden zehnten Wert in das Diagramm aufgenommen wird.


Tipps für Profis

  • Nutze benannte Bereiche für deine Daten, um die Wartbarkeit des Codes zu verbessern.
  • Experimentiere mit verschiedenen Diagrammtypen, um die beste Darstellung für deine Daten zu finden.
  • Wenn du das Diagramm dynamisch gestalten möchtest, berücksichtige die Verwendung von dynamischen Datenbereichen in Excel.

FAQ: Häufige Fragen

1. Wie kann ich das Diagramm nur jeden zweiten Wert anzeigen lassen?
Verwende den bereitgestellten VBA-Code und passe die Schleife an, um die gewünschten Werte zu selektieren.

2. Ist es möglich, jeden zehnten Wert in einem Diagramm darzustellen?
Ja, du kannst die Schrittgröße in der For-Schleife des VBA-Codes anpassen, um jeden zehnten Wert zu verwenden.

3. Funktioniert dieser Code in allen Excel-Versionen?
Der VBA-Code sollte in den meisten aktuellen Excel-Versionen funktionieren. Stelle sicher, dass du die Makros aktiviert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige