Guten Abend/ Morgen,
ich habe eine Frage bzgl. diesen Code:

Sub Test1()

Dim Bereich As Range
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range("AS7:AS" & letztezeile)
For Each Zelle In Bereich
Select Case Zelle.Value

Case "0"
Zelle.Offset(0, -38).Interior.Color = RGB(0, 255, 0)
Case Is = "1"
Zelle.Offset(0, -38).Interior.Color = RGB(255, 255, 255) 'weiß
Case Is = "a"
Zelle.Offset(0, -38).Interior.Color = RGB(0, 255, 255)
Case Is = "b"
Zelle.Offset(0, -38).Interior.Color = RGB(255, 255, 204)
Case Is = "n.E."
Zelle.Offset(0, -38).Interior.Color = RGB(255, 0, 0)

Case Else
Zelle.Offset(0, -38).Interior.Color = xlNone
End Select
Next
End Sub

Mit diesem werden die Zellen Offset eingefärbt. Das Funktioniert auch soweit. Ich möchte dieses erweitern und zwar, dass bei Case 0, nicht nur die Zelle Offset(0,-38) eine Farbe bekommt, sondern auch noch der Wert der Zelle AS3 übernommen wird.

Ist das bei diesem Code einbaubar? oder brauche ich dafür einen Neuen?
mit Zelle.Offset(0, -38).Value = ActiveSheet.Range("AS3") funktioniert das leider nicht. Laufzeitfehler

Für Eure Mühe vielen Dank
Gruß