Linie, welche sich an Hand von Datum verschiebt

Forumthread: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 10:18:01

Datum

Hi an alle,
ich habe eine Timeline, welche wo die Projektplanung dargestellt ist
Diese reicht über drei Jahre. Spalten sind also verschiedene Monate, Zeilen Projekte, und Meilensteine in den jeweiligen Zellen eingetragen. Nun möchte ich gerne, dass sofort ersichtlich ist, wo wir uns gerade befinden, am besten mit einer senkrechten Linie, welche sich in waagrechter Richtung an Hand des Datums automatisch verschiebt.
Ist dies möglich? Am besten wäre ohne VBA.
Danke und LG
Minimum working example:
Diese Linie sollte sich automatisch verschieben
https://www.herber.de/bbs/user/130378.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 10:27:06

Datum

Hi
ohne VBA schwierig.
Grafikelemente lassen sich nur per VBA automatisch verschieben.
wenn es dir reicht, den aktuellen Monat zu kennzeichnen, könnte man dies ggf über die Bedingte Formatierung erreichen, so dass die Spalte mit dem aktuellen Monat eine linke und rechte Rahmenline erhält.
Gruß Daniel

AW: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 10:38:22

Datum

Hallo,
https://www.herber.de/bbs/user/130381.xlsx
hier mal eine Variante mit bedingter Formatierung. Die Formel weiter unten dient nur dem Lerneffekt und kann gelöscht werden.
Beachte hierbei, dass ich Zeile 2 verändert habe, damit da richtige Datumswerte drin stehen.
Gruß, Rainer

AW: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 10:53:01

Datum

HI
man kann die Bedingte Formatierung auch einsetzen, ohne die Tabelle zu verändern.
da die Tabelle regelmäßig ist (ein Jahr = 12 Spalten), kann man auch einfach über die Spaltennummer rechnen:
folgende Regel für die Zellen ab Spalte B:
=Spalte() = ((Jahr(Heute())-2019)*12+Monat(Heute())+1)
Gruß Daniel

AW: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 10:42:02

Datum

Hallo
und nochmal bedingte Formatierung.
Vorbereitung:
in den Überschriften sollte ein richtiges Datum stehen, was du mit MMM formatieren kannst
links vom aktuellen Monat wird ein Rahmen angezeigt

Sheet1

2019

2020

Projekt

Jan

Feb

Mrz

Apr

Mai

Jun

Jul

Aug

Sep

Okt

Nov

Dez

Jan

Feb

Mrz

Apr

Mai

Jun

Jul

Aug

Sep

Milestone1

Milestone2

Milestone 3

Milestone1

Milestone2

Milestone 3

Milestone1

Milestone2

Milestone 3

die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle	Formel	Bereich	N/A
N1	=EDATUM(B1;12)
B2	=B1
C2:V2	=EDATUM(B2;1)

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. Regeltyp	Operator	Formel1	Formel2	Format Schrift Füll-farbe	Unterstrichen	Schrift- farbe	Muster	Muster-farbe	Typ	Bereich
$B$2:$AK$28	01.Bed.: Formel ist		=(MONAT(B$2)=MONAT(HEUTE()))*(JAHR(B$2)=JAHR(HEUTE()))=1		Test					2	$B$2:$AK$28

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$B$2:$AK$28	01.Bed.		Falsch					2	$B$2:$AK$28

Rahmen
		Links		Rechts		Oben		Unten
Wird angewendet auf	Nr. Bed.	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe
$B$2:$AK$28	01.Bed.	dünn durchgehend	0

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Füllfarben und Muster
Zelle	Rot	Grün	Blau	Color	Muster	Farbe
B1:M1	255	255	0	65535
C3, D4, G3:I3, G5, J4:L4, M5:O5, N3:O3, Q4:R4, T5:U5	189	215	238	15652797
N1:V1	237	125	49	3243501

Zellen mit Füllfarbe automatisch werden nicht dargestellt

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

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

Add-In-Version 25.14 einschl. 64 Bit

LG UweD

AW: Linie, welche sich an Hand von Datum verschiebt

14.06.2019 12:34:02

Datum

Hallo an alle!
Wow, danke für die vielen schnellen, hilfreichen und ausführlichen Antworten!!
Das ist schonmal total super!
Wäre es denn mit VBA möglich, die Linie zu verschieben? Bin super glücklich mit den gezeigten Lösungen, aber interessieren würde mich die VBA-basierte Lösung auch.
Nach welcher Logik müsste man vorgehen?
Ich stelle mir das so etwa vor: erst mal richtige Spalte finden an Hand vom aktuellen Monat und dann aktueller Tag des Monats durch Gesamttage des Monats(e.g. 14/30 für 14. Juni) und an dieser Stelle per Code irgendwie das Objekt einfügen....?
Hoffe ihr versteht was ich meine.
Danke nochmal und LG

per VBA verschieben

14.06.2019 13:04:09

Rudi

Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
Dim shp As Shape, rng As Range
With Sheets(1)
Set rng = .Cells(1, Application.Match(Year(Date), .Rows(1), 0) + Month(Date) - 1)
.Shapes("Straight Connector 2").Left = rng.Left + rng.Width / 2
End With
End Sub

Gruß
Rudi

Infobox / Tutorial

Automatische Datumlinie in Excel erstellen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Vorbereitung der Tabelle: Stelle sicher, dass deine Tabelle ordnungsgemäß formatiert ist und die Monate in den Spaltenüberschriften korrekt als Datumswerte eingegeben sind. Du kannst zum Beispiel die Formatierung MMM verwenden.
Bedingte Formatierung anwenden:
- Markiere den Bereich, in dem die Monate stehen.
- Gehe zu „Bedingte Formatierung“ und wähle „Neue Regel“.
- Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
- Gib folgende Formel ein, um die aktuelle Monatsspalte hervorzuheben:
```
=MONAT(B$1)=MONAT(HEUTE())
```
- Wähle die Formatierung (z.B. blauer Rahmen), um den aktuellen Monat zu kennzeichnen.
Aktualisierung der Linie: Die Linie wird sich automatisch verschieben, wenn du das Datum in Excel änderst. Du kannst die Tabelle regelmäßig aktualisieren, um die aktuelle Position anzuzeigen.

Häufige Fehler und Lösungen

Fehler: Die Excel-Tabelle bewegt sich nicht wie erwartet.
- Lösung: Überprüfe, ob die Datumswerte korrekt eingegeben sind und ob die Formel für die bedingte Formatierung richtig angewendet wurde.
Fehler: Die Linie wird nicht angezeigt.
- Lösung: Stelle sicher, dass du die richtige Formatierung ausgewählt hast und dass die Zellen die korrekten Datumswerte enthalten.

Alternative Methoden

Wenn du eine flexiblere Lösung suchst, kannst du auch VBA verwenden, um die Linie automatisch zu verschieben. Hier ist ein einfaches Beispiel:

Private Sub Workbook_Open()
    Dim shp As Shape, rng As Range
    With Sheets(1)
        Set rng = .Cells(1, Application.Match(Year(Date), .Rows(1), 0) + Month(Date) - 1)
        .Shapes("Straight Connector 2").Left = rng.Left + rng.Width / 2
    End With
End Sub

Diese Methode erfordert jedoch Kenntnisse in VBA und ist nicht die einzige Lösung.

Praktische Beispiele

Beispiel 1: Du hast eine Tabelle mit Projekten und Meilensteinen. Verwende die bedingte Formatierung, um den aktuellen Monat hervorzuheben, indem du die Formel anpasst:
```
=UND(MONAT(B$1)=MONAT(HEUTE()), JAHR(B$1)=JAHR(HEUTE()))
```
Beispiel 2: Wenn du einen senkrechten Strich in einer Zelle möchtest, kannst du die Rahmenlinie in der bedingten Formatierung anpassen.

Tipps für Profis

Tipp: Nutze die Funktion EDATUM, um automatisch Monate in deine Tabelle einzufügen:
```
=EDATUM(B1,1)
```
Tipp: Achte darauf, dass du eine klare Struktur in deiner Tabelle beibehältst, damit die Berechnungen und Formatierungen korrekt funktionieren.

FAQ: Häufige Fragen

1. Kann ich die Linie ohne VBA erstellen? Ja, du kannst die bedingte Formatierung verwenden, um den aktuellen Monat hervorzuheben, ohne VBA zu nutzen.

2. Wie kann ich die Daten automatisch aktualisieren? Stelle sicher, dass dein Excel-Dokument regelmäßig geöffnet wird, um die aktuellen Daten zu laden, oder nutze die Funktion „Aktualisieren“ in Excel.

3. Funktioniert das auch in älteren Excel-Versionen? Die beschriebenen Methoden sind ab Excel 2007 anwendbar. Stelle sicher, dass deine Excel-Version die benötigten Funktionen unterstützt.

Beliebteste Forumthreads (12 Monate)

Linie, welche sich an Hand von Datum verschiebt

Forumthread: Linie, welche sich an Hand von Datum verschiebt

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Automatische Datumlinie in Excel erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Linie, welche sich an Hand von Datum verschiebt

Forumthread: Linie, welche sich an Hand von Datum verschiebt

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Automatische Datumlinie in Excel erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread