Hallo neli,
ich habe dein Makro nicht weiter geprüft, doch es fällt sofort auf, dass b und i noch keine Werte haben, wenn du die Zeilen
a = Mid(b, 47, 10)
b = objSheet.Cells(i, 2).Value
ausführst. Gehören sie vielleicht in umgekehrter Reihenfolge in die For-Next-Schleife?
Gruß
Holger
neli schrieb am 29.10.2009 11:01:37:
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. |