Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

was kniffliges!

Forumthread: was kniffliges!

was kniffliges!
09.08.2002 19:06:19
Klaus
Hallo!

Ich wil alle Zu- und Abgänge in einem Lager tageweise darstellen. Dazu werte ich eine Datenbank aus, in der die benötigten Einträge stehen. Als Ergebniss steht in einer Excel Tabele zu jeder Minute dieser 6 Tage der richtigen Lagerbestand, in etwa so:
5.08 lagerbestand 6.08 lagerbestand .....
00:00 65 00:00 77
00:01 65 00:01 76
......
Damit könnte ich jeweils ein Diagramm für einen Tag anlegen. Ich möchte aber NUR 1 Diagramm in dem man wählen kann, ob man die kurve vom 5.8 oder 6.8 oder ALLE sehen will. Ich habs schon mit Pivotdiagrammen versucht, aber das glaub ich ist nich so das wahre. Vielen Dank im voraus.
MFG
Klaus

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: was kniffliges!
09.08.2002 19:34:06
Herbert
Hallo Klaus,
Ein Ansatz,wie Du einzelne Datenreihen einblenden kannst.
Die Daten der Spalten "h" u."i" werden ausgeblendet,
die spalte "F" wird eingeblendet.
Die Formatierung der Größenachse kannst Du natürlich weggeben,
weil Du wahrscheinlich bei allen Datenreihen die gleiche Formatierung hast.
Gruß Herbert

Sub einblenden_Datenreihe()
Application.ScreenUpdating = False

If Sheets("IP").Columns("h:h"). _
EntireColumn.Hidden = False Then
Sheets("IP").Columns("h:h"). _
EntireColumn.Hidden = True

Else: Sheets("IP").Columns("F:F") _
.EntireColumn.Hidden = False
ActiveSheet.Unprotect "human"
ActiveSheet.ChartObjects("Diagramm 1").Activate
  With ActiveChart.Axes(xlValue, xlPrimary)
        .MinimumScale = 0
        .MaximumScaleIsAuto = True
        .MajorUnit = 0.1
        .TickLabels.NumberFormat = "0.0  ""%"""
    End With
        Range("A1").Activate
         ActiveSheet.Protect "human"
End If

If Sheets("IP").Columns("i:i"). _
EntireColumn.Hidden = False Then
Sheets("IP").Columns("i:i"). _
EntireColumn.Hidden = True

Else: Sheets("IP").Columns("F:F") _
.EntireColumn.Hidden = False
ActiveSheet.Unprotect "human"
ActiveSheet.ChartObjects("Diagramm 1").Activate
  With ActiveChart.Axes(xlValue, xlPrimary)
        .MinimumScale = 0
        .MaximumScaleIsAuto = True
        .MajorUnit = 0.1
        .TickLabels.NumberFormat = "0.0  ""%"""
    End With
        Range("A1").Activate
         ActiveSheet.Protect "human"
End If
Application.ScreenUpdating = True
End Sub

     




Anzeige
Datenreihe einblenden
10.08.2002 13:24:23
Herbert
Man kann das natürlich auch etwas übersichtlicher machen,
und ohne Achsenformatierung.
Gruß Herbert

Sub Datenreihe_einblenden()
Application.ScreenUpdating = False
Dim sp1 As Range
Dim sp2 As Range
Dim datr As Range

Set sp1 = Sheets("2").[h:h].EntireColumn
Set sp2 = Sheets("2").[i:i].EntireColumn
Set datr = Sheets("2").[f:f].EntireColumn

If sp1.Hidden = False Then
   sp1.Hidden = True
Else: datr.Hidden = False
End If

If sp2.Hidden = False Then
   sp2.Hidden = True
Else: datr.Hidden = False
End If
Application.ScreenUpdating = True
End Sub

     

Alles über Formeln

Anzeige
Re: Datenreihe einblenden
11.08.2002 13:40:42
Klaus
hallo herbert!
vielen dank für deine hilfe, ich muss mir das ganze erstmal genau anschauen :)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige