title image


Smiley Re: Berechnung von Tagen in einer Tabelle
Hallo Selin,



das geht mit der DateDiff-Funktion.

Sub TestDateDiff()

Dim aDate, eDate, dDiff

'

'Start: Zeile, Spalte

aDate = Left(ActiveDocument.Tables(1).Cell(2, 4).Range.Text, _

Len(ActiveDocument.Tables(1).Cell(2, 4).Range.Text) - 2)

'MsgBox aDate

'

'Ende: Zeile, Spalte

eDate = Left(ActiveDocument.Tables(1).Cell(2, 5).Range.Text, _

Len(ActiveDocument.Tables(1).Cell(2, 5).Range.Text) - 2)

'MsgBox eDate

'

'Differenz in Tagen

dDiff = DateDiff("d", DateValue(aDate), DateValue(eDate))

ActiveDocument.Tables(3).Cell(2, 5).Range.Text _

= DateDiff("d", DateValue(aDate), DateValue(eDate)) & " Tage"

End Sub

      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: