fehlende Tage in Liste autmatisch füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Klaus;
eigentl nur ein Freudscher Verschreiber - Julia hat schon an die Spalten A:R gedacht als sie erst Zeilen schreiben wollte.
Ich kenne das, Julia;
(eine Tochter hat so etwas auch mal ausgewertet) in solchen Aufzeichnungen fehlt öfter mal was, besonders, wenn die Stationen manuell betrieben wdn und der Meteorologe in Oimjakon bei -70°C, Schneesturm und 4m Schneehöhe nicht zum Ablesen vor die Hütte konnte oder sich was zugezogen hatte o.s.ä. Das ist ganz normal, denn auch Automaten können mal 'ne Störung haben oder die Übertragung klappt nicht oder Papier ist alle…
Lösung(en):
1. Lege eine neue Liste mit allen Tagen an und hole dir die Daten aus der alten per SVERWEIS oder INDEX und VERGLEICH. Fehlende Tage bleiben leer, wenn du außerdem WENNFEHLER verwendest.
2. Liste mit VBA-Pgm auf Tageslücken untersuchen und im Ereignisfall entsprd jeweils Leerzeilen einfügen. Klaus schreibt dir so etwas sicher gern, wenn seine Zeit es zulässt. ;-)
Gruß Luc :-?

Hallo,

Sub Julia()
Dim i As Long, j As Long, oDic As Object, arrOut(), lColumns As Long
Dim wksImport As Worksheet
Dim arrItems
Set oDic = CreateObject("scripting.dictionary")
Set wksImport = Worksheets("Datei aus Import")
lColumns = wksImport.Cells(1, 1).CurrentRegion.Columns.Count
oDic(0) = wksImport.Cells(1, 1).Resize(, lColumns)
For i = DateSerial(Year([a2]), 1, 1) To DateSerial(Year([a2]), 12, 31)
If Application.CountIf(wksImport.Columns(1), i) Then
oDic(i) = wksImport.Cells(Application.Match(i, wksImport.Columns(1), 0), 1).Resize(,  _
lColumns)
Else
oDic(i) = CDate(i)
End If
Next
arrItems = oDic.items
ReDim arrOut(1 To oDic.Count, 1 To lColumns)
For i = 1 To oDic.Count
If IsArray(arrItems(i - 1)) Then
For j = 1 To lColumns
arrOut(i, j) = arrItems(i - 1)(1, j)
Next
Else
arrOut(i, 1) = arrItems(i - 1)
End If
Next
Worksheets.Add.Cells(1, 1).Resize(oDic.Count, lColumns) = arrOut
End Sub

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	Tag	Wert 1	Wert 2
2	01.01.2013
3	02.01.2013	2	1
4	03.01.2013	6	5
5	04.01.2013	5	5
6	05.01.2013	2	63
7	06.01.2013	4	4
8	07.01.2013	2	3
9	08.01.2013
10	09.01.2013
11	10.01.2013

verwendete Formeln
Zelle	Formel	Bereich
B2	=WENNFEHLER(SVERWEIS($A2;'Datei aus Import'!$A:$Q;SPALTE();0);"")
C2	=WENNFEHLER(SVERWEIS($A2;'Datei aus Import'!$A:$Q;SPALTE();0);"")
A3	=A2+1

fehlende Tage in Liste autmatisch füllen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

fehlende Tage in Liste autmatisch füllen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread