Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagrammdaten ein- und ausblenden

Forumthread: Diagrammdaten ein- und ausblenden

Diagrammdaten ein- und ausblenden
17.09.2020 12:01:40
Torsten
Hallo zusammen,
ich habe ein Problem mit der Darstellung von Daten innerhalb von Diagrammen.
Für die Auswertung von Temperaturen möchte ich die gemessenen Werte mittels Kurve in einem Punkt- oder Liniendiagramm darstellen, um schnell Abweichungen zu vorherigen Tagen erkennen zu können.
Die Daten hole ich mir von einem Server, welcher sie mir wie in den Sheets mit Datum ausgibt. Ich möchte diese Daten einfach nur herunterladen und in die freien Sheets kopieren, weshalb ich mir mit Excel etwas umständlich mit der Wenn-Formel ein extra Sheet erstellt habe, um die Sensordaten zu gruppieren und leere Stellen mit #NV zu füllen.
In der Beispieldatei sind jetzt nur die Daten von 2 Sensoren, es werden aber deutlich mehr sein, wenn ich alle auslese. Zudem werden es mit der Zeit immer mehr und umfangreichere Datensätze werden, weshalb ich gerne einzelne Datensätze ausblenden würde, da es sonst nur noch schwer erkennbar sein wird, welche Kurve wozu gehört.
Ich hatte schon überlegt, ob man dies mit einer Pivot Tabelle machen kann. Die gelesenen und geschauten Tutorials dazu haben mir dazu aber wenig Hoffnung gemacht.
Habt ihr eine Idee wie ich die Daten aufbereiten sollte, um sie entsprechend darstellen zu können? Wie gesagt, möchte die neuen Datensätze dann am besten nur downloaden und reinkopieren, ohne großartige Formatierung und Bearbeitung.
Später will ich das dann nach Möglichkeit als Vorlage für weitere Daten anderer Sensoren nutzen.
Ich hoffe mit der Beispieldatei, sind meine Erklärung verständlich.
Viele Grüße
Torsten
https://www.herber.de/bbs/user/140285.xlsx
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagrammdaten ein- und ausblenden
18.09.2020 08:16:37
fcs
Hallo Torsten,
ich hab mir deine Daten mal angesehen.
Grundsätzlich ist es kein Problem diese Daten, die pro Datum kommen, per Makro einzulesen und für die Diagrammdarstellung in eine gewünschte Form zu bringen.
Ich hab jetzt eine Fragen/Anmerkungen zur Zeitachse:
In deinen Beispieldaten für den 1.1.2020 und 2.1.2020 beginnen die Messdaten zu unterschiedlichen Uhrzeiten (07:33:52 bzw. 09:54:59)
Beide Messreihen haben 80 Messpunkte (mit und ohne Messwerte) decken aber unterschiedliche Laufzeiten 00:24:59 (bis 07:43:59) bzw. 00:15:00 (bis 10:09:59).
In deinen Diagrammen stellst du dann die Temperaturen über den Messpunkte dar.
Ist das wirklich so gewollt?
Wäre es nicht sinnvoller hier die Messwerte über der Laufzeit dazustellen?
Ich habe die Daten der Tage jetzt per Makro in eine Tabelle auf dem Blatt "Daten" übertragen.
Dabei werden zu jeder Messung Datum Zeit, Laufzeit, Messpunkt, Messgröße und Wert erfasst.
In dieser Form ist eine Auswertung per Pivot-Tabellenbericht möglich.
Für jedes Diagramm muss eine Kopie des Tabellenblatts mit dem Pivot-Bericht erstellt werden und dann die Filterwerte angepasst werden. Die Diagramme kann man dann auf ein separates Blatt verschieben.
Zur Aktualisierung der Auswertungen muss dann nach dem Ergänzen eines Tages nur der Pivot-Bericht auf einem der Blätter aktualisiert werden.
https://www.herber.de/bbs/user/140301.xlsm
LG
Franz
Anzeige
AW: Diagrammdaten ein- und ausblenden
18.09.2020 14:28:34
Torsten
Hallo Franz,
vielen Dank, die Variante mit der Zeitachse ist sehr viel besser gelöst. Ich hatte die Messpunkte gewählt, da ich mit der zeitlichen Darstellung verschiedener Tage Probleme hatte. Auf deine Variante bin ich gar nicht gekommen.
Leider tritt bei neuen Daten immer wieder ein Fehler auf.
Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
wksDaten.Cells(Zeile_D, 3) = datLaufzeit
Ich denke, in der Datei sollte es reduzierbar sein.
Hast du eine Idee.
Viele Grüße
Torsten
https://www.herber.de/bbs/user/140313.xlsm
Anzeige
AW: Diagrammdaten ein- und ausblenden
18.09.2020 15:56:48
fcs
Hallo Torsten,
auch nach fast 30 Jahren arbeiten mit Excel wird man immer mal wieder von kleinen Gemeinheiten überrascht.
Es gibt einen minimal negativen Wert von -5,29E-13 wenn unter VBA in der 1. Datenzeile (=Starzeit) die vom Makro berechnete Startzeit von der Summe aus Datum und Zeit abgezogen wird, um die Laufzeit zu berechnen. Hier kommt die Rechengenauigkeit von Excel ins Spiel.
Negative Werte können unter Excel aber nicht als Datum/Zeit angezeigt werden.
Im VBA-Editor wird zu diesem Zeitpunkt für die Variable datLaufzeit der Wert #00:00:00# angezeigt - alles scheint OK.
Warum es dann beim Eintragen des Wertes der Variablen in die Zelle zum Fehler kommt - das wissen (oder auch nicht) nur die Excel-Götter bei Microsoft.
Ich hab jetzt eine Fehler-Behandlung eingebaut, die in diesem Fall die Laufzeit auf 0 Sekunden setzt.
Noch 2 Hinweise:
Wenn du die Tabelle im Blatt "Daten" komplett leerst, dann musst du in den Pivot-Tabellenberichten das Feld "Laufzeit" ggf. neu gruppieren nach Stunden und Minuten.
Du musst die Daten der Messreihen im Blatt "Daten" nicht löschen, um bestimmte Tage im Diagramm zu vergleichen. Du kannst im Diagramm den Filter für das Datum auf die Tage setzen, die du vergleichen möchtest.
LG
Franz 

Sub prcMesswerte_nach_Daten()
'Übertragung der Messwerte eines Tages ins Blatt Daten
Dim wksDaten As Worksheet
Dim wksMesswerte As Worksheet
Dim Zeile_M As Long, Zeile_D As Long, spa_M As Long
Dim datZeit0 As Date, datDatum As Date, datZeit As Date, datLaufzeit As Date, MP As Long
Dim iSh As Integer, arrSh() As String, sMsg As String
On Error GoTo Fehler
Set wksDaten = Worksheets("Daten")
With wksDaten
'letzte ausgefüllte Zeile in "Daten"
Zeile_D = .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile_D, 1) = "" Then
Zeile_D = Zeile_D - 1
End If
End With
For Each wksMesswerte In ActiveWorkbook.Worksheets
If IsDate(wksMesswerte.Name) Then
iSh = iSh + 1
ReDim Preserve arrSh(1 To iSh)
arrSh(iSh) = wksMesswerte.Name
sMsg = sMsg & vbLf & iSh & " = " & arrSh(iSh)
End If
Next
If iSh = 0 Then
MsgBox "Es gibr keine Blätter mit Datum als Name"
Else
iSh = InputBox("Bitte Nummer des gewünschten Datums eingeben" & sMsg, _
"Blatt mit Import-Daten wählen", 1)
Select Case Val(iSh)
Case 0 'Abgebrochen
Case 1 To UBound(arrSh)
Set wksMesswerte = ActiveWorkbook.Worksheets(arrSh(iSh))
With wksMesswerte
Zeile_M = 2
datZeit0 = .Cells(Zeile_M, 1).Value + .Cells(Zeile_M, 2).Value
MP = 0
For Zeile_M = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
datDatum = .Cells(Zeile_M, 1).Value
datZeit = .Cells(Zeile_M, 2)
datLaufzeit = datDatum + datZeit - datZeit0
MP = MP + 1
For spa_M = 4 To .Cells(1, .Columns.Count).End(xlToLeft).Column
If Trim(.Cells(Zeile_M, spa_M))  "" Then
Zeile_D = Zeile_D + 1
wksDaten.Cells(Zeile_D, 1) = datDatum
wksDaten.Cells(Zeile_D, 2) = datZeit
wksDaten.Cells(Zeile_D, 3) = datLaufzeit
wksDaten.Cells(Zeile_D, 4) = MP
wksDaten.Cells(Zeile_D, 5) = .Cells(1, spa_M).Text
wksDaten.Cells(Zeile_D, 6) = .Cells(Zeile_M, spa_M).Value
End If
Next
Next Zeile_M
End With
Case Else
MsgBox "ungültige Auswahl"
End Select
End If
'Fehler-Behandlung
Fehler:
With Err
Select Case .Number
Case 0 'alles ok
Case 1004
datLaufzeit = TimeSerial(0, 0, 0)
Resume
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige
AW: Diagrammdaten ein- und ausblenden
21.09.2020 11:59:35
Torsten
Hallo Franz,
das klappt jetzt super! Vielen, vielen Dank.
Die Hinweise werde ich beachten.
Eine Frage habe ich noch.
Wenn ich den Inhalt der Tabelle in "Daten" einmal lösche und auch die entsprechenden Sheets mit den Sensor Infos und neue Sheets einlese, kommen beim Datumsfilter weiterhin Tage, welche nicht mehr vorhanden sind. Kann man da irgendetwas machen?
Viele Grüße
Torsten
Anzeige
AW: Diagrammdaten ein- und ausblenden
21.09.2020 13:17:53
fcs
Hallo Torsten,
unter den Optionen für die Pivot-Tabellenberichte kannst du im Register "Daten" die Option "Elemente beibehalten, die aus der Quelle gelöscht wurden" auf "keine" setzen.
LG
Franz
AW: Diagrammdaten ein- und ausblenden
21.09.2020 17:08:32
Torsten
Hallo Franz,
danke für die ganze Hilfe. Jetzt läuft es rund.
Viele Grüße
Torsten
Anzeige
;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Anzeige
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige
Zeilen Ein und Ausblenden
TinoB

Hallo Excelgemeinde,
ich stehe gerade auf dem Schlauch und hoffe Ihr könnt mir helfen. Ich habe im Forum schon danach gesucht, nur leider komme ich nicht weiter. Ich möchte wenn in der Zelle B2 eine 1, 2 oder 3 steht die Zeile 18 ausblenden. Ansonsten soll diese eingeblendet werden oder zum...
23.03.2009 16:43:10
Thread-ID: 1062965
4 Beiträge
Gitternetzlinien per Icon ein- und ausblenden
Vega

Hi,
ich habe mir Excel an meinem neuen Arbeitsplatz gerade wieder neu eingerichtet und auch alles soweit wieder hinbekommen. Nur ein Icon in der Menüleiste fehlt mir noch, mit dem ich die Gitternetzlinien ein- und ausblenden kann.
Ich hatte dies ein meiner alten Excel Umgebung in der Sy...
30.03.2009 15:30:18
Thread-ID: 1065324
5 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige