Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehlende Zeile(n) mit Daten einfügen

Fehlende Zeile(n) mit Daten einfügen
26.05.2021 06:13:04
Werner 

Hallo zusammen,
Ich habe eine Quelltabelle mit Datum/Zeit Stempel die den Betrieb einer Maschine mit div. Parameter enthält.
Nun soll daraus eine Auswertungstabelle entstehen mit der die Leistung der Anlage (24 Std. immer mit
Abstand von 15 Min. pro Tag) überwacht werden kann.
Ich habe die Daten aus der Quelltabelle (Arbeitsblatt Protokoll) in das neue
Arbeitsblatt(Laufzeit) kopiert.
Mein Problem ist nun, dass die Datenreihen (Zeilen) teilweise Lücken hat.
(was sich leider nicht ändern läßt).
Es fehlen einzelne Zeiten (Zeilen) oder mehrere aufeinander folgende Zeiten (Zeilen) manchmal sogar teilw.
oder ganz fehlende Tage (Zeilen). Darüber hinaus gibt es Einträge (Zeilen) die in kürzeren Abständen (

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlende Zeile(n) mit Daten einfügen
26.05.2021 06:16:50
Werner
So soll es aussehen:
Userbild
AW: Fehlende Zeile(n) mit Daten einfügen
26.05.2021 14:47:52
Werner
Hier mein VBA-Modul:
Option Explicit

Public Sub InsertMissingRows()
Dim lngRow As Long
Dim dtmNextTime As Date, dtmPreviousTime As Date
Dim avntTemp As Variant
With Worksheets("Laufzeit")
For lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row To 3 Step -1
dtmNextTime = CDate(Split(.Cells(lngRow, 1).Value, " ")(1))
dtmPreviousTime = CDate(Split(.Cells(lngRow - 1, 1).Value, " ")(1))
If Round(CDbl(dtmNextTime - dtmPreviousTime), 4) > _
Round(CDbl(TimeSerial(0, 15, 0)), 4) Then
Call .Rows(lngRow).Insert
avntTemp = Split(.Cells(lngRow - 1, 1).Value, " ")
.Cells(lngRow, 1).Value = avntTemp(0) & _
Format$(dtmPreviousTime + TimeSerial(0, 15, 0), " Hh:Nn ") & avntTemp(2)
Call .Range(.Cells(lngRow - 1, 2), .Cells(lngRow - 1, 10)).Copy( _
Destination:=.Cells(lngRow, 2))
lngRow = lngRow + 1
End If
Next
End With
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 Beiträge
Anzeige
Bei Änderung Zeile mit Rahmen einfügen
andi

Hallo zusammen,
habe hier eine Banf in Form einer Tabelle.
Diese hat jetzt zwei Zeilen zum Einfügen von Positionen. Jetzt soll wenn in Spalte "B in Zeile18" etwas eingetragen wird, automatisch eine leere Zeile in der selben Formatierung eingefügt werden, sobald dann in dieser Zeile ein...
07.09.2009 09:21:03
Thread-ID: 1100949
2 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Formel kopieren mit VBA bis leere Zeile
jo_cindy

HAllo, habe noch keine Formel im Archiv gefunden, die bei mir funktioniert.
Ich möchte in Spalte X ab Zeile 2 die folgende Formel einsetzen: Selection.NumberFormat = "h:mm"
ActiveCell.FormulaR1C1 = "=RC[-8]/24" Diese Formel soll dann in Spalte X solange kopiert werden, bis in Spalte A...
27.10.2009 11:02:17
Thread-ID: 1112437
6 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Zellen mit Formeln einer Zeile kopieren
Jürgen

Hallo VBA-Profis,
da ich hinsichtlich VBA ein Anfänger bin, hoffe ich hier im Forum Hilfe zu bekommen.
Ausgangslage:
In größeren Excel-Tabellen sind neben Daten auch Formeln vorhanden.
Tabelle beginnt z.B. ab A4 und erstreckt sich bis Z800 (Zeile 4 sind Überschriften)
In den...
13.12.2009 15:54:18
Thread-ID: 1123590
3 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
4
6
3
6
4
1
2
5
2
2
5
4
3
2
8
1
2
1
2
2
2
2
4
3
2