Marko durch eine Schleife optimieren | Herbers Excel-Forum

Hallo zusammen,
habe soeben ein einfaches Marko geschrieben und hätte es, wenn’s geht, optimiert
durch eine Schleife.
Der Sachverhalt ist wie Folgt: Wenn z.B. die Zelle A13 leer ist, dann soll in der Zelle A12
das Wort „Beweis2“ stehen. Das gleich mit den Zellen A20 und A19, A27 und A26,
dabei sollte entsprechend "Beweis3" bzw. "Beweis4" stehen u.s.w...

Sub test()
If Range("A13") <> "" Then
Range("A12").Value = "Beweis2"
Else
Range("A12").Value = ""
End If
If Range("A20") <> "" Then
Range("A19").Value = "Beweis3"
Else
Range("A19").Value = ""
End If
If Range("A27") <> "" Then
Range("A26").Value = "Beweis4"
Else
Range("A26").Value = ""
End If
If Range("A34") <> "" Then
Range("A33").Value = "Beweis5"
Else
Range("A33").Value = ""
End If
If Range("A41") <> "" Then
Range("A40").Value = "Beweis6"
Else
Range("A40").Value = ""
End If
End Sub