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

Nächste Zeile löschen wenn < als 30 Min

Nächste Zeile löschen wenn < als 30 Min
06.08.2019 09:59:00
Albin
Hoi Zusammen
Wäre nochmals froh um eure Hilfe, stehe mal wieder im Regen mit VBA.
Ich würde gerne folgendes via VBA machen.
In der Spalte A sind verschiedene Blöcke mit derselben (Kreis ID:xxxx)untereinander sortiert aufgelistet. In der Spalte C das Datum und die Zeit des Eintrages. Nun soll das Makro alle Zeilen löschen, die in der nächsten Zeile zum gleichen Block-ID gehören und einen kleiner Zeitabstand haben, als 30 Minuten zum Oberen. Rot in der Beilage markiert.
Zum Schluss wäre es schön, wenn in der Spalte B die noch vorhanden Zeilen / Einträge pro Block (Kreis ID) aufgezählt - nummeriert würden.
https://www.herber.de/bbs/user/131282.xlsx
Lieber Gruss Und Dank
Albin

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

Betreff
Datum
Anwender
Anzeige
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 10:51:46
Daniel
HI
würde ich so machen:
1. falls nicht schon gegeben, Tabelle nach Spalte A und C sortieren
2. in Spalte E die Formel eingeben (Formel für E2): =Wenn(Und(A1=A2;(C2-C1)<Zeit(0, 30, 0));0;Zeile())
3. die Formel aus E2 bist zum Tabellenende runterziehen
4. in E1 die 0 eintragen
5. mit der ganzen Tabelle die Funktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN ausführen, mit der Spalte E als Kriterium und der Option "keine Überschrift"
6. Spalte E löschen
7. in Zelle B2 die Formel eintragen: =Wenn(A1=A2;B1+1;1)
8. die Formel aus B2 bis zum Tabellenende runter ziehen
9. Spalte B kopieren und als Wert einfügen
so geht's von Hand einfach und schnell.
da das ganze eine einfache Abfolge von Anweisungen ist, sollte sich der Code recht einfach unter Zuhilfenahme des Recorder erstellen lassen.
Gruß Daniel
Anzeige
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 11:09:12
Albin
Hoi Daniel
Danke für die rasche Hilfe, hat leider nicht ganz gepasst. Am Schluss bleibt nur eine Zeile übrig.
Wäre aber super, wenn das Ganze mit VBA und nicht mit Formeln gehen würde. Denn bis zum jetzigen Stand laufen mehrere Makro ab.
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 11:27:25
Luschi
Hallo Albin,
kann bei gleicher 'Kreis ID' auch sowas in Spalte 'C' passieren?
17.07.2019 16:05:01
17.07.2019 16:06:01
17.07.2019 16:16:01
17.07.2019 16:25:01
17.07.2019 16:35:00
17.07.2019 16:35:01
Dann müßten doch die 1. und letzte Zeile übrig bleiben - richtig?
fragt sich Luschi
aus klein-Paris
Anzeige
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 11:46:46
Albin
Hoi Luschi
Ja, die Zeilen / Daten kommen aus einem System-Log. Warum bei mir nur noch
eine einzige Zeile stehen bleib? Aber gut wars in VBA.
LG
Albin
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 11:43:13
Daniel
Hi
meines Wissens nach ist das der schnellste Weg, die Aufgabe zu lösen, auch per Makro.
dh bevor du anfängst das Makro zu schreiben, solltest du erstmal wissen, was du tun willst.
in dem Fall wäre der kritische Schritt, die Formel erstmal so anzupassen, dass alle Zeilen, die gelöscht werden müssen mit 0 gekennzeichnet werden und alle, die stehen bleiben müssen mit der aktuellen Zeilennummer.
Wenn diese Formel mal steht, ist der Rest des Makros einfach nur ein standardisierter Ablauf.
bei Excel-Profi sollte es dir ja nicht schwer fallen, diese Formel zu erstellen.
Gruß Daniel
Anzeige
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 13:54:57
Daniel
nochmal ne Frage zum Verständiis.
nehmen wir an, du hast folgende Zeiten (jeweils 20 min abstand)
1. 12:00
2. 12:20
3. 12:40
sollen jetzt 2. und 3. gelöscht werden, weil zum Vorgänger nur ein Abstand von 20 min ist, oder soll nur 2. gelöscht werden, weil nach dem Löschen von 2. der neue Abstand von 3. zum Vorgänger jetzt 40 min beträgt?
Gruß Daniel
AW: Nächste Zeile löschen wenn < als 30 Min
06.08.2019 14:39:51
Albin
Hoi Daniel
Es so die 2 sein, also 12.20h Zeile so gelöscht werden.
Denn es geht hier um die Auswertung von Pikettfällen. Bei einem Pikettfall für dasselbe Ereignis, kann das System bis 3 die gleichen Telefonnummer / Handy für den gleichen Fall anrufen. Dies ist abhängig, wie schnell der Pikettmitarbeiter die Eskalation quittiert. Wenn es 3 Anrufe brauch, werde diese immer in der Zeitspanne von 28 Minuten sein. Daher die Option von 30 Minuten.
Sorry für das späte Feedback.
LG
Albin
Anzeige
nochmal angepasst an deine Beispieldatei
06.08.2019 14:08:32
Daniel
Hi
um die rot markierten Zeilen per Formel zu identifizieren, brauchst du 2 Formeln:
in E2: =WENN(A2<>A1;C2;WENN((C2-E1)<ZEIT(0;30;0);E1;C2))
in F2: =WENN(A2<>A1;ZEILE();WENN((C2-E1)<ZEIT(0;30;0);0;ZEILE()))
beide Formeln eintragen und nach unten kopieren.
in F1 die 0 eintragen
mit der ganzen TAbelle (A:F) das Duplikate-Entfernen ausführen mit Spalte F als Kriterium und der Option "keine Überschrift"
prüfe mal, ob das besser ist.
Gruß Daniel
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 14:53:58
Albin
Hoi Daniel
Danke für die zwei Formeln. Jetzt passe es 100%. :-) :-) :-)
Kann nun alle Zeilen gleich NULL in F löschen.
Vielen Dank und lieber Gruss an Daniel
Albin
Anzeige
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 15:07:25
Albin
Hoi Daniel
Vor lauter Freude, dass es nun läuft, habe ich vergessen Dich zu fragen. Kannst Du mir eine
Formel für Spalte B schreiben, die die noch verblieben Spalten pro (Kreis ID) aufzählt, reinschreibt?
Siehe Beispiel,Beilage
https://www.herber.de/bbs/user/131282.xlsx
Lieber Gruss
Albin
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 15:34:15
Daniel
ein Excelprofi sollte so eine Formel auch ohne Hilfe zustande bringen.
ansonsten, wer lesen kann ist im Vorteil
Gruß Daniel
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 15:54:49
Albin
Level: Missverständlich bei mir. Formeln :-( VBA eher besser.
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 16:07:17
Daniel
macht nix.
lies die Beiträge, die du bisher erhalten hast.
Gruß Daniel
Anzeige
AW: nochmal angepasst an deine Beispieldatei
06.08.2019 16:20:17
Albin
=Wenn(A1=A2;B1+1;1)
Ok, wer lesen kann ist im Vorteil.
Danke und schönen Abend.
LG
Albin

311 Forumthreads zu ähnlichen Themen

Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Anzeige
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Anzeige
Zeilen löschen, wenn I = 0
Macro

Hi,
ich möchte ein Tabellenblatt (Export) in den Spalte I durchsuchen, ob sich irgendwo der Wert 0 befindet.
Alle Zeilen die in der Splate eine NULL haben, sollen gelöscht werden. Wie mache ich das mit einem Makro. ?
(leere Zellen sollen aber nicht als NULL interpretiert werden)
...
04.12.2008 08:21:00
Thread-ID: 1030023
5 Beiträge
Wenn Range("O10:O16") leer ist
Heinz

Hallo Leute
Habe mit meinem Makro in der Zeile
'If Sheets("Eingabe").Range("O10:O16").Value = "" Then
'MsgBox "Kein Gewicht eingegeben"
'Exit Sub
'End If
Ein Problem.
Ich möchte wenn in O10 bis O16 kein Eintrag gemacht wurde,das dann die MsgBox startet.
Wenn aber...
31.12.2008 16:19:40
Thread-ID: 1036170
3 Beiträge
0 entfernen, sprich leere Zelle
Bernhard

Hallo,
ich habe ein kleines Problem. Wenn ich z.B. zwei Zelleninhalte addiere und beide Zellen sind leer, spricht nicht 0 sonder leer, bekomme ich als Ergebnis ebenfalls eine 0. Ich möchte aber, dass diese Zellen ebenfall nicht darstellt. Ich habe bisher dann die "" Stringausgabe gewählt. =...
24.01.2009 12:22:54
Thread-ID: 1043326
6 Beiträge
Zeilen ausblenden, wenn 0
evi

Hallo,
ich habe folgendes Problem:
Ich möchte bestimmte Zeilen eines Tabellenblattes (Blatt 2) ausblenden (bspw. Zeile 120-123), wenn in einem anderen Tabellenblatt (Blatt 1) in ein einer bestimmten Zelle (z. Bsp. C45) eine "0" eingetragen ist.
Leider hab ich nicht so viel Ahnung di...
06.02.2009 12:07:03
Thread-ID: 1047705
6 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 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
6
5
2
6
10
4
2
5
5
4
7
5
9
1
4
10
2
4
9
11
7
9
4
3
3