Zeile begrenzt einfärben, wenn ...
06.09.2003 18:30:44
Peter
folgendes Problem bekomme ich schon den ganzen nachmittag nicht gelöst ...
Private Sub Workbook_Activate()
auto_open
End Sub
Sub auto_open()
Application.Run "Ja"
Application.Run "Nein"
End Sub
Sub Ja()
If Cells(ActiveCell.Row, 10) = "ja" Then '- dieses "ja" oder "nein", wird durch wenn, in Spalte 7 ein Wert steht, festgelegt
With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9))
.Interior.ColorIndex = 35
.Font.ColorIndex = 1
End With
End If
'Range("A10").Select
End Sub
Sub Nein()
If Cells(ActiveCell.Row, 10) = "nein" Then '- dieses "ja" oder "nein", wird durch wenn, in Spalte 7 ein Wert steht, festgelegt
With Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9))
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
End With
End If
End Sub
wenn in der Spalte 7, in welcher Zeile auch immer, ein Wert steht wird in der Spalte 10 "ja" eingesetzt wenn kein Wert in Spalte 7 steht erscheint ein "nein"
Wenn "ja" dann soll die aktive Zeile von Row1 bis Row9 eingefärbt werden - bei "nein" soll die Zeile nicht gefärbt werden, bzw. rückgängig gemacht werden.
Ich hoffe ich habe es nicht zu umständlich erklärt ?!?!
Gruß Peter