Fehlerzelle finden
19.11.2003 12:27:26
Martin
könnt ihr mir weiterhelfen. Ich habe eine Tabelle mit 5 Spalten. In jeder Zelle der Tabelle steht entweder A, B oder R. Der Buchstaben "A" darf in einer Zeile nur einmal geschrieben sein. Das möchte ich nun mit einem Makro überprüfen. Die Lösung, die ich gefunden habe, ist:
Cells.Find(What:="A").Activate
a1: If ActiveCell.Interior.ColorIndex = 3 Then
GoTo a2
Else
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If
Cells.FindNext(After:=ActiveCell).Activate
GoTo a1
a2: MsgBox "Fertig"
End Sub
Mit diesem Makro war ich aber gezwungen, die Tabelle abzusuchen, ob in einer Zeile mehr als eine Zelle eingefärbt war. Ich möchte aber lieber ein Makro, das mir nur die Zeile einfärbt, in der mehr als ein "A" vorkommt.