|
Hallo,
ich habe Tomaten auf den Augen - finde die Ursache für Laufzeitfehler nicht. Das Sub uebertragen wird per Befehlsschaltfläche gestartet, diese liegt auf Blatt "Daten".
In der letzten Codezeile tritt ein Laufzeitfehler auf. Vielen Dank für die Hilfe im Voraus!!
Gruß, jörg
Sub uebertragen()
Dim ez As Integer, i As Integer
Dim k1g As Single, e1g As Single, f1g As Single
'ez ermitteln
i = 6
Do Until (ActiveSheet.Cells(i, 1) = "")
i = i + 1
Loop
ez = i - 1
For i = 6 To ez
If (Worksheets("Daten").Cells(i, 2) <> "") Then
k1g = ActiveSheet.Cells(i, 3) / 100
e1g = ActiveSheet.Cells(i, 4) / 100
f1g = ActiveSheet.Cells(i, 5) / 100
Worksheets("Daten").Cells(i, 2).Copy
ActiveSheet.Paste Destination:=Worksheets("Salat-Mix").Cells(i, 2)
Worksheets("Salat-Mix").Cells(i, 3).FormulaLocal = "=" & Worksheets("Salat-Mix").Cells(i, 2).Address(False, False) & "*" & k1g
Worksheets("Salat-Mix").Cells(i, 4).FormulaLocal = "=" & Worksheets("Salat-Mix").Cells(i, 2).Address(False, False) & "*" & e1g
Worksheets("Salat-Mix").Cells(i, 5).FormulaLocal = "=" & Worksheets("Salat-Mix").Cells(i, 2).Address(False, False) & "*" & f1g
Else
End If
Next i
For i = 6 To ez
If (Worksheets("Salat-Mix").Cells(i, 2) = "") Then
Worksheets("Salat-Mix").Rows(i).Delete
Else
End If
Next i
Worksheets("Daten").Range(Cells(6, 2), Cells(ez, 5)).NumberFormat = "0.00"
Worksheets("Salat-Mix").Range(Cells(6, 2), Cells(ez, 5)).NumberFormat = "0.00"
End Sub
|