Case Select enthält Zeichenkette

For Each rngCell In Range("B8:B200")
Select Case rngCell.Value
Case "Grundplatte"
If Range("G4") = "Lehre" Then 'Wenn als Werkzeugbezeichnung in F4 Lehre eingetragen  _
wurde dann ist die Grundplatte aus Alu
rngCell.Offset(0, 1).Value = "Alu"
ElseIf Not Range("G4") = "Vorserie" Then  'Wenn als Werkzeugbezeichnung nicht  _
Vorserie steht dann ST52 eintragen, bei Vorserie frei lassen
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
End If
Case "pos100 Zwischenplatte"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
Case "Leiste"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"
Case "Kopfplatte"
rngCell.Offset(0, 1).Value = "ST52"
rngCell.Offset(0, 2).Value = "brennen"