Hallo Steffi,
mein Vorschlag sieht so aus, obwohl ein Faktor multipliziert mit Null, immer Null ergibt!?
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
' Minus 1 wenn die erste Zeile die Überschrift enthält!
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
Gruß Detlev
|