Hallo,

muss du unbedingt ein Makro haben?


Du könntest auch in der vorhandenen Tabelle 31 Zeilen ( oder auch mehr) ab 1.2.08 markieren unf dann über Zeilen einfügen den entsprechenden Platz schaffen, anschliessend die ersten paar Zeilen vom Februar markieren und nach oben ziehen. Jetzt überflüssige Zeilen löschen.

Für den Zeitraum bis Jahresende gleiche Prozedur am Tabellenende

Sonst sind etwas genauere Angaben zum Tabellenaufbau erforderlich oder Beispiel

Gruß

Helmut

Hallo Helmut

Danke für deine Antwort.
Händisch wie vorgeschlagen habe ich es bisher gemacht und habe auch kein Problem damit.
Möchte in Zukunft diese Arbeit mir abnehmen lassen von einem Makro.
In die Exceltabelle werden Daten aus einer Solaranlage öffters eingelesen die danach ausgewertet werden.
Die Tabelle besteht aus 10 Spalten die verschiedene Werte enthalten.
In Spalte A steht immer das Datum. Die Datenreihe beginnt aber nie mit dem 1.1.2008 und endet auch nicht mit dem 31.12.2008.
Dies wird aber für meine weitere Auswertungstabell aber so benötigt.
Für jeden Tag im Jahr eine Zeile.

Gruß Hubert

Hallo,

versuch es mal hiermit

Sub Datum()
    Zeilen = Range("A2").Value - DateSerial(Year(Range("A2").Value), 1, 1) + 1
    If Zeilen > 1 Then
        Rows("2:" & Zeilen).Select
        Selection.Insert Shift:=xlDown
        Range("A" & Zeilen + 1 & ":A" & Zeilen + 2).Select
        Selection.AutoFill Destination:=Range("A2:A" & Zeilen + 2), Type:=xlFillDefault
    End If
    Letzte_Zeile = Range("A65536").End(xlUp).Row + 1
    Zeilen = DateSerial(Year(Range("A2").Value), 12, 31) - DateSerial(Year(Range("A2").Value), 1, 1) + 2
    If Zeilen > Letzte_Zeile Then
        Range("A" & Letzte_Zeile - 2 & ":A" & Letzte_Zeile - 1).Select
        Selection.AutoFill Destination:=Range("A" & Letzte_Zeile - 2 & ":A" & Zeilen), Type:=xlFillDefault
    End If
End Sub

ich gehe davon aus, dass du das Makro einpflegen kannst

Gruß

Helmut

Hallo Helmut,

danke für dein Makro. Es funktioniert toll.

Nochmals Vielen Dank

Mfg Hubert