Code Anpassen für Office 2003
25.10.2008 20:50:00
Becker
suche für folgendes Problem eine Lösung.
Habe hier in Forum den Code (von Peter Feustel) für Office 2007 bekommen.
Den möchte ich für Office 2003 anpassen weil ich da die Fehler Meldung bekomme;
"Laufzeitfehler 13 Typen unverträglich"
in diesen Code Bereich
"If CDate(WkSh.Cells(lZeile, 4).Value) CDate(WkSh.Cells(lZeile - 1, 4).Value) Then"
Hat jemand eine Idee was muß hier verändert werden damit der Makro einwandfrei funktioniert?
Hier der org. Code aus dieser Forum;
Sub ZeilenEinfugenZwischEinzelTagen()
Dim WkSh As Worksheet
Dim lZeile As Long
Application.ScreenUpdating = False
Set WkSh = ThisWorkbook.Worksheets("Tabelle1") 'nach 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
WkSh.Rows(lZeile).Insert Shift:=xlDown
Cells(lZeile, 6).Interior.ColorIndex = 6 'diese Zeile kannst Du auch weglassen
Cells(lZeile, 6).FormulaR1C1 = "=SUMIF(C[-2],R[-1]C[-2],C)"
End If
Next lZeile
Set WkSh = Nothing 'selbst eingefügt
Application.ScreenUpdating = True
End Sub
Eine Info bze. Hilfe würde mir einige Arbiet sparen.
Gruss Daniel
Schon mal Danke im voraus.