Kürzerer Code
19.06.2019 19:29:13
Frank
Ich habe folgenden Code, der sicherlich etwas kürzer geht. Da ich aber nicht ganz so VBA sattelfest bin hoffe ich auf eure Hilfe.
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B11").Value = 1 Else Range("B11").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B13").Value = 1 Else Range("B13").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B15").Value = 1 Else Range("B15").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B17").Value = 1 Else Range("B17").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B19").Value = 1 Else Range("B19").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B21").Value = 1 Else Range("B21").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B23").Value = 1 Else Range("B23").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B25").Value = 1 Else Range("B25").Value = 14
If Range("artas2").Value = "HL" Or Range("artas2").Value = "S" Then Range("B27").Value = 1 Else Range("B27").Value = 14
Danke und Gruß
Frank