Guten Tag Allerseits
Ich wäre froh könnte mir jemand helfen diesen code in eine while Schlaufe umzuschreiben (falls das überhaupt geht).
Zur Info, bin blutiger Anfänger.
Hier der Code:
If AnfangMBSTJahr <> "" Then
If AnfangMBSTJahr = "2" Then
'MsgBox ("2016")
If AnfangMBST = "2" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 1).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 1).Select
End If
If AnfangMBST = "3" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 2).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 2).Select
End If
If AnfangMBST = "4" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 3).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 3).Select
End If
If AnfangMBST = "5" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 4).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 4).Select
End If
If AnfangMBST = "6" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 5).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 5).Select
End If
If AnfangMBST = "7" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 6).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 6).Select
End If
If AnfangMBST = "8" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 7).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 7).Select
End If
If AnfangMBST = "9" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 8).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 8).Select
End If
If AnfangMBST = "10" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 9).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 9).Select
End If
If AnfangMBST = "11" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 10).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 10).Select
End If
If AnfangMBST = "12" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 11).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 11).Select
End If
If AnfangMBST = "13" Then
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 12).Interior.Color = RGB(5, 70, 150)
Cells(Cells(Rows.count, "A").End(xlUp).Row + 0, "A").Offset(-1, 12).Select
End If
End If
|