Registriert seit: 06.03.2017
Version(en): 2007
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.
Registriert seit: 06.03.2017
Version(en): 2007
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.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi,
(08.03.2017, 12:28)M.Wichmann schrieb: 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.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
08.03.2017, 13:07
(Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2017, 13:07 von Rabe.)
Hi,
(08.03.2017, 12:49)M.Wichmann schrieb: 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.
Registriert seit: 06.03.2017
Version(en): 2007
(08.03.2017, 12:52)Rabe schrieb: 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!"
Registriert seit: 10.04.2014
Version(en): 2016 + 365
08.03.2017, 13:21
(Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2017, 13:21 von Rabe.)
Hi,
(08.03.2017, 13:15)M.Wichmann schrieb: 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.
Registriert seit: 06.03.2017
Version(en): 2007
08.03.2017, 13:32
(Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2017, 13:32 von 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.
Registriert seit: 10.04.2014
Version(en): 2016 + 365
08.03.2017, 13:49
(Dieser Beitrag wurde zuletzt bearbeitet: 08.03.2017, 13:49 von 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
Registriert seit: 06.03.2017
Version(en): 2007
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.
Registriert seit: 06.03.2017
Version(en): 2007
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?!?! 
|
