Bereich multiplizieren wenn bestimmter Text
18.01.2019 11:34:03
Alex
ich bin vba Anfänger und möchte einen Code erstellen um bei Dehnstoffen die Werte von kilogramm in gramm umzurechnen. Dabei soll nacheinander Spalte 1 (ab Zeile 4) durchgegangen werden. Wenn dort ein "Dehnstoff" steht soll in der entsprechenden Zeile in den Spalten 9-28 jede einzelne Zelle mal 1000 gerechnet werden. Die Zeilenanzahl variiert dabei jedoch täglich, deswegen habe ich versucht mit Variablen zu arbeiten.
Das mit dem C funktioniert aber nicht so ganz. Kann mir da jemand helfen?
Sub Convert_Dehnstoff()
Dim i As Integer, intY As Integer
Dim C As Variant
With Worksheets(1)
intY = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To intY
If Cells(i, 1).Value = "Dehnstoff" Then
For Each C In Range(Cells(4, 9), Cells(intY, 28))
If C 0 Then
C = C * 1000
End If
Next C
End If
Next i
End With
End Sub
Anzeige