Hallo Liebe Comunity
Folgender Code bereitet mir grosses kopfzerbrechen.
Range("H2").Select
Active.Sheet.Range("H2").FormulaLocal = "=WENN(B6="""";2;WENN(B4="""";1;WENN(((LINKS(B5;2)*1)-(LINKS(B4;2)*1))>0;1;2)))"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H489"), Type:=xlFillDefault
Range("H2:H999").Select
Dim a As Long
a = 999
For a = 999 To 2 Step -1
If Cells(a, 8) = 1 Then Rows(a).Insert Shift:=xlDown
Next a
Er verlangt mir ein Objekt. Ich wäre um eine Hilfe sehr froh.
Danke
|