Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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 :)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige