Spalten markieren wenn aktuelles Datum

Hallo Zusammen,
in meiner Tabelle stehen in Zeile 6, Spalte H bis EG Datumswerte für jeden Arbeitstag.
Nun möchte ich, dass beim Öffnen der Tabelle die Spalte mit dem aktuellen Datum mit einem Doppelstrich rechts und links markiert wird.
Die Spalten sind mit drei bedingten Formatierungen belegt und leider gibt es bei Excel nicht mehr. Ich habe wohl ein Adin entdeckt das bis zu 30 Bedingungen hat aber leider kann ich das nicht benutzen, da es unser Admin nciht zulässt.
Mit den Werten werden Statistiken geführt.
Ich habe auch schon mit benutzerdefinierten Formaten getestet geht aber nicht, da auch 0,5 Werte eingegeben werden.
Mein letzter Gedanke ist VBA aber da habe ich überhaupt keine Ahnung.
Ich hoffe jemand kann mir helfen, Danke schon im Voraus
Hardy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() Dim var, rng As Range Set rng = Worksheets("Daten").Range("A6:EG6") var = Application.Match(CDbl(Date), rng, 0) rng.Borders(xlEdgeLeft).LineStyle = xlNone rng.Borders(xlEdgeRight).LineStyle = xlNone If Not IsError(var) Then Set rng = Worksheets("Daten").Cells(6, var) With rng.Borders(xlEdgeLeft) .LineStyle = xlDouble .Weight = xlThick End With With rng.Borders(xlEdgeRight) .LineStyle = xlDouble .Weight = xlThick End With End If End Sub

Hi Hardy,
fall Du möchtest, dass beim Ändern des Datums auch die Rahmen verschwinden/ erscheinen, solltest Du dieses Makro ins Klassenmodul des Tabellenblattes kopieren (also nicht auf Diese Arbeitsmappe doppelklicken, sondern auf Deine Tabelle (z.B. Tabelle1 (Tabelle1)).


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("H6:EG6")) Is Nothing And Target.Count = 1 Then
If Target.Value = Date Then
With Target.EntireColumn.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Target.EntireColumn.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Else
With Target.EntireColumn.Borders(xlEdgeLeft)
.LineStyle = xlNone
End With
With Target.EntireColumn.Borders(xlEdgeRight)
.LineStyle = xlNone
End With
End If
End If
End Sub

Damit wird jeweils beim Ändern eines Eintrags in H6:EG6 upgedated.
Gruß
Uwe
(:o)

Beliebteste Forumthreads (12 Monate)

Spalten markieren wenn aktuelles Datum

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

36 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten markieren wenn aktuelles Datum

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

36 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread