PDA

Vollständige Version anzeigen : Benutzerdefinierte Uhrzeiten löschen


suicide82
24.01.2005, 11:16
Hallo,
ich möchte gerne benutzerdefinierte Uhrzeiten löschen, leider löscht er mir entweder alles oder nur die Überschrift der Tabelle. Ich habe nicht die leiseste Ahnung wie ich die Uhrzeit angeben soll, damit er bestimmte löscht.
Die Uhrzeit ist wie folgt definiert: hh:mm:ss
Mein Programm:
Sub transporte()

Dim lastrow As Long
Dim zaehler As Long

lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row

For zaehler = lastrow To 1 Step -1
If (Cells(zaehler, 11)) < "08:00:00" Then
Rows(zaehler).Delete
End If
Next

End Sub

Es sollen also alle Zeilen mit Uhrzeit vor 8 Uhr gelöscht werden. Hat jemand einen Vorschlag/Idee?

MfG
Christian

Hajo_Zi
24.01.2005, 11:22
Hallo Christian,


Sub transporte()
Dim lastrow As Long
Dim zaehler As Long
lastrow = Cells.SpecialCells(xlCellTypeLastCell).Row
For zaehler = lastrow To 1 Step -1
If CDate(Cells(zaehler, 11)) < "08:00:00" Then Rows(zaehler).Delete
Next
End Sub

<img src="http://home.media-n.de/ziplies/images/grusz.gif" align="middle" height="40" alt="Grußformel">
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
<span style=" font-weight:bold;">Das Forum lebt auch von den R&uuml;ckmeldungen.</span>
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
<a href="http://home.media-n.de/ziplies/" target="_blank">
<img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>

suicide82
24.01.2005, 12:01
Hi Hajo,
molto grazie, klappt wunderbar! CDate scheint für mich wohl das "Allheilmittel" zu sein ;)