Plantafel

Norbert · 2017-01-27T11:30:36+00:00

Hallo Spezialisten in der angehängten Beispieldatei habe ich 3 knifflige Anfragen die ich nicht auf die Reihe kriege. 1. sollte der Balkenteil jeweils beim öffnen der Datei auf das aktuelle Datum springen (also nach der Spalte J anschliessend ab AQ anzeigen. 2. ist es möglich, den schwarzen Balken aufgeteilt 2-farbig anhand der Fortschrittsprozente anzeigen zu lassen 3. dass bei einem Doppelklick auf die Zelle J16 der Cursor auf das Startdatum, also AQ16 springt (bei Klick auf J17 dann auf AT17 usw. https://www.herber.de/bbs/user/110935.xls Könnte man alles über VBA lösen? Vorab Danke Gruss Norbert

Hallo Norbert,
zu Frage 1 und 3 nachfolgend entsprechende Makros.
Das 2-farbige Färben der Balken ist theoretisch möglich, aber sehr kompliziert.
Was evtl geht:
In einer Hilfsspalte wird das Datum gemäß Fortschritt berechnet. Dies ist aber schon etwas kompliziert wenn der Balken Wochenden beinhaltet, da diese ja irgendwie berücksicht werden müssen.
Der Beginn des Balkens wird dann per bedingter Formatierung anders farblich formatiert. Zusätzlich muss man noch berücksichtigen, dass der Balken nicht als erledigt markiert werden darf, wenn als Fortschrittsdatum der letzte Tag des Balkens ermittelt wird, der Fortschritt aber noch nicht 100% ist.
Gruß
Franz
Makro unter DieseArbeitsmappe

Option Explicit
Private Sub Workbook_Open()
Dim datDatum As Date
Dim Spalte As Long
Dim Zeile As Long
With Worksheets("Aufgaben")
.Activate
Zeile = ActiveCell.Row
datDatum = Date
For Spalte = 11 To .Cells(12, .Columns.Count).End(xlToLeft).Column
If .Cells(12, Spalte).Value = datDatum Then
ActiveWindow.ScrollColumn = Spalte
.Cells(Zeile, Spalte).Select
Exit For
End If
Next
End With
End Sub

Makro unter Tabelle1(Aufgaben)

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim datDatum As Date
Dim Spalte As Long
Dim Zeile As Long
Select Case Target.Column
Case 10 'Spalte J
If Target.Row >= 14 Then
Zeile = Target.Row
'Prüfen, ob Datum in Spalte D der Zeile
If IsDate(Cells(Zeile, 4)) Then
datDatum = Cells(Zeile, 4).Value
For Spalte = 11 To Cells(12, Columns.Count).End(xlToLeft).Column
If Cells(12, Spalte).Value = datDatum Then
Cancel = True
ActiveWindow.ScrollColumn = Spalte
Cells(Zeile, Spalte).Select
Exit For
End If
Next
End If
End If
Case Else
End Select
End Sub

Forumthread: Plantafel

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Plantafel erstellen und optimieren in Excel

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)