Wert in Datum umwandeln
21.07.2015 15:43:20
P-Quest:-)
ich benötige für einen Wertevergleich ein Datum. Das Datum erhalte ich aus einer Tabelle.
Das Problem liegt bei den entsprechenden Vergleichswerten. Hierbei handelt es sich um den Anfang (01.07) und das Ende (31.06.) eines Geschäftsjahres. Das Geschäftsjahr selber wird im Code per Variable (vjahr) übergeben.
Meine Idee, die nicht funktioniert, war folgende:
Sub ZeilenLoeschen(strName, vjahr)
Dim i As Long
Dim rngAB As Range
Dim lngLastRow As Long
Dim wsAB As Worksheet
Dim dtGJA As String
Dim dtGJE As String
Set wsAB = Worksheets(strName)
lngLastRow = wsAB.Cells(Rows.Count, 2).End(xlUp).Row
MsgBox strName
dtGJA = DateValue("01.07." & vjahr)
dtGJE = DateValue("31.06." & (vjahr + 1))
MsgBox dtGJA & " " & dtGJE
'* Durchlauf aller Zeilen
For i = 4 To lngLastRow
If Cells(i, 3).Value dtGJE Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End Sub
Gruß,
Peter