Zeile zwischen zwei Werten färben

Hallo zusammen,
Meine Spalten sind in einen Zeitstrahl (jede Spalte 15 Min) für jeweils 24h aufgeteilt. Jeder Tag des Monats liegt in einer eigenen Zeile.
Ich habe in einer Zeile abhängig von der Zeit feste Werte ("B" oder "E") für Beginn und Ende stehen, wobei es auch mehrfach Beginn und Ende an einem Tag geben kann. Leider gibt es auch Konstellationen, in denen nur ein Beginn oder nur ein Ende eingetragen werden darf.
Problem: Gibt es die Möglichkeit, sofern B und E vorhanden sind, die Zellen zwischen den Textwerten "B" und "E" automatisiert einzufärben oder mit einem Textwert "z" zu füllen, um mit bedingter Formatierung die Färbung umzusetzen?
Ich habe dazu im Augenblick überhaupt keine Idee. Hat von euch schon mal jemand so etwas gemacht oder kann mir einen Hinweis geben, wie ich das umsetzen kann?
Grüße
Vic

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngTimeCol As Range Dim rngStart As Range Dim rngEnd As Range For Each rngTimeCol In ActiveSheet.UsedRange.EntireColumn.Rows(Target.Row).Cells If rngTimeCol = "B" Then Set rngStart = rngTimeCol ElseIf rngTimeCol = "E" And Not rngStart Is Nothing Then If rngTimeCol.Column - 1 > rngStart.Column Then Application.EnableEvents = False With Range(rngStart.Offset(0, 1), rngTimeCol.Offset(0, -1)) .Value = "x" .Interior.Color = 65535 End With Application.EnableEvents = True End If Set rngStart = Nothing End If Next End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rngTimeCol As Range Dim rngStart As Range For Each rngTimeCol In ActiveSheet.UsedRange.EntireColumn.Rows(Target.Row).Cells If rngTimeCol = "B" Then Set rngStart = rngTimeCol ElseIf rngTimeCol = "E" And Not rngStart Is Nothing Then If rngTimeCol.Column - 1 > rngStart.Column Then Application.EnableEvents = False With Range(rngStart.Offset(, 1), rngTimeCol.Offset(, -1)) .Value = "z" .Interior.Color = vbYellow End With Application.EnableEvents = True End If Set rngStart = Nothing End If Next End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rngTimeCol As Range Dim rngStart As Range Application.EnableEvents = False For Each rngTimeCol In ActiveSheet.UsedRange.EntireColumn.Rows(Target.Row).Cells With rngTimeCol .Interior.Pattern = xlNone If .Value = "z" Then .Value = "" End With If rngTimeCol = "B" Then Set rngStart = rngTimeCol ElseIf rngTimeCol = "E" And Not rngStart Is Nothing Then If rngTimeCol.Column - 1 > rngStart.Column Then With Range(rngStart.Offset(, 1), rngTimeCol.Offset(, -1)) .Value = "z" .Interior.Color = vbYellow End With End If Set rngStart = Nothing End If Next Application.EnableEvents = True End Sub

...es wäre ja auch etwas einfacher, wenn man nur noch ein kleines "b" bwz. kleines "e" eingeben müsste:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngTimeCol  As Range
Dim rngStart    As Range
Application.EnableEvents = False
For Each rngTimeCol In ActiveSheet.UsedRange.EntireColumn.Rows(Target.Row).Cells
With rngTimeCol
.Interior.Pattern = xlNone
If .Value = "z" Then .Value = ""
End With
If UCase(rngTimeCol) = "B" Then
rngTimeCol = "B"
Set rngStart = rngTimeCol
ElseIf UCase(rngTimeCol) = "E" Then
rngTimeCol = "E"
If Not rngStart Is Nothing Then
If rngTimeCol.Column - 1 > rngStart.Column Then
With Range(rngStart.Offset(, 1), rngTimeCol.Offset(, -1))
.Value = "z"
.Interior.Color = vbYellow
End With
End If
Set rngStart = Nothing
End If
End If
Next
Application.EnableEvents = True
End Sub

Viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

Zeile zwischen zwei Werten färben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile zwischen zwei Werten färben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

329 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread