automatische Zeilenmarkierung

Steffen · 2013-03-26T21:40:17+00:00

Hallo zusammen, ich habe hier eine Datei hochgeladen, für die ich Eure Unterstützung brauche. https://www.herber.de/bbs/user/84555.xls Ich habe eine Jahresübersicht mit 52 Kalenderwochen. Vorne habe ich je eine Spalte mit Projektbeginn und eine mit Ende. Ich möchte nun, dass automatisch die entsprechenden Kalenderwochen in der jeweiligen Zeile markiert werden z.B. in Rot, die in dem Zeitraum Anfang bis Ende liegen. Würde mich sehr freuen wenn mir jemand weiterhelfen kann. Vielen Dank und noch einen schönen Abend! Grüße Steffen

Guten Morgen,
damit das Makro bei jeder Änderung durchgeführt wird machst Du:


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call markieren
End Sub

Für die Einfärbung der aktuellen Spalte würde ich noch folgende Code einbauen:


Private Sub Workbook_Open()
Call aktuelle_kw_färben
End Sub
Function aktuelle_kw_färben()
Dim datum As Date
Dim aktuelle_kw As Byte
datum = Now()
aktuelle_kw = dt_Kalenderwoche(datum)
Range("A:BC").Interior.Color = vbWhite
Call markieren
Columns(1 + aktuelle_kw).Interior.Color = vbYellow
End Function

Ich hab hier allerdings noch einen Bug drin, für den ich gerade keine Zeit mehr habe :-) Müsstest Du mal selbst schauen. Die Frage ist nämlich, was zuerst passieren soll. Soll die Spalte gelb sein, oder soll sie rot sein, wenn ein Projekt in der aktuellen Woche ist. Das eine überschreibt das andere :-)
Wenn sich nun an den Datumsfeldern was ändert oder so, ist das glaube ich noch nicht ganz sauber gelöst.
Ich denke man sollte es so machen:
1. mal alle Spalten weiß einfärben
2. die Projekte markieren
3. die aktuelle Woche markieren
Und das muss dann vielleicht bei jeder Änderung aufgerufen werden. Erscheint mir gerade der beste Weg, hört sich aber für den Effekt auch reichlich kompliziert an.
Vielleicht hat da noch jemand ne bessere Lösung?
Viele Grüße,
Rainer

Hallo Rainer,
vielen Dank erstmal für Deine Rückmeldung!
einen Bug habe ich noch gefunden... Die aktuelle KW färbt er nicht richtig ein. Jetzt z.B. 11 obwohl wir in der 13 sind..
Ist es möglich, dass er die aktuelle KW nicht bis ganz nach unten färbt, sondern, dass ich festlege bis wohin. Z.B. Zeile 81
Und angenommen, ich füge jetzt vorne noch 2 Spalten ein. Wie stelle ich da sicher, dass dann immer noch die richtige KW eingefärbt wird?!
ich hatte schonmal eine Datei mit aktueller KW einfärben. Damals hatte ich folgendes Script verwendet.
Nur das funktioniert jetzt nicht, da das alles überschrieben wird.

 Private Sub Workbook_Open()
MakeWhite
MakeGrey
DINKw (Date)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("B4").Value = Date
Application.EnableEvents = True
End Sub
Function MakeWhite()
For i = 8 To 60
Dim val As Integer
val = i
Range(ColLtr(val) & 7).Select
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
Next i
End Function
Function MakeGrey()
Range("I8:BH71").Interior.ColorIndex = 15
End Function
Function DINKw(Datum As Date) As Integer
Dim lngT As Long
Dim KW As Integer
lngT = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
KW = ((Datum - lngT - 3 + (Weekday(lngT) + 1) Mod 7)) \ 7 + 1
For i = 7 To 71
Range(ColLtr(KW + 8) & i).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Next i
End Function
Function ColLtr(iCol As Integer) As String
If iCol > 0 And iCol

Vielen Dank und noch schöne Ostern!

Forumthread: automatische Zeilenmarkierung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

automatische Zeilenmarkierung

Forumthread: automatische Zeilenmarkierung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread