Probleme mit Bedingter Formatierung

[Rabe]

Hi Atilla,

ich hatte vor längerem mal eine Urlaubs-und Terminübersicht für einen Forenteilnehmer fertiggestellt.

mMn macht dieses Makro Mist:

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim Zielbereich As Range
   If Target.Count > 1 Then Exit Sub
   'Überprüfen, ob die richtige Zelle für Datum geändert wird
   Set Zielbereich = Application.Intersect(Range("a3:b30"), Target)
   If Not (Zielbereich Is Nothing) Then
      AusZahlDatum Target
   End If
End Sub

Public Sub AusZahlDatum(ByVal Target As Excel.Range)
   Dim a, t As Integer, m As Integer, j As Integer
   On Error GoTo fehlerbehandlung
   a = Target.Value2
   If (IsNumeric(a) = False) And (IsDate(a) = False) Then Exit Sub
   If (Mid$(a, 5, 4) < 1000) And (a < 10000 Or a > 999999) Then Exit Sub
   a = Format(CStr(a), "000000")
   t = Mid$(a, 1, 2)
   m = Mid$(a, 3, 2)
   j = Mid$(a, 5, 4)
   a = DateSerial(j, m, t)
   Application.EnableEvents = False
   Target.Value = a
   Target.NumberFormat = "dd.mm.yyyy"
fehlerbehandlung:
   Application.EnableEvents = True
End Sub

Gib mal in die Termin-Liste ein aktuelles Datum ein.
Dann wird aus 09.01.2016 ein 04.11.1979 und aus 9.1.2014 wird 04.04.1949!

Korrektur, es macht keinen Mist, das ist Absicht:
Es sollte in der Tabelle als Erläuterung dazu geschrieben werden, daß Tag, Monat und Jahr zweistellig ohne Punkt geschrieben oder das Makro hinter der Termine-Tabelle ausgeblendet werden muß.

[Lümmel]

Hallo Rabe

Korrektur, es macht keinen Mist, das ist Absicht:
Es sollte in der Tabelle als Erläuterung dazu geschrieben werden, daß Tag, Monat und Jahr zweistellig ohne Punkt geschrieben oder das Makro hinter der Termine-Tabelle ausgeblendet werden muß.

Ist es ein Formatierungsproblem?

[Rabe]

Hi,

Ist es ein Formatierungsproblem?

nein, das ist Absicht, zur Erleichterung der Eingabe. Dabei muß nicht zwischen Zahlenblock und dem Punkt in der Tastatur hin- und hergewechselt werden.

Es wird einfach eingegeben:
141214 für 14.12.2014
oder 090116 für 09.01.2016

Mein Problem war, daß ich das beim Ausprobieren nicht wußte.

[atilla]

Hallo zusammen,
Hallo Ralf,

ich hatte Dir schon früher geschrieben, dass man nicht mit dieser Ausdrucksweise eine Arbeit von irgend wem beurteilen sollte. Das ist etwas, was ich nicht vertrage. Mist oder ähnliches sollte man nicht in den Mund nehmen.

Du hast zitiert:

atilla schrieb: ich hatte vor längerem mal eine Urlaubs-und Terminübersicht für einen Forenteilnehmer fertiggestellt

und genau so ist es: ich habe es für jemand bestimmtes fertiggestellt. Dieser wollte es so und nicht anders. Deswegen habe ich auch hier rein geschrieben, dass man es als Ideen Geber und Anschauungsobjekt betrachten soll. Es sollte keine allgemeine Lösung für alle sein, deswegen brauche ich auch keine Erklärungen rein zu schreiben,.

@Lümmel
Theoretisch kann man das Ganze auch mit Formeln realisieren. Das wurde damals auch teilweise von anderen Forums-Mitgliedern versucht. Es ist aber sehr Umfangreich und geht auch an die Performance.
Natürlich kannst Du ihn bei Dir einsetzen und an Deine Bedürfnisse anpassen. Aber ohne VBA Kenntnisse wird es schwierig. Der darin enthaltene Code ist nicht komplett von mir. Manches war schon in der Datei enthalten. Was ich hauptsächlich eingearbeitet habe sind die Farbsetzungen nach Bedingung und Termin.

Was mir nicht so gefällt ist das mit den Button. Wenn man diese anklickt erscheinen z.B. die Ferien oder der Urlaub.
Diese bleiben aber im Kalender stehen auch wenn man nochmals auf den Button klickt.

Wenn der Schalter Feiertage betätigt wird, dann verschwinden alle Farben bis auf Wochenenden und Feiertage. Dieser Plan war dafür gedacht für das Jahr die Termine auszudrucken.

Was ist mit dem Blatt Mitarbeiter? Dort hast du den Urlaub eingetragen von 4 MA

Das Kalender kann in dem bestehenden Aufbau nur vier Mitarbeiter verwalten. Ich meine aber, dass ich es am Ende, vom Code her schon so weit vorbereitet habe, dass neue Spalten für mehr Mitarbeiter eingefügt werden könnten. Sicher bin ich mir aber nicht. Ich habe auch jetzt keine Zeit mich um große Anpassungen und Änderungen zu kümmern.

[Rabe]

Hi Atilla,

ich hatte Dir schon früher geschrieben, dass man nicht mit dieser Ausdrucksweise eine Arbeit von irgend wem beurteilen sollte. Das ist etwas, was ich nicht vertrage. Mist oder ähnliches sollte man nicht in den Mund nehmen.

Da möchte ich Dich um Entschuldigung bitten!

Ich persönlich empfinde es nicht als schlimm, wenn jemand zu mir sagt: "Da hast Du aber Mist gebaut." Meist hat er dann ja recht. Aus diesem Grund meine ich das selber dann auch nicht böse.

Außerdem habe ich nicht geschrieben, "Du hast Mist gemacht", sondern, daß das Makro Mist macht, sprich, ich dachte, es macht Fehler. Dies habe ich dann aber nachträglich korrigiert: es ist kein Bug, es ist ein Fietscher. Es macht also keine Fehler!

ich hatte Dir schon früher geschrieben, dass man nicht mit dieser Ausdrucksweise eine Arbeit von irgend wem beurteilen sollte.

Nochmal sorry, ich werde mich bemühen, mich zu bessern und hoffe, ich kann mir das bis zum nächsten Mal merken.

[atilla]

Hallo Ralf,

Ich hoffe, ich kann mir das bis zum nächsten Mal merken.

wenn nicht, ich erinnere Dich gerne wieder an den Mist.

[Rabe]

Hi Atilla,

wenn nicht, ich erinnere Dich gerne wieder an den Mist.

alles klar, ich komme auf Dich zurück!

Ich habe meinen Beitrag noch weiter geführt.

[Lümmel]

Hallo Atilla

Danke für deine Rückmeldung.
Ich wollte keineswegs hier irgend ein Thema anstoßen, was altes evtl. wieder aufkochen lässt.


Aber nun zu dem Planer.
Ich wollte nicht das du dich jetzt mit dem Planer und meinen Vorstellungen auseinandersetzt um diese umzusetzen.
Meine Fragen hast du für mich beantwortet. :98:

Ich habe auch jetzt keine Zeit mich um große Anpassungen und Änderungen zu kümmern.

Bitte nicht falsch verstehen.

Natürlich bin ich jederzeit froh wenn ich hier eine Frage habe, und mir diese von jemanden beantwortet wird oder jemand versucht irgendwie zu helfen.
Nur soll sich hier keiner durch meine Fragen gedrängt fühlen diese sofort zu beantworten oder mein Problem mit einer Arbeitsmappe oder sonstigem sofort zu lösen.
Klar freue ich mich wenn es jemanden gibt der mir relativ schnell antwortet um zu helfen.
Nicht nur ich, auch du und viele andere haben auch noch ein leben, dass sich ohne das Forum abspielt.