|
<1. wie kann ich den ColorIndex für die Schematas wechseln? (Hätte für Schema Y gerne den Color Code 4)
>aktuell nimmt der Code den Farbwert der Zelle übe dem Treffer, so kann flexibel von Hand eingestellt werden (selection.interior.colorindex = 4)
>> oder codiere starr *)
<2. mit deinem Makro werden, wenn einzelne Werte in der Liste nicht vorhanden sind, diese an das Ende der Liste eingetragen, allerdings sollen diese einfach ignoriert werden.
>dann schmeiß halt den Zweig raus **)
Sub TastIt()
Dim arrListe() As Variant, x As Long, c As Range
arrListe = Sheets("Liste").UsedRange.Value
With Sheets("Matrix")
For x = 2 To UBound(arrListe, 1)
On Error Resume Next
'codiere starr *)
Select Case arrListe(x, 2)
Case "X"
arrListe(x, 2) = 6
Case "Y"
arrListe(x, 2) = 4
Case "Z"
arrListe(x, 2) = 3
Case Else
Call MsgBox("unbekannter Begriff " & arrListe(x, 2), vbExclamation)
End Select
'
arrListe(x, 3) = .Rows(2).Find(arrListe(x, 3), , xlValues).Column
arrListe(x, 4) = Err.Number
On Error GoTo 0
Next x
For x = 2 To UBound(arrListe, 1)
If arrListe(x, 4) = 0 Then
Set c = .Columns(2).Find(arrListe(x, 1), , xlValues, xlWhole)
'schmeiß halt den Zweig raus **)
If Not c Is Nothing Then _
c.Offset(, arrListe(x, 3) - 2).Interior.ColorIndex = arrListe(x, 2)
End If
Next x
End With
End Sub
|