Maschinenwartung

[M.Wichmann]

Wenn ich aus Spalte F den Bezug wegnehme geht das sortieren über I, es kommt dann zwar auch diese kleine grüne Ecke aber er sortiert es.

Mit Bezug sortiert er nur Teilweise und wenn ich über dieses Fehlerkontextmenü die Formel wiederherstelle passt auch wieder alles.

[M.Wichmann]

Denke konnte es lösen, keine Ahnung ob das der richtige Weg ist und evtl später noch Probleme macht, aber Momentan tut die Tabelle was Sie soll

Ich habe den Bezug ein wenig geändert:

von  =SVERWEIS(Übersicht!$B13;Daten!$D$2:$E$3;2;0)
auf   =SVERWEIS($B13;Daten!$D$2:$E$3;2;0)

Er zeigt zwar immer noch diese grünen Fehlerindikatoren an, aber auf jeden Fall scheint es zu gehen so.

[Rabe]

Hi,

Wenn ich aus Spalte F den Bezug wegnehme geht das sortieren über I,
[...]
Mit Bezug sortiert er nur Teilweise und wenn ich über dieses Fehlerkontextmenü die Formel wiederherstelle passt auch wieder alles.

welchen Bezug nimmst Du weg?

Vor dem Sortieren:

Übersicht

	B	C	D	E	F	G	H	I	J	K
4	Maschine	Arbeit	Durchzuführende arbeiten nach Handbuch	Intervall	Øh/KW	Intervall-Std.	Intervall-Start	fällig	erfolgt?	ID
5	BM14	8	Schmierung laut Plan	120	40	504	01.01.2017	22.01.2017	Nein	1
6	BM13	1	Grundreinigung, Kontrolle allgemein	120	20	1008	01.01.2017	12.02.2017	nein	2
7	BM14	1	Grundreinigung, Kontrolle allgemein	500	40	2100	01.01.2017	29.03.2017	Nein	3
8	BM14	2	Grundreinigung Hydraulik	600	40	2520	01.01.2017	16.04.2017	Nein	4
9	BM13	8	Schmierung laut Plan	480	20	4032	01.01.2017	18.06.2017	nein	5
10	BM14	3	Kontrolle Elektrik, Pneumatik	1200	40	5040	01.01.2017	30.07.2017	Nein	6
11	BM14	4	Hydraulik, Schleißeinheit	2400	40	10080	01.01.2017	25.02.2018	Nein	7
12	BM13	9	Kalibrier. Elektrik	2400	20	20160	01.01.2017	21.04.2019	nein	8
13	BM14	5	Kontrolle Schläuche, Getriebe	6000	40	25200	01.01.2017	17.11.2019	Nein	9
14	BM14	6	Ölwechsel Schließeinheit	10000	40	42000	01.01.2017	17.10.2021	nein	10
15	BM14	7	Keilriemen, Ölwechsel Tragrahmen	18000	40	75600	01.01.2017	17.08.2025	nein	11

verwendete Formeln
Zelle	Formel	Bereich	N/A
D5: D15	=WENN(ISTLEER(C5);"";SVERWEIS(C5;Tabelle3;2;0))
F5:F15	=SVERWEIS(Übersicht!$B5;Daten!$D$2:$E$3;2;0)
G5:G15	=E5/F5*7*24
I5:I15	=WENN(ISTLEER(Übersicht!$B5);"";Übersicht!$H5+(Übersicht!$G5/24))

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed.  Regeltyp	Operator	Formel1	Formel2	Format Schrift Füllfarbe	Unterstrichen	Schrift- farbe	Muster	Musterfarbe	Typ	Bereich
$I$5:$I$15	01.Bed.: Zellwert ist	kleiner	=HEUTE()		255					1	I5:I15

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$I$5:$I$15	01.Bed.		Falsch					1	I5:I15

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Nach absteigendem Sortieren:

Übersicht

	B	C	D	E	F	G	H	I	J	K
4	Maschine	Arbeit	Durchzuführende arbeiten nach Handbuch	Intervall	Øh/KW	Intervall-Std.	Intervall-Start	fällig	erfolgt?	ID
5	BM14	7	Keilriemen, Ölwechsel Tragrahmen	18000	40	75600	01.01.2017	22.01.2017	nein	11
6	BM14	6	Ölwechsel Schließeinheit	10000	20	84000	01.01.2017	22.01.2017	nein	10
7	BM14	5	Kontrolle Schläuche, Getriebe	6000	40	25200	01.01.2017	29.03.2017	Nein	9
8	BM13	9	Kalibrier. Elektrik	2400	40	10080	01.01.2017	30.07.2017	nein	8
9	BM14	4	Hydraulik, Schleißeinheit	2400	20	20160	01.01.2017	26.03.2017	Nein	7
10	BM14	3	Kontrolle Elektrik, Pneumatik	1200	40	5040	01.01.2017	30.07.2017	Nein	6
11	BM13	8	Schmierung laut Plan	480	40	2016	01.01.2017	21.04.2019	nein	5
12	BM14	2	Grundreinigung Hydraulik	600	20	5040	01.01.2017	25.02.2018	Nein	4
13	BM14	1	Grundreinigung, Kontrolle allgemein	500	40	2100	01.01.2017	17.11.2019	Nein	3
14	BM13	1	Grundreinigung, Kontrolle allgemein	120	40	504	01.01.2017	02.08.2026	nein	2
15	BM14	8	Schmierung laut Plan	120	40	504	01.01.2017	17.08.2025	Nein	1

verwendete Formeln
Zelle	Formel	Bereich	N/A
F5	=SVERWEIS(Übersicht!$B15;Daten!$D$2:$E$3;2;0)
I5	=WENN(ISTLEER(Übersicht!$B15);"";Übersicht!$H15+(Übersicht!$G15/24))
F6	=SVERWEIS(Übersicht!$B14;Daten!$D$2:$E$3;2;0)
I6	=WENN(ISTLEER(Übersicht!$B14);"";Übersicht!$H14+(Übersicht!$G14/24))
F7	=SVERWEIS(Übersicht!$B13;Daten!$D$2:$E$3;2;0)
I7	=WENN(ISTLEER(Übersicht!$B13);"";Übersicht!$H13+(Übersicht!$G13/24))
F8	=SVERWEIS(Übersicht!$B12;Daten!$D$2:$E$3;2;0)
I8	=WENN(ISTLEER(Übersicht!$B12);"";Übersicht!$H12+(Übersicht!$G12/24))
F9	=SVERWEIS(Übersicht!$B11;Daten!$D$2:$E$3;2;0)
I9	=WENN(ISTLEER(Übersicht!$B11);"";Übersicht!$H11+(Übersicht!$G11/24))
F10	=SVERWEIS(Übersicht!$B10;Daten!$D$2:$E$3;2;0)
I10	=WENN(ISTLEER(Übersicht!$B10);"";Übersicht!$H10+(Übersicht!$G10/24))
F11	=SVERWEIS(Übersicht!$B9;Daten!$D$2:$E$3;2;0)
I11	=WENN(ISTLEER(Übersicht!$B9);"";Übersicht!$H9+(Übersicht!$G9/24))
F12	=SVERWEIS(Übersicht!$B8;Daten!$D$2:$E$3;2;0)
I12	=WENN(ISTLEER(Übersicht!$B8);"";Übersicht!$H8+(Übersicht!$G8/24))
F13	=SVERWEIS(Übersicht!$B7;Daten!$D$2:$E$3;2;0)
I13	=WENN(ISTLEER(Übersicht!$B7);"";Übersicht!$H7+(Übersicht!$G7/24))
F14	=SVERWEIS(Übersicht!$B6;Daten!$D$2:$E$3;2;0)
I14	=WENN(ISTLEER(Übersicht!$B6);"";Übersicht!$H6+(Übersicht!$G6/24))
D5: D15	=WENN(ISTLEER(C5);"";SVERWEIS(C5;Tabelle3;2;0))
F15	=SVERWEIS(Übersicht!$B5;Daten!$D$2:$E$3;2;0)
G5:G15	=E5/F5*7*24
I15	=WENN(ISTLEER(Übersicht!$B5);"";Übersicht!$H5+(Übersicht!$G5/24))

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed.  Regeltyp	Operator	Formel1	Formel2	Format Schrift Füllfarbe	Unterstrichen	Schrift- farbe	Muster	Musterfarbe	Typ	Bereich
$I$5:$I$15	01.Bed.: Zellwert ist	kleiner	=HEUTE()		255					1	I5:I15

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$I$5:$I$15	01.Bed.		Falsch					1	I5:I15

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Da bezieht sich die Formel in I5 auf B15, G15 und H15. Und damit stimmt das Fälligkeitsdatum und die Rotfärbung in I5 und I6 nicht mit den Daten und Intervallen in Zeile 5 überein.
Die Formel in F5 bezieht sich auf B15 und damit passen die Durchschnittswerte/kW (Spalte F) ebenfalls nicht zu den Maschinen (Spalte B) in der jeweiligen Zeile.

[Rabe]

Hi,

Ich habe den Bezug ein wenig geändert:

ja, wenn aus den Formeln in Spalte F und I jeweils das "Übersicht!" entfernt wird, dann läßt sich die Tabelle beliebig umsortieren.

F5: =SVERWEIS($B5;Daten!$D$2:$E$3;2;0)
I5: =WENN(ISTLEER($B5);"";$H5+($G5/24))

Was mir noch aufgefallen ist:
Dein Makro-Modul1 "Sub EineEckedesRechtecksabrunden1_KlickenSieAuf()" ist viel zu kompliziert mit viiiiieeel unnötigem Ballast.

Statt so z.B.:

Code:

   Range("B2").Select
   ActiveCell.FormulaR1C1 = "Grundreinigung allgemein HB 74/75"
   Range("B3").Select
   ActiveCell.FormulaR1C1 = "Grundreinigung Hydraulik, Extruder  HB 75"
   Range("B3").Select
   ActiveCell.FormulaR1C1 = "Grundreinigung Hydraulik"
   Range("B2").Select
   ActiveCell.FormulaR1C1 = "Grundreinigung allgemein"

machst Du kürzer besser so:

Code:

   Range("B2") = "Grundreinigung allgemein HB 74/75"
   Range("B3") = "Grundreinigung Hydraulik, Extruder  HB 75"
   Range("B3") = "Grundreinigung Hydraulik"
   Range("B2") = "Grundreinigung allgemein"

Außerdem wird da der geschriebene Text gleich wieder mit anderem überschrieben.
Und ich glaube, das ganze Makro ist überflüssig, kann es aber nicht laufen lassen zum ausprobieren.

[M.Wichmann]

Hi,


welchen Bezug nimmst Du weg?

Damit meinte ich, das ich die Zahl per Hand eingegeben habe.

Und diese Macro, das habe ich glaube ich ausversehen erstellt. 

Wie gesagt, durch die Formeländerung in F scheint es zu gehen,  in I steht doch garnix von "Übersicht!"

[Rabe]

Hi,

Wie gesagt, durch die Formeländerung in F scheint es zu gehen,  in I steht doch garnix von "Übersicht!"

dann schaue Dir mal meine geposteten Ausschnitte und die angehängte Datei (V1.1 von heute 07:24 Uhr) an.

[M.Wichmann]

Sehen tuhe ich aber das:

 =WENN(ISTLEER(Tabelle4[[#Diese Zeile];[Maschine]]);"";Tabelle4[[#Diese Zeile];[Intervall-Start]]+Tabelle4[[#Diese Zeile];[Intervall-Std.]]/24)

was ich jetzt beim kurzen testen gesehen habe, sortiert er I aber richtig. Ich werd mal die daten so ändern das ich es eindeutiger zuordnen kann.


Edit: habe mal mit Daten simuliert, I sortiert soweit auch wie es soll ohne was zu ändern.

[Rabe]

hi,

ich habe mein Makro noch etwas verbessert durch Beschränkung der Änderungsprüfung auf die Spalte J

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   ' 
   ' Wartungs-Intervall_neustarten 
   ' 
   Dim rngBereich                As Range
   Dim rngZelle                  As Range
   ' 
   
   Call Standard_aus
   Set rngBereich = Intersect(Target, Range("J:J"))
   If Not rngBereich Is Nothing Then
      On Error GoTo ErrorHandler
      For Each rngZelle In rngBereich
         If rngZelle.Value = "Ja" Then
            Range("H" & Target.Row) = Date
            Range("J" & Target.Row) = "Nein"
         End If
      Next rngZelle
      
ErrorHandler:
      Call Standard_ein
   End If
End Sub

Private Sub Standard_aus()
   Application.ScreenUpdating = False 'Bildschirmaktualisierung ausschalten 
   Application.EnableEvents = False   'Reaktion auf Ereignisse ausschalten 
End Sub

Private Sub Standard_ein()
   Application.EnableEvents = True   'Reaktion auf Ereignisse wieder einschalten 
   Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten 
   If Err Then MsgBox Err.Number & "  " & Err.Description  'Fehlercode und Beschreibung anzeigen 
End Sub

[M.Wichmann]

Hi auch ;)

nochmals herzlichen Dank für deine Bemühungen.

Da die Tabelle jetzt doch so gut läuft, werde ich die Tabelle wohl in allen Bereichen einsetzen. Gibt ja vieles wo man Termine im Auge haben muss.

[M.Wichmann]

Kurz vor meinem Feierabend muß ich noch mal kurz nachfragen,

Irgendwie geht die Rücksetzung des Intervalls jeweils nur ein mal, und dann passiert nix mehr. Auch die noch einmal frisch heruntergeladene Version 1.1

Ich meine gut ich kann damit leben das datum händisch zu übertragen, is ja nicht so viel. Aber wollte mal nachfragen, evtl liegts ja an meiner Kiste?!?!