|
Excel-Version: 8.0 (Office 97)
Differenz aus zwei "Texten" von Peter Feustel vom 16.07.2002 - 09:40:18
Re: Differenz aus zwei "Texten" von sam vom 16.07.2002 - 09:53:53
 |
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
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
|
Das Archiv des Excel-Forums
