ich habe wieder einmal ein Problem welches sich mir nicht erschließen will.
Ich habe folgenden Sub.
Sub testeee()
Dim y As Integer
For y = 18 To 150 'Schleife für Zeile 18-150
If Range("G" & y) = "" Then Exit Sub
If ("AP" & y) = "A4/A3" Then
Range("AQ" & y) = "-/-"
End If
If Range("AP" & y) = "I" Then
Range("AQ" & y) = "A"
End If
If ("AP" & y) = "II" Then
Range("AQ" & y) = "A2"
End If
If ("AP" & y) = "III" Then
Range("AQ" & y) = "G"
End If
Next y
End Sub
Ich hatte dies zuvor auch schon mit If , Elseif...
Den einzigen Eintrag den er setzt ist:
If Range("AP" & y) = "I" Then
Range("AQ" & y) = "A"
End If
Den Rest macht er einfach nicht!?
Was habe ich falsch gemacht?