Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsintervall zerlegen in Zeile je Tag

Datumsintervall zerlegen in Zeile je Tag
22.11.2012 11:12:21
Lutz
Hallo Excel Profis,
ich habe ein Problem bei dem mein Wissen mal wieder nicht ausreicht:
Ich habe eine Liste in der in Spalte A, B und C ein Name etc. stehen, in Spalte D ein Datum von und in Spalte E ein Datum bis.
Jetzt brauche ich aber in meiner Auswertung je Tag eine Zeile - das müßte man per Makro zerlegen.
Vorher
Müller, Hans, normal, - von 01.01.2012 bis 03.01.2012
Müller, Hans, normal, - von 04.01.2012 bis 04.01.2012
Nachher sollte es so aussehen:
Müller, Hans, normal, - von 01.01.2012 bis 01.01.2012
Müller, Hans, normal, - von 02.01.2012 bis 02.01.2012
Müller, Hans, normal, - von 03.01.2012 bis 03.01.2012
Müller, Hans, normal, - von 04.01.2012 bis 04.01.2012
Kann man das mit einem Makro umsetzen? Das die Spalte bis auch angepaßt wird wäre schön ist aber nicht zwingend notwendig.
Vielen Dank schon einmal und viele Grüße Lutz

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 12:31:38
Klaus
Hi,
deine Eingaben stehen genau wie beschrieben in Tabelle1, A,B,C,D,E
als Ausgabe gibt es eine leere Tabelle2 mit den gleichen Überschriften A,B,C,D,E
Der erste Eintrag ist in Zeile 2 (darüber sind überschriften).
Die Spalte in der Ausgabe habe ich nicht angepasst.
Option Explicit Sub VieleZeilen() Dim wksInput As Worksheet Dim wksOutput As Worksheet Dim iCol As Integer Dim lRow As Long 'bei dir heissen die Tabellen bestimmt nicht "1" und "2" .. hier ändern! Set wksInput = Sheets("Tabelle1") Set wksOutput = Sheets("Tabelle2") 'die erste SPALTE der Ausgangstabelle ... ich nehme an A (also 1, B wäre 2 usw..) falls nicht, _ hier ändern! 'Ebenso die erste Zeile (ich nehme an 2, da Überschriften). 'ACHTUNG! Ich gehe davon aus, Spalte und Zeile der Ergebnistabelle sind die gleichen!! iCol = 1 'erste Spalte lRow = 2 'erste Zeile Dim lLastRow As Long Dim lLastRow2 As Long Dim iAnz As Integer Dim rCop As Range lLastRow2 = wksOutput.Cells(Rows.Count, iCol).End(xlUp).Row + 1 With wksInput lLastRow = .Cells(Rows.Count, iCol).End(xlUp).Row For Each rCop In .Range(Cells(lRow, iCol), Cells(lLastRow, iCol)) iAnz = rCop.Offset(0, 4) - rCop.Offset(0, 3) + 1 'BIS_Datum minus VON_Datum plus 1 _ gleich Anzahl Tage rCop.EntireRow.Copy wksOutput.Cells(lLastRow2, iCol).Resize(iAnz, 1).PasteSpecial lLastRow2 = lLastRow2 + iAnz Next rCop End With Application.CutCopyMode = xlCopy End Sub Grüße,
Klaus M.vdT.

Anzeige
AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 13:57:18
Lutz
Hallo Klaus,
vielen Dank - klappt super.
Ich habe nur ein Problem: er ändert das Datum auch nicht in der Spalte Begin (Spalte D), d.h. ich habe dann da x den 01.01.2012 stehen und als nächstes kommt dann der 04.01.2012.
Bekommt man das noch hin?
Viele Grüße und vielen Dank Lutz

AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 14:13:07
Klaus
Teste mal:
Option Explicit
Sub VieleZeilen()
Dim wksInput As Worksheet
Dim wksOutput As Worksheet
Dim iCol As Integer
Dim lRow As Long
'bei dir heissen die Tabellen bestimmt nicht "1" und "2" .. hier ändern!
Set wksInput = Sheets("Tabelle1")
Set wksOutput = Sheets("Tabelle2")
'die erste SPALTE der Ausgangstabelle ... ich nehme an A (also 1, B wäre 2 usw..) falls nicht,  _
_
hier ändern!
'Ebenso die erste Zeile (ich nehme an 2, da Überschriften).
'ACHTUNG! Ich gehe davon aus, Spalte und Zeile der Ergebnistabelle sind die gleichen!!
iCol = 1        'erste Spalte
lRow = 2        'erste Zeile
Dim lLastRow As Long
Dim lLastRow2 As Long
Dim iAnz As Integer
Dim rCop As Range
lLastRow2 = wksOutput.Cells(Rows.Count, iCol).End(xlUp).Row + 1
With wksOutput
lLastRow = wksInput.Cells(Rows.Count, iCol).End(xlUp).Row
For Each rCop In wksInput.Range(wksInput.Cells(lRow, iCol), wksInput.Cells(lLastRow, iCol))
iAnz = rCop.Offset(0, 4) - rCop.Offset(0, 3) + 1   'BIS_Datum minus VON_Datum plus 1 _
gleich Anzahl Tage
rCop.EntireRow.Copy
'Eintrag N-Mal einfügen
.Cells(lLastRow2, iCol).Resize(iAnz, 1).PasteSpecial
'Datum "von" steht genau drei Spalten weiter rechts als die erste Spalte, ändern ab  _
dem zweiten Datum
.Cells(lLastRow2 + 1, iCol + 3).Resize(iAnz - 1, 1).FormulaR1C1 = "=R[-1]C+1"
lLastRow2 = lLastRow2 + iAnz
Next rCop
'optional (auskommentieren, wenns nicht passt):
'BIS Spalte entspricht VON Spalte. Mach ich nicht einzeln pro Datum, sondern einmal für  _
alle Datümer.
.Range(.Cells(2, iCol + 3), .Cells(lLastRow2, iCol + 3)).Copy .Range(.Cells(2, iCol + 4), . _
Cells(lLastRow2, iCol + 4))
End With
Application.CutCopyMode = xlCopy
End Sub
Achtung! sieht auf den ersten Blick so aus, als hätt ich nur diese Zeile eingefügt:
.Range(.Cells(2, iCol + 3), .Cells(lLastRow2, iCol + 3)).Copy .Range(.Cells(2, iCol + 4), .Cells(lLastRow2, iCol + 4))
Ausserdem habe ich aber einen ganzen WITH / END WITH Rahmen umbenannt und verschoben, daher bitte den ganzen Code kopieren und nicht nur die Zeile updaten
Grüße,
Klaus M.vdT.

Anzeige
AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 14:21:40
Lutz
Hallo Klaus,
klappt perfekt - wirklich genial.
Tausend Dank und noch einen schönen Tag für Dich
Liebe Grüße Lutz

Danke für die Rückmeldung! owT
22.11.2012 14:28:10
Klaus
.

AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 13:10:46
Christian
Hallo Lutz,
Vorschlag mit Formeln und Hilfsspalten:
 ABCDEFGHIJKLM
1NameVornameSchichtvonbis   NameVornameSchichtvonbis
2MüllerHansnormal01.01.201203.01.2012311MüllerHansnormal01.01.201201.01.2012
3MüllerHansnormal04.01.201204.01.2012421MüllerHansnormal02.01.201202.01.2012
4       1MüllerHansnormal03.01.201203.01.2012
5       2MüllerHansnormal04.01.201204.01.2012
6             
7             
8             
9             
10             
11             
12             
13             

Formeln der Tabelle
ZelleFormel
F2=WENN(A2="";"";SUMME(F1:F1)+E2-D2+1)
G2=WENN(A2="";"";ZEILE(A1))
H2=WENN(F2="";"";G2)
I2=WENN($H2="";"";INDEX(A:A;VERGLEICH($H2;$G:$G;0)))
J2=WENN($H2="";"";INDEX(B:B;VERGLEICH($H2;$G:$G;0)))
K2=WENN($H2="";"";INDEX(C:C;VERGLEICH($H2;$G:$G;0)))
L2=WENN($H2="";"";WENN(ZÄHLENWENN($H$2:H2;H2)=1;INDEX(D:D;VERGLEICH(H2;G:G;0)); INDEX(D:D;VERGLEICH(H2;G:G;0))-1+ZÄHLENWENN($H$2:H2;H2)))
M2=WENN($H2="";"";L2)
F3=WENN(A3="";"";SUMME(F2:F2)+E3-D3+1)
G3=WENN(A3="";"";ZEILE(A2))
H3=WENN(ZEILE(A2)>MAX(F:F); "";WENN(ZEILE(A2)>INDEX(F:F;VERGLEICH(H2;G:G;0)); INDEX(G:G;VERGLEICH(H2;G:G;0)+1); H2))
I3=WENN($H3="";"";INDEX(A:A;VERGLEICH($H3;$G:$G;0)))
J3=WENN($H3="";"";INDEX(B:B;VERGLEICH($H3;$G:$G;0)))
K3=WENN($H3="";"";INDEX(C:C;VERGLEICH($H3;$G:$G;0)))
L3=WENN($H3="";"";WENN(ZÄHLENWENN($H$2:H3;H3)=1;INDEX(D:D;VERGLEICH(H3;G:G;0)); INDEX(D:D;VERGLEICH(H3;G:G;0))-1+ZÄHLENWENN($H$2:H3;H3)))
M3=WENN($H3="";"";L3)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Anzeige
AW: Datumsintervall zerlegen in Zeile je Tag
22.11.2012 14:13:58
Lutz
Hallo Christian,
ich bin mehr als beeindruckt, ich hätte nicht gedacht das man das über eine Formel auch lösen kann.
Respekt, klappt echt super.
Viele Grüße und vielen lieben Dank Lutz

warum offen?
22.11.2012 14:16:35
Klaus
Hallo Lutz,
ich find Christians Lösung auch super, aber warum lässt du den Beitrag dann offen?
Grüße,
Klaus M.vdT.

AW: warum offen?
22.11.2012 14:23:26
Lutz
Hallo Klaus/Christian - sorry ich dachte vorher die Formllösung ginge bei Datumslücken nicht aber sie geht auch da.
Hatte nur den Hacken nicht rausgenommen - Entschuldigung und noch mal vielen Dank an Euch beide
Viele Grüße Lutz

299 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Datumsdifferenz in Tagen
Wolfgang

Hallo,
ich würde gerne erreichen, dass beim Öffnen der Arbeitsmappe in den Tabellenblättern "Start" und "Ergebnis" die Differenz zwischen zwei jeweiligen Daten im Format "12.11.2008" in Tagen erscheint.
Spalte E "Datum1"(älter) Spalte F "Datum2" (jünger) - Differenz in Tagen in Spalte...
12.11.2008 17:26:00
Thread-ID: 1023929
11 Beiträge
Anzeige
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge

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
6
3
10
4
3
3
2
5
6
4
14
3
1
6
15
4
7
11
11
3
5
5
16
2