Guten Tag,

ich hoffe ich wende mich hier an die richtigen Leute, die mir bei meinem Problem mit VBA weiterhelfen können. Ich habe mir den folgenden VBA-Code geschrieben:

Range("K16:K1555").Select
For Each Zelle In Selection
    If Zelle.Value = "" Then Zelle.FormulaR1C1 = _
           "=VLOOKUP(VALUE(LEFT(RC[-10],4)),Max_final!C1:C3,3,FALSE)&VLOOKUP(VALUE(MID(RC[-10],5,4)),Max_final!C1:C3,3,FALSE)"
        Select Case Zelle
            Case Is = "WSDWSD"
                Zelle.Font.ColorIndex = 50 ' Schriftfarbe grün
            Case Is = "WCSWCS"
                Zelle.Font.ColorIndex = 3 ' Schriftfarbe rot
            Case Is = "WSDWCS"
                Zelle.Interior.ColorIndex = 22 ' Hintergrund rosa
            Case Is = "WCSWSD"
                Zelle.Interior.ColorIndex = 22 ' Hintergrund rosa
            Case Is = "AGWSD"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "WSDAG"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "WCSAG"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Is = "AGWCS"
                Zelle.Font.ColorIndex = 25 ' Schriftfarbe blau
            Case Else
                Zelle.Interior.ColorIndex = xlColorIndexNone
        End Select
        Range("A16").Select
    Next Zelle
    Set rng = Nothing

End Sub
 

Das Makro tut nun auch das was es tun sollte, ich habe nur zwei kleine Probleme:

1. Das Makro läuft zwar richtig durch, gibt mir nur immer die folgende Fehlermeldung: "Laufzeitfehler '13': Typen unverträglich. Weiß einer hier Abhilfe?

2. Gibt es eine Möglichkeit in die im Makro enthaltene Formel (SVerweis) die ISTFEHLER-Formel einzubauen? Alle meine Verscuhe sind leider kläglich gescheirtert.

Falls mir hierbei jemand weiterhelfen könnte wäre ich sehr dankbar.

Mit den besten Grüßen

Nico R.