Option
Explicit
Private
Sub
Workbook_Open()
Dim
Zeilen
As
Long
Dim
Zeile
As
Long
Dim
Spalte
As
Long
Zeilen = Sheets(
"Tabelle1"
).Range(
"C65535"
).
End
(xlUp).Row - 1
Zeile = 1
Spalte = 1
For
Zeile = 2
To
Zeilen
For
Spalte = 4
To
8
If
InStr(1, Cells(Zeile, Spalte).Value,
"x"
) = 1
Then
Exit
For
End
If
Next
Select
Case
Spalte
Case
4
Cells(Zeile, 11).Value = Cells(Zeile, 3).Value * 4
Case
5
Cells(Zeile, 11).Value = Cells(Zeile, 3).Value * 3
Case
6
Cells(Zeile, 11).Value = Cells(Zeile, 3).Value * 2
Case
7
Cells(Zeile, 11).Value = Cells(Zeile, 3).Value * 1
Case
8
Cells(Zeile, 11).Value = Cells(Zeile, 3).Value * 0
Case
Else
End
Select
Next
End
Sub