Differenz aus zwei "Texten"



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Differenz aus zwei "Texten"
von: Peter Feustel
Geschrieben am: 16.07.2002 - 09:40:18

Hallo Excel-Experten,

Hier komme ich schon wieder mit einer Frage:

Wie bilde ich die Differenz (per VBA) aus folgenden zwei Werten?

31:12:01 10244.8 kWh
31:12:00 2099.9 kWh

Es sollen sowohl die Tage zwischen den beiden Datumswerten, als auch die kWh ermittelt werden.
Beide Werte stehen so, wie oben gezeigt, in je einer Tabellenspalte.

Gruß und Danke im voraus,
Peter

nach oben   nach unten

Re: Differenz aus zwei "Texten"
von: sam
Geschrieben am: 16.07.2002 - 09:53:53

hi

wie wärs damit:


Sub Differenz()
  Dim datum1 As Date, datum2 As Date, diffTage As Integer
  Dim kWh1 As Double, kWh2 As Double, diffkWh As Double
  
  'Doppelpunkte im Datum durch Punkte ersetzen
  Range("A1") = Replace(Range("A1"), ":", ".")
  Range("A2") = Replace(Range("A2"), ":", ".")
  
  datum1 = DateValue(Left(Range("A1"), 8))
  datum2 = DateValue(Left(Range("A2"), 8))
  diffTage = datum1 - datum2
  
  kWh1 = Val(Mid(Range("A1"), Len(datum1) + 2, Len(Range("A1")) - Len(datum1) - 5))
  kWh2 = Val(Mid(Range("A2"), Len(datum2) + 2, Len(Range("A2")) - Len(datum2) - 5))
  diffkWh = kWh1 - kWh2
  Debug.Print "DiffTage: " & diffTage, "DiffkWh: " & diffkWh
End Sub

Viel Spaß,
Sam

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Differenz aus zwei "Texten""