Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.10.2025 08:21:40
Datensatz trennen
24.10.2025 18:10:41
vba pdf
24.10.2025 17:27:23
Mit Makro eine pdf erstellen mit Namen aus einer Zelle
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

DS nach Uhrzeiten löschen

Forumthread: DS nach Uhrzeiten löschen

DS nach Uhrzeiten löschen
Karsten
Liebe Excel Freunde,
ich möchte gerne Datensätze mit Kennzeichnung "9999" (4. Spalte) und nach einer bestimmten Uhrzeitbedingung löschen (1. Spalte), das Datum spielt dabei keine Rolle. Es sollen alle Datensätze ab 19:00:00 Uhr Abends bis 06:30:00 Uhr morgens gelöscht werden. Die Daten sind in folgendendermaßen formatiert TT.MM.YYYY hh:mm:ss
Bsp Formatierung : 22.08.2012 19:01:00
Ich wollte das eigentlich über ein Do Until- Schleife in Verbindung mit If Then Else Schleife lösen.
Do Until ActiveCell.Value = ""
If ActiveCell.Offset(0, 0).Value = ActiveCell.Offset(0, 4).Value = "9999" And ActiveCell.Value >= right()? Then
Selection.EntireRow.Delete
i_Lösch = i_Lösch + 1
Loop
Else
ActiveCell.Offset(1, 0).Select
End If
Habt Ihr eine IDEE wie ich da weiterkomme, wollte mit right() nur die Nachkommastellen auslesen oder muss man erst den Zeitstempel in Datum und Uhrzeit zerlegen und dann nauch Uhrzeitkriterien löschen?
Danke im Vorraus
Karsten

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: DS nach Uhrzeiten löschen
22.08.2012 15:30:10
Rudi
Hallo, 
Sub Loeschen()
Dim rng As Range, rngDelete As Range
For Each rng In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If rng.Offset(, 4) = 9999 Then
Select Case TimeValue(rng)
Case "19:00:00" To "23:59:59", "00:00:00" To "06:30:00"
If rngDelete Is Nothing Then
Set rngDelete = rng
Else
Set rngDelete = Union(rngDelete, rng)
End If
End Select
End If
Next
If Not rngDelete Is Nothing Then rngDelete.EntireRow.Delete
End Sub

Gruß
Rudi

Anzeige
AW: DS nach Uhrzeiten löschen
22.08.2012 15:44:03
Karsten
Hallo Rudi,
das ist ja richtig proffessionell !!! , hast Du auch vielleicht nen Tipp wo man gut einen Kurs für VBA Programmierung belegen kann. Habe bereits einige Bücher besorgt aber wenn man Fragen, hat kommt man halt nicht ganz so weit... Besser ist es man hat einen Ansprechpartner :-)
Danke erst mal!
Gruß karsten

Anzeige
AW: DS nach Uhrzeiten löschen
22.08.2012 15:51:48
Rudi
Hallo,
Besser ist es man hat einen Ansprechpartner
Hier hast du Hunderte. Besser geht's nicht.
Gruß
Rudi

AW: DS nach Uhrzeiten löschen
22.08.2012 16:36:21
Karsten
Hallo Rudi,
eigentlich hast Du Recht!
Probiere gerade Dein Macro aus, Du hast es so programmiert das der zweite DS in der 2. Spalte B steht und noch innerhalb der Zeitgrenzen stehn muss beschränkt sich das bloß auf die 1 SpalteA?
Karsten

Anzeige
AW: DS nach Uhrzeiten löschen
22.08.2012 16:53:33
Rudi
Hallo,
hä?
Es wird Spalte A durchlaufen und geprüft, ob in E 9999 steht und A innerhalb der Zeitgrenzen liegt.
Gruß
Rudi
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige