Markieren doppelter Zeiträume

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sigi,
danke das funktioniert sehr gut!. Allerdings wird es, da es teilweise bis zu 200 Urlaube sind mit den Farben doch sehr unübersichtlich. Hatte ich mir irgenwie anders vorgestellt.
Die Ausgabe per Msgbox ist aber eine feine Sache.
Wäre es möglich zuerst die Tabelle abzuarbeiten und dann sozusagen als Abschluss eine Auflistung der Überschneidungen in Textform, ggf auch einfach den Übertrag in ein anderes Tabellen Blatt?
Wäre super da man es dann auch ggf ausdrucken könnte.
Den Bereichs von Hand auswählen ist auch nicht schlecht. Ich nutze in der Tabelle auch den autofilter in den überschriften,und sortiere dann nach den verschiedenen Abteilungen.
Könnte man den aktuellen filter als variable "Bereich" nehmen?, dann wären es auch weniger verschiedene Farben.
In der 3. letzten Zeile des Makros hab ich IstTUeb = "#WERT!" in IstTUeb = False abgeändert sonst gab es eine Fehlermeldung, war das korrekt?
Gruß und viele Dank nochmals!

Hallo Stefan,
Zitat: "In der 3. letzten Zeile des Makros hab ich IstTUeb = #"WERT!" in IstTUeb = False abgeändert sonst gab es eine Fehlermeldung, war das korrekt?"
Das kannst du machen. Allerdings sind dann irgendwo die Eingangsdaten unplausibel. Bsp.: Text statt Datum?, Beginn größer Ende?
Zitat: "Allerdings wird es, da es teilweise bis zu 200 Urlaube sind mit den Farben doch sehr unübersichtlich. Hatte ich mir irgendwie anders vorgestellt."
Das war dein Wunsch. Ich hatte deshalb Zufallsfarben gewählt, da ja unbekannt war/ist wie viele Überschneidungen und unterschiedliche Farben gebraucht werden. Dass dies unübersichtlich wird, war mir gleich klar. Es kann ja auch mehrfache Überschneidungen innerhalb einer Abteilung geben, dann werden die Farben mehrmals überschrieben/überfärbt.
Alternativ kann ich dir anbieten, die Überschneidungen (auch Mehrfachüberschneidungen) in einer 5. Spalte zu nummerieren, dann kannst du anhand der Nr. die jeweiligen Überschneidungen auswerten. Das wäre mit geringen Mehraufwand zu erreichen.
Filtern sollte kein Problem sein. Dadurch wird ja auch die Datenmenge geringer.
Sigi

Sub UrlaubsUeberschneidungZurücksetzen() Dim Bereich As Range, s As Long Set Bereich = Application.Selection s = Bereich.Columns.Count Bereich.Interior.Color = xlNone Bereich.Columns(s).ClearContents Set Bereich = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread