Hallo,
ich habe problem mit codierung beim vba.
zb. ich habe in range b1:b7 die werte:
Charge 214085, Elektrode 2 gesenkt
Charge 214085, Elektrode 1 gesenkt
Charge 214085, Elektrode 3 gesenkt
Charge 214085, Heizen ein
Charge 214085, Heizen aus, Dauer 0min, Energie 40kWh
Charge 214085, Heizen ein
Charge 214085, Heizen aus, Dauer 0min, Energie 1220kWh
und was ich will, in der zelle d5 und d7 liegen 40kwh und 1220kwh.
ich habe dann sowas gemacht
=====================================
Sub Energie()
Dim objSheet As Excel.Worksheet
Dim i As Long
Dim a As String
Dim b As Long
a = Mid(b, 47, 10)
b = objSheet.Cells(i, 2).Value
Set objSheet = ActiveSheet
For i = 1 To 3228
If InStr(1, objSheet.Cells(i, 2).Value, "Energie", vbTextCompare) <> 0 Then
objSheet.Cells(i, 4).Value = a
End If
Next i
Set objSheet = Nothing
End Sub
=================================
ich habe schon ausprobier und der fehler liegt in der zeile:
b = objSheet.Cells(i, 2).Value
jetzt ich weis nicht, wie ich variable b definieren soll
danke im voraus. |