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.
|