Hallo zusammen!
Ich bin dabei ein Auswertungsdatenblatt für eine Berechnung zu bauen.
Leider funktioniert eine Berechnung nicht.
Kann mir wer sagen was ich für Fehler mache bzw. hat wer verbesserungsvorschläge?
Anbei der Code:
Dim Datei As Workbook
Set Datei = ThisWorkbook
Dim DS1 As Worksheet
Set DS1 = Datei.Worksheets("Vorlage")
Dim x As Double
Dim a As Integer
Dim B As Double
Dim C As Double
For Counter = 11 To 100
x = 0
a = Counter - 1
Set BCell = DS1.Cells(a, 2)
Set ECell = DS1.Cells(a, 5)
Set curCell = DS1.Cells(Counter, 4)
B = BCell.Value
C = curCell.Value
If curCell "" And BCell "" Then
x = B - C
End If
ECell = x
Next Counter
Danke im Voraus!