Hi,
versuche dashier mal:
Option Explicit
Sub Einfaerben()
Dim wshBlatt As Worksheet
Dim lngZeile As Long
Dim i As Integer
'hier kommt Name deiner Tabelle
Set wshBlatt = Worksheets("Tabelle1")
With wshBlatt
'hier wird die letzte Zeile in Spalte A ermittelt
lngZeile = .Cells(Rows.Count, 1).End(xlUp).Row
'Schleife läuft von 1 bis letzte Zeile
For i = 1 To lngZeile
'hier wird abgefragt ob ein x vorhanden ist
If .Cells(i, 1) = "x" Then
'Zellen drunter werden mit Grünen Hintergrund versehen
.Cells(i, 1).Offset(1, 0).Interior.Color = vbGreen
.Cells(i, 1).Offset(2, 0).Interior.Color = vbGreen
End If
'hier wird nach y abgefragt
If .Cells(i, 1) = "y" Then
'Zellen drunter werden mit Grünen Hintergrund versehen
.Cells(i, 1).Offset(1, 0).Interior.Color = vbGreen
.Cells(i, 1).Offset(2, 0).Interior.Color = vbGreen
.Cells(i, 1).Offset(3, 0).Interior.Color = vbGreen
End If
Next i
End With
End Sub
Möchtest du, dass es automatisch nach der Eingabe von x bzw. y ( und Eingabe) eingefärbt wird, dann muss das ganze als Worksheet_SelectionChange eingebaut wreden.
|