Вход на сайт
excel функция
162 просмотров
Перейти к просмотру всей ветки
Quo Vadis коренной житель
в ответ sl. 08.11.05 09:53
В первой колонке стоит <Datum> во второй <Datensätze>
сделай одну ячейку с сегодняшней датой.....запускай код
'***************************************+
Public Sub zeilen_loschen()
Dim zeile As Long
Dim Datumh As Variant
zeile = 1
MsgBox (Date)
Do
Datumh = (Cells(zeile, 1))
If Datumh <> Date Then
Rows(zeile).Delete
zeile = zeile - 1
End If
zeile = zeile + 1
Loop Until Cells(zeile, 1).Value = ""
End Sub
сделай одну ячейку с сегодняшней датой.....запускай код
'***************************************+
Public Sub zeilen_loschen()
Dim zeile As Long
Dim Datumh As Variant
zeile = 1
MsgBox (Date)
Do
Datumh = (Cells(zeile, 1))
If Datumh <> Date Then
Rows(zeile).Delete
zeile = zeile - 1
End If
zeile = zeile + 1
Loop Until Cells(zeile, 1).Value = ""
End Sub