Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
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
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen gleicher Datum und Uhrzeit löschen

Zeilen gleicher Datum und Uhrzeit löschen
12.04.2017 13:23:05
dagi
Hallo,
habe ein Problem:
ich möchte die in Spalte A Zeile 2-100 Datumsangaben mit Uhrzeit 1:00 - -24:00 Uhr überprüfen.
Ich möchte Datum mit gleicher Uhrzeit löschen. Sollte z.B. 2:00 Uhr nicht dabei sein
dann eine Zeile hinzufügen und die Werte von 1:00 Uhr kopieren.
Kann mir jemand helfen?
Danke!
Gruß

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen gleicher Datum und Uhrzeit löschen
12.04.2017 14:13:28
Jonas
Hallo Dagi,
welche Daten stehen da, Zahlen ,Worte? Und stehen die Daten hinter Datum und Uhrzeit ?
Wenn du die Tabelle hochladen könntest wäre das natürlich am besten :).
Wenn nicht wäre eine genauer Beschreibung von Vorteil. :)
Gruß Jonas
AW: Zeilen gleicher Datum und Uhrzeit löschen
12.04.2017 14:43:38
Dagi
Hallo Jonas,
habe die Tabelle hochgeladen: https://www.herber.de/bbs/user/112839.xlsx
z.B. Datum A6 und A7 gleich, A7 löschen.
A9 und A10: 5:00 Uhr fehlt. Zwischen A9 und A10 eine Zeile hinzufügen und den Datensatz
von A9 kopieren.
Danke.
Gruß
AW: Zeilen gleicher Datum und Uhrzeit löschen
12.04.2017 16:14:50
Jonas
Hallo Dagi,
tut mir leid hat etwas Länger gedauert musste noch was erledigen.
Hier mein Vorschlag:
Sub LöschenUndKopieren()
Dim i As Integer
Dim lr As Long
Dim Wert1 As Double
Dim Wert2 As Double
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Cells(i + 1, 1).Delete Shift:=xlUp
End If
Wert1 = Application.WorksheetFunction.Round(Cells(i + 1, 1).Value, 3) 'Untere zelle
Wert2 = Application.WorksheetFunction.Round(Cells(i, 1).Value + 1 / 24, 3) 'obere Zelle
If Wert1 > Wert2 Then
Range(Cells(i + 1, 1), Cells(i + 1, 6)).Select
Selection.Insert Shift:=xlDown
Range(Cells(i + 1, 1), Cells(i + 1, 6)).Value = Range(Cells(i, 1), Cells(i, 6)).Value
Cells(i + 1, 1).Value = Cells(i + 1, 1).Value + 1 / 24
End If
Cells(2, 7) = i + 1
Next i
End Sub

Bei mir hats geklappt aber mach die lieber vorher ne Kopie, man kann nie wissen.
Gruß Jonas
Anzeige
AW: Zeilen gleicher Datum und Uhrzeit löschen
12.04.2017 18:38:09
Dagi
Sorry. Bin erst jetzt wieder online.
Vielen Dank Jonas.
Funktioniert Super.
Gruß
Funktioniert Super - sehe ich anders
12.04.2017 19:15:28
Matthias
Hallo
Das ist allerdings keine Kritik an Jonas.
Aber wenn Du schreibst
Funktioniert Super
hast auch Du nicht bemerkt, das die Daten unterhalb des letzten Eintrags in Spalte("A")
in den anderen Spalten nicht gelöscht sind.
Gruß Matthias
AW: Funktioniert Super - sehe ich anders
13.04.2017 07:50:48
Jonas
Hallo Matthias,
du hast schon recht hatte gestern nur keine Zeit das zu beheben.
Aber dann hättest du ja ne geänderte Version posten können ;)
Aber ist ok ich setzt mich nochmal dran :)
Gruß Jonas
AW: Funktioniert Super - sehe ich anders
13.04.2017 10:37:48
Jonas
Hallo Zusammen,
also ich habe jetzt nicht das ganze Teil umgeschrieben sondern etwas getrickst :)
Sub LöschenUndKopieren()
Dim i As Integer
Dim lr As Long
Dim Wert1 As Double
Dim Wert2 As Double
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
Cells(i + 1, 1).Delete Shift:=xlUp
i = i -1
End If
Wert1 = Application.WorksheetFunction.Round(Cells(i + 1, 1).Value, 3) 'Untere zelle
Wert2 = Application.WorksheetFunction.Round(Cells(i, 1).Value + 1 / 24, 3) 'obere Zelle
If Wert1 > Wert2 Then
Range(Cells(i + 1, 1), Cells(i + 1, 6)).Select
Selection.Insert Shift:=xlDown
Range(Cells(i + 1, 1), Cells(i + 1, 6)).Value = Range(Cells(i, 1), Cells(i, 6)).Value
Cells(i + 1, 1).Value = Cells(i + 1, 1).Value + 1 / 24
End If
Cells(2, 7) = i + 1
Next i
End Sub

Mal schauen wers erkennt und wer sich drüber aufregt ;)
Gruß Jonas
Anzeige
Du hängst in der Schleife fest!
13.04.2017 16:09:45
Matthias
Hallo Jonas
Das ist ne Endlosschleife
Die Variable i hat immer den Wert 61
Hast Du es denn nicht getestet?
Userbild
Glaubs mir rückwärts löschen ist einfacher ;-)
Gruß Matthias
AW: Du hängst in der Schleife fest!
13.04.2017 16:22:35
Jonas
Hallo Matthias,
also bei mir klappt das, aber dank dir hab ich noch mal drauf geschaut und hab was anderes entdeckt.
Beim .delete sollte man am besten ne Range angeben nämlich:
Range(Cells(i + 1, 1), Cells(i + 1, 6))
Gruß Jonas
nochmal Zeit investieren ohne Rückmeldung, Nee!
13.04.2017 15:46:40
Matthias
Hallo Jonas
Wenn es keine Rückmeldung gibt, warum sollte ich etwas neues für Dagi schreiben?
Ich habe am 12.04.2017 16:18:11 einen Beitrag geschrieben
Dagi hat Dir am 12.04.2017 18:38:09 geantwortet.
Also hat Dagi meinen Beitrag gesehen.
Warum sollte ich also nochmal Zeit investieren, wenns keine Rückmeldung gibt.
Gruß Matthias
Anzeige
AW: nochmal Zeit investieren ohne Rückmeldung, Nee!
13.04.2017 15:54:41
Jonas
Hallo Matthias,
naja direkt dannach eben.Vorallem um auch Leuten, die das später lesen die richtige Lösung zu geben.
Aber ich hab ja schon eine geposted.
Gruß Jonas
unklare Aufgabenstellung ...
12.04.2017 16:18:11
Matthias
Hallo
Das löschen kannst Du mal an einer Kopie so probieren:
Dim x&
For x = 68 To 2 Step -1
If Cells(x, 1) = Cells(x - 1, 1) Then
Rows(x).Delete
End If
Next
Zitat
A9 und A10: 5:00 Uhr fehlt. Zwischen A9 und A10 eine Zeile hinzufügen und den Datensatz
von A9 kopieren.

Dann hast Du aber wieder 2 gleiche Zeilen!
Vermutlich willst Du dann ja zwischen 04:00" und "06:00" die "05:00" eintragen.
Oder?
Gruß Matthias
Anzeige
AW: unklare Aufgabenstellung ...
12.04.2017 16:20:45
Jonas
Hallo Matthias,
Lösung ist schon fertig ;)
Gruß Jonas
Du musst von unten nach oben löschen
12.04.2017 16:41:30
unten
Hallo Jonas,
bei Dir bleiben Daten unterhalb stehen.
Du musst von unten nach oben löschen.
Gruß Matthias

339 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
Anzeige

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
5
1
4
10
4
1
12
4
3
1
2
2
2
3
1
5
3
2
7
1
2
9
4
2