Hallo Liebe Comunity
Ich sollte bei einer Datenreihe
110000 XGD
500000 GTH
500001
510000 HTZ
Jeweils bei einem neuen 100ertausenderschritt (also bei 110000 und 50000 und 510000) eine leere Zeile oben einfügen.
Bei 500000 Lohnsumme reinschreiben
bei 570000 Sozialleistungen
und bei 580000 Sachaufwand.
Ich habe versucht mit einer Hilfszeile zu arbeiten (untenstehend) aber vielleicht gehts das ja sogar noch einfacher?
Vielen Dank
Anbei mein Versuch
' Range("H2").Select
' Active.Sheet.Range("H2").FormulaLocal = "=WENN(B6="""";2;WENN(B4="""";'1;WENN(((LINKS(B5;2)*1)-(LINKS(B4;2)*1))[grösser]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
Dieser verlangt aber nach einem Objekt. :-(
Ich bedanke mich bereits im vorraus überschwenglichst