Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen gleicher Datum und Uhrzeit löschen

Forumthread: 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ß
Anzeige

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ß
Anzeige
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
Anzeige
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
Anzeige
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

Forumthreads zu verwandten 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
Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 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
Datum in Formel automatisch
Bernd

Hallo,
könnt ihr mir bei folgender Aufgabe weiterhelfen:
In anhängender Datei ist in Zelle C1 eine Summenformel (=SUMME(B1:B31))
Ich will nun, dass anstatt der Zelle B1 diejenige Zelle in der Spalte B berücksichtigt ist, in der in Spalte A das aktuelle Datum steht.
z.B: Datum:...
04.11.2008 09:54:00
Thread-ID: 1021481
11 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
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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