Gruppe
VBE
Problem
Wie kann ich mir eine Liste der VBA-Fehlermeldungen erstellen lassen
StandardModule: basMain
Sub DateSpan()
Dim iVBA As Integer
iVBA = DateDiff( _
interval:="yyyy", _
date1:=Range("A1").Value, _
date2:=Range("B1").Value)
With Range("IV1")
.Formula = "=DateDif(A1,B1,""y"")"
MsgBox prompt:="Excel: " & .Value & " Jahre"
.ClearContents
End With
MsgBox prompt:="VBA: " & iVBA & " Jahre"
End Sub