Dim farbe As String
Dim groesse As String
Function mustersuche()
Range("A1").Select
While ActiveCell.Value <> 0
If ActiveCell.Offset(0, 1).Value = 0 Then auswertung
If ActiveCell.Offset(0, 1).Value <> farbe Then farbe = ""
If ActiveCell.Offset(0, 2).Value <> groesse Then groesse = ""
ActiveCell.Offset(1, 0).Select
Wend
End Function
Function auswertung()
If farbe <> "" Then
Set zelle = ActiveCell.Offset(0, 1)
zelle.Value = farbe
formatAusgabe zelle
End If
If groesse <> "" Then
Set zelle = ActiveCell.Offset(0, 2)
zelle.Value = groesse
formatAusgabe zelle
End If
farbe = ActiveCell.Offset(1, 1)
groesse = ActiveCell.Offset(1, 2)
ActiveCell.Offset(1, 0).Select
End Function
Function formatAusgabe(akt)
With akt
.Font.Color = vbBlue
.Font.Bold = True
End With
End Function