Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
16.04.2024 12:01:17
Dynamische Liste generiert aus mehreren Vorgagen
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Wert suchen vorherige Zeilen löschen

VBA Wert suchen vorherige Zeilen löschen
31.05.2022 07:01:53
Alex
Hallo,
ich habe das komplette Jahr in 15-Minuten Zeiteinheiten unterteilt und diese in Spalte A abwärts aufgelistet.
Hier werden von mir regelmäßig Zeilen gelöscht, so dass gewisse Zeitintervalle fehlen. Ich suche nun eine Möglichkeit, womit ich den ersten Eintrag in Spalte A finde, bei dem die Uhrzeit 00:00 Uhr ist. Alle Zeilen vorher (Ausnahme die Kopfzeile) möchte ich löschen.
In diesem Beispiel wäre "19.05.2022 00:00" mein gesuchter Wert:
18.05.2022 00:45
18.05.2022 01:00
18.05.2022 01:15
18.05.2022 01:30
18.05.2022 01:45
.
.
.
18.05.2022 23:30
18.05.2022 23:45
19.05.2022 00:00
19.05.2022 00:15
19.05.2022 00:30
19.05.2022 00:45
Hat jemand eine Idee, wie ich dies per VBA umsetzen kann? Mein Problem ist, dass es ja nicht immer der 19.05.2022 00:00 Uhr ist, sondern dass es variieren kann.
Ich hatte diesen Beispielcode verwendet, jedoch weiß ich nicht, wie ich vorstehende Zeilen lösche:
https://www.herber.de/forum/archiv/908to912/910712_Wert_per_VBA_suchen_gefunden_Zeile_loeschen.html 

Private Sub CommandButton3_Click()   '  Löschen
Dim intZ As Integer
Dim durchsuchen, finden As Range
Set durchsuchen = Sheets("Tabelle1").Range("B4:B" & _
Sheets("Tabelle1").Range("B65536").End(xlUp).Row)
For Each finden In durchsuchen
If finden.Text = TextBox1.Text Then
intZ = finden.Row
Exit For
End If
Next finden
Rows(intZ).Delete
End Sub
Grüße

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 08:33:32
peterk
Hallo

If  intZ > 4 then
Rows("4:" & intZ).Delete
end if
Peter
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 08:46:28
Yal
Hallo Alex,
ein Datum/Uhrzeit ist ein Zahl: vor der Kommastelle das Datum, nach der Kommastelle die Uhrzeit. Dementsprechend ist der Uhrzeit "00:00" ein Datum ohne Nachkommastelle.

Private Sub btnLöschen_Click()   ' Man kann die Button umbenennen
Dim Z As Range 'Z wie Zelle
With Sheets("Tabelle1")
For Each Z In Range(.Range("B4"), .Range("B65536").End(xlUp)).Cells
If Z.Value = Int(Z.Value) Then
Range(Range("A4"), Z).EntireRow.Delete
Exit For
End If
Next
End With
End Sub
VG
Yal
Anzeige
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 09:20:13
GerdL
Moin

Sub Unit()
Dim C As Range
For Each C In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If IsDate(C.Text) Then
If CDate(CLng(C)) = C.Value Then
Range(Cells(2, 1), C.Offset(-1, 0)).EntireRow.Delete
Exit Sub
End If
End If
Next
End Sub
Gruß Gerd
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 09:30:25
Yal
Hallo Gerd,
in der Tat: die fehlende Prüfung, dass es sich um eine Datum handelt (in meiner Vorschlag), könnte unangenehmen Nebeneffekte herbeiführen.
VG
Yal
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 09:42:52
Alex
Das sieht so ziemlich nach dem aus, was ich suche.
Aber was ich hier nicht verstehe - an welcher Stelle findet die Abfrage der Uhrzeit 00:00 Uhr statt?
Anzeige
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 10:21:41
GerdL
Der Uhrzeitanteil(Stunden/Minuten/Seckunden) am Zeitwert wird sofern vorhanden bzw. größer "00.00.00" ist wie Yal schon beschrieb beim Zellenwert als Bruchteil im Nachkommabereich dargestellt. Also kann man abgleichen, ob der Zellenwert eine Ganzzahl ist oder nicht ist.
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 10:27:40
Yal
Hallo Alex,
Datum: kein Nachkommastelle, Uhrzeit: Nachkommastelle.
CLng(Zahl) schneidet die Nachkommastelle ab (Konvertierung vom Typ Datum in Typ Long, das keine Nachk. hat)
CLng(Zahl) = Zahl bedeutet, der Zahl mit Nachkommastelle ("Zahl") ist gleich wie der Zahl mit abgeschnittene Nachkommastelle ("Clng(Zahl)"), also hat der Zahl keine Nachkommastelle, also Uhrzeit ist 00:00
Eigentlich macht CLng auch eine Rundung, was Nebenwirkung haben könnte, aber nicht im diesem Fall (muss man aber davon bewusst sein).
VG
Yal
Anzeige
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 10:37:49
Alex
Ok, das habe ich verstanden. Da wäre ich nie drauf gekommen.
Ich habe mal den Code und einige Daten in eine Beispiel-Tabelle gehauen. Es gibt auch ein Register mit den Daten als Kopie.
Der Code funktioniert schon, jedoch wird zu viel gelöscht. Nach einem Klick auf "Schaltfläche 1" sollte "17.05.2022 00:00" ganz oben stehen, jedoch steht "21.05.2022 00:00" da. Es ist doch aber codemäßig richtig?
https://www.herber.de/bbs/user/153339.xlsm
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 10:59:22
GerdL
Da ist beim 17.05. eine Sekunden-Wert von 22 drin.
Änderen den Code deshalb etwas ab.

Sub BereichLoeschen()
Dim C As Range
For Each C In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
If IsDate(C.Text) Then
If CDate(Fix(C)) = C.Text Then
Range(Cells(2, 1), C.Offset(-1, 0)).EntireRow.Delete
Exit Sub
End If
End If
Next
End Sub

Anzeige
AW: VBA Wert suchen vorherige Zeilen löschen
31.05.2022 12:13:51
Alex
Vielen Dank euch, das hilft mir sehr weiter!
Eigentlich...
31.05.2022 13:20:16
Yal
...wäre folgende Prüfung am "richtigsten" (im Sinne von Datentyp bzw. Bedeutung der inhalt):

If IsDate(C.Value) Then
If Hour(CDate(C.Value)) = 0 And Minute(CDate(C.Value)) = 0 Then
VG
Yal

334 Forumthreads zu ähnlichen Themen

Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Mehrzeilige Textbox mit Enter nächsten Zeile?
Timo

Hallo Ihr,
ich habe eine mehrzeilige Textbox.
Wie bringe ich diese dazu wenn Enter gedrückt wird der Cursor eine Zeile nach unten springt und nicht in die nächste Textbox?
Mit "shift & Enter" gehts! Ich hätte aber gerne nur Enter!
2. Frage in der Textbox stehen bereits ein...
17.11.2008 14:48:08
Thread-ID: 1025232
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
4
5
1
2
4
3
21
3
2
2
1
5
7
4
5
8
4
4
2
7
3