Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Balkendiagramm
zurück: LastRow - Problem weiter: Daten auslesen und in ein neues sheet kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
cromo1810
Gast


Verfasst am:
20. Nov 2006, 16:28
Rufname:


Balkendiagramm - Balkendiagramm

Nach oben
       Version: Office XP (2002)

Hallo,

ich hab folgendes Problem:

Ich hab ein Tabellenblatt auf dem eine Balkendiagramm gezeichnet werden soll ("ZEITSTRAHL") und ich hab ein zweites Tabellenblatt auf dem die Daten für dieses Diagramm sind ("KUECHENGERAETE").

Nun sollen die eintzelnen Küchengeräte, also die Balken untereinander angeordnet werden. Also Balken des ersten Küchengerätes, dann 6 Zeilen leer, dann der Balken des zweiten Küchengerätes usw. Wobei Küchengeräte des selben Typs in einer Zeile, also zwei, oder mehrere Balken hintereinander dargestellt werden sollen. Es muß also auch eine Abfrage geben, wenn der selbe Typ - dann in der selben Zeile darstellen.

Bisher schaff ich es nicht dass die Datensätze, wie oben beschrieben, untereinander angeodnet werden - sondern mein Programm schreibt alle Datensätze übereinander in der selben Zeile (Startzeile).
Ich brauch also vermutlich zwei Zähl- Schleifen (und eine Typ Vergleichs Abfrage) die sowohl die Küchengeräte hochzählen, als auch die Zeilen hochzählen im meinem Diagramm. Und da liegt das Problem, das bekomm ich nicht hin.

Ich hoff ihr könnt mir dabei etwas helfen.
Vielen Dank!

Gruß


Hier der Code, wobei das Problem denk in der Gestaltung der Zähl, Vergleich Abfrage liegt hier im Code fett markiert die Ziel_zeile (Startzeile) in meinem Diagramm - ab dieser Zeile sollen die Balken hochgezählt werden.





Code:


Sub zeitstrahl Kuechengeraete()
Dim nColor As Integer
Dim rColor As Integer
Zeile_Quell = 2
Sheets("Zeitstrahl").Select

Do
    Marke = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 1)
    Kuechengeraete = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 2)
    Modellcode = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 3)
    Nachfolge_ID = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 9)
    MStart = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 10)
    JStart = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 11)
    MEnde = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 12)
    JEnde = Worksheets("Kuechengeraete").Cells(Zeile_Quell, 13)
   
   If Zeile_Quell = 2 Then
         Sheets("Zeitstrahl").Range("M1") = Marke
   End If
   
    If MStart <> "" And JStart <> "" And MEnde <> "" And JEnde <> "" Then
   
       [b] Zeile_Ziel = 6[/b]
        ' Start ab Zeile 6 in Tabelle Zeitstrahl
   
               
            Do While Cells(Zeile_Ziel, 1) <> "" And Cells(Zeile_Ziel, 1) <> Nachfolge_ID
            'And Cells(Zeile_Ziel, 1) = Nachfolge_ID
                'Zeile_Ziel = Zeile_Ziel + 2
            Loop
               
        'Füllfarbe
            nColor = 4
   
        'Rahmenfarbe
        'Kuechengeraete grün
            rColor = 10

       
            'Cells(Zeile_Ziel, 1) = Nachfolge_ID
            Spalte_S = 1 + MStart + ((JStart - Worksheets("Formulartabelle").Cells(1, 2).Text) * 12)
            Spalte_E = 1 + MEnde + ((JEnde - Worksheets("Formulartabelle").Cells(1, 2).Text) * 12)

            Cells(Zeile_Ziel, Spalte_S) = Modellcode
   
            If Spalte_E - Spalte_S < 1 Then
               Cells(Zeile_Ziel, Spalte_E).Select
               With Selection
                    .Borders(xlDiagonalDown).LineStyle = xlNone
                    .Borders(xlDiagonalUp).LineStyle = xlNone
                    .Borders(xlInsideVertical).LineStyle = xlNone
               End With
               Call PfeilKuechengeraete(rColor, 1)
            ElseIf Spalte_E - Spalte_S < 3 Then
                    nLang = Spalte_E - Spalte_S + 1
                    Cells(Zeile_Ziel, Spalte_E - nLang + 1).Select
                    With Selection
                        .Borders(xlDiagonalDown).LineStyle = xlNone
                        .Borders(xlDiagonalUp).LineStyle = xlNone
                        .Borders(xlInsideVertical).LineStyle = xlNone
                    End With
                    Call PfeilKuechengeraete(rColor, nLang)
                Else: Range(Cells(Zeile_Ziel, Spalte_S), Cells(Zeile_Ziel, Spalte_E - 3)).Select
                        With Selection
                            .Borders(xlDiagonalDown).LineStyle = xlNone
                            .Borders(xlDiagonalUp).LineStyle = xlNone
                            .Borders(xlInsideVertical).LineStyle = xlNone
                        End With
                        With Selection.Interior
                            .ColorIndex = nColor
                            .Pattern = xlSolid
                        End With
                        Range(Cells(Zeile_Ziel, Spalte_S), Cells(Zeile_Ziel, Spalte_E - 3)).Select
                        With Selection.Borders(xlEdgeLeft)
                            .LineStyle = xlContinuous
                            .Weight = xlThin
                            .ColorIndex = rColor
                        End With
                        With Selection.Borders(xlEdgeTop)
                            .LineStyle = xlContinuous
                            .Weight = xlThin
                            .ColorIndex = rColor
                        End With
                        With Selection.Borders(xlEdgeBottom)
                            .LineStyle = xlContinuous
                            .Weight = xlThin
                            .ColorIndex = rColor
                        End With
                        With Selection.Borders(xlEdgeRight)
                            .LineStyle = xlContinuous
                            .Weight = xlThin
                            .ColorIndex = rColor
                        End With
                    Cells(Zeile_Ziel, Spalte_E - 2).Select
                    Call PfeilKuechengeraete(rColor, 3)
                End If
        End If
Cells(Zeile_Ziel, 136) = 1
Cells(Zeile_Ziel, 141) = 1

Zeile_Quell = Zeile_Quell + 1

Loop Until Worksheets("Kuechengeraete").Cells(Zeile_Quell, 1) = ""
Cells(1, 1).Select

End Sub

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 VBA (Makros): schwebendes Balkendiagramm für Arbeitszeiten 4 Doggie 302 25. März 2013, 18:05
Doggie schwebendes Balkendiagramm für Arbeitszeiten
Keine neuen Beiträge Excel Formate: Balkendiagramm verschiedene Ziele und bedingte Formatierung 1 xen.on 304 26. Okt 2012, 07:57
xen.on Balkendiagramm verschiedene Ziele und bedingte Formatierung
Keine neuen Beiträge Excel VBA (Makros): Balkendiagramm Werte einfügen 1 Peter W 588 03. Dez 2011, 23:08
Uraltpost Balkendiagramm Werte einfügen
Keine neuen Beiträge Excel VBA (Makros): Farben im gestapelten Balkendiagramm per vba 2 Heinz Schweigert 715 31. Mai 2011, 14:25
Heinz Schweigert Farben im gestapelten Balkendiagramm per vba
Keine neuen Beiträge Excel VBA (Makros): Punktdiagramm und Balkendiagramm 0 Line 1807 09. Jun 2010, 10:58
Line Punktdiagramm und Balkendiagramm
Keine neuen Beiträge Excel VBA (Makros): Balkendiagramm mit immer 5 Balken auf einer Seite anzeigen 0 ? 204 29. Okt 2009, 12:31
? Balkendiagramm mit immer 5 Balken auf einer Seite anzeigen
Keine neuen Beiträge Excel VBA (Makros): Balkendiagramm abwechselnd in 2 Farben formatieren mit VBA 7 mario-s 2227 26. Mai 2009, 18:06
mario-s Balkendiagramm abwechselnd in 2 Farben formatieren mit VBA
Keine neuen Beiträge Excel Formate: Balkendiagramm mit Textur? 1 florian z. 4034 06. Mai 2008, 18:25
Zero Balkendiagramm  mit Textur?
Keine neuen Beiträge Excel Formate: Transparente Balken im Balkendiagramm 2 Cabation 692 02. Apr 2007, 23:57
Cabation Transparente Balken im Balkendiagramm
Keine neuen Beiträge Excel Formate: Balkendiagramm formatieren bzw. Balken zentrieren 1 Gast 2951 19. Sep 2006, 11:38
Alto Balkendiagramm formatieren bzw. Balken zentrieren
Keine neuen Beiträge Excel Auswertungen: 100% Linie im Balkendiagramm 5 Zehabe 1100 24. Jul 2006, 14:51
Gast 100% Linie im Balkendiagramm
Keine neuen Beiträge Excel Auswertungen: Datenbeschriftung in Balkendiagramm 1 **Claudi** 9425 10. Jul 2006, 13:42
Alto Datenbeschriftung in Balkendiagramm
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks