Hallo Lasko,
anbei ein Lösungsvorschlag.
Ich lasse die eingefügten Werte blau und fett markieren, damit sie in der Tabelle gefunden werden.
Wenn diese Funktionalität nicht gewünscht ist, einfach die Zeile "formatAusgabe zelle" auskommentieren.
Lg.
Martin
Dim farbe As String
Dim groesse As String
Function mustersuche()
'Spalte A = lfd. Nr, Spalte B = "Farbe", Spalte C = "Größe"7
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
|