Thema Datum  Von Nutzer Rating
Antwort
Rot vba mit excel
 29.10.2009 11:01:37 neli
NotSolved
29.10.2009 13:52:55 Holger
NotSolved

Ansicht des Beitrags:
Von:
neli		 Datum:
29.10.2009 11:01:37		 Views:
1840		 Rating:
     
Antwort:
  Ja
Thema:
vba mit excel
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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot vba mit excel
 29.10.2009 11:01:37 neli
NotSolved
29.10.2009 13:52:55 Holger
NotSolved