Sub ZeilenEinfuegen()
Dim WkSh    As Worksheet
Dim lZeile  As Long
 
   Application.ScreenUpdating = False
 
   Set WkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. 
   ' anpassen !!!
 
   For lZeile = WkSh.Cells(Rows.Count, 4).End(xlUp).Row To 3 Step -1
      If CDate(WkSh.Cells(lZeile, 4).Value) <> CDate(WkSh.Cells(lZeile - 1, _
        4).Value) Then
         WkSh.Rows(lZeile).Insert Shift:=xlDown
 
'MEINE FRAGE, WIE KANN ICH DEN CODE SO ANPASSEN: AM ENDE DES JEWEILIGEN MONAT
'MÖCHTE ICH 2 ZEILEN EINFÜGEN NUR ABER IN SPALTE "D" UND "E".
'ALS BEISPIEL: 
'AB D2:E366 IST DATUM (01.012008) 
'Ab E2:E366 BEFINDEN SICH ZAHLEN 
'-1-WIE KANN MAN ZWIESCHEN JEDEN MONAT 2 LEERE ZEILEN EINFÜGEN UND DIE FORMEL 
' SUMME BILDEN?
'ALS BEISPIEL; 
'- VON D33:E34 SIND 2 LEERE ZEILEN EINGEFÜGT 
'- IN L33 SOLLE "gesammt" STEHEN UND IN M33 FORMEL "Summe(E2:E31)" USW. BIS 
' ENDE DES JAHRES
'-2-DANNACH SOLL DER MAKRO NOCH EINMAL AB ERSTE FREIE SPALTE (z.B. F2:F12 ALLE 
' MONATS NAMEN
'SCHREIBEN JANUAR-DEZEMBER)UND IN G2:G12 SOLLEN DIE SUMME DES MONATS (AUS 
' SPALTE "F")
'DAZU GESCHRIEBEN ODER KOPIERT WERDEN
 
         WkSh.Rows(lZeile).Insert Shift:=xlDown
      End If
   Next lZeile
 
   Application.ScreenUpdating = True
 
End Sub