Hallo liebes Forum,
ich habe einen Code bei dem ich eine neue Zeile unter der aktuellen zeile einfügen lasse. Dadurch sind aber die Formeln die ich in Excel eingegeben habe natürlich nicht in der eingefügten Zeile vorhanden.
Ich habe im Forum einen Beispielcode entdeckt und diesen für meine Bedürfnisse angepasst. Jedoch bin ich ein Amateur und ich lasse jetzt jede Zelle einzeln durchlaufen und die Formel nach unten kopieren. Weiß jemand wie ich das vereinfachen kann, damit es nicht so lange braucht diese funktion umzusetzten?
Hier mein Code:
Sub T_LOP_Unterpunkt_click(Optional uhu As Boolean)
'-- keine Sprache
Dim z_nummer, z_titel As Range, r_zeile, ii, i As Integer, zellwert As String
r_zeile = ActiveCell.Row
' Pr?fen zeile ob unter Filterzeile
If r_zeile (kleiner) T_versteck.Range("K29").Value Then
ActiveCell.Offset(1, 0).EntireRow.Insert
'-----------Formeln "runterziehen" f?r die neu eingef?gte zeile----------
Dim lngLetzte As Long 'letzte Zeile
With ActiveSheet
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
.Range(.Cells(r_zeile, 9), Cells(r_zeile + 1, 9)).Formula = .Cells(r_zeile, 9).Formula 'Formel aus i10 runterkopieren:
.Range(.Cells(r_zeile, 10), Cells(r_zeile + 1, 10)).Formula = .Cells(r_zeile, 10).Formula
.Range(.Cells(r_zeile, 11), Cells(r_zeile + 1, 11)).Formula = .Cells(r_zeile, 11).Formula
.Range(.Cells(r_zeile, 14), Cells(r_zeile + 1, 14)).Formula = .Cells(r_zeile, 14).Formula
.Range(.Cells(r_zeile, 15), Cells(r_zeile + 1, 15)).Formula = .Cells(r_zeile, 15).Formula
.Range(.Cells(r_zeile, 16), Cells(r_zeile + 1, 16)).Formula = .Cells(r_zeile, 16).Formula
.Range(.Cells(r_zeile, 17), Cells(r_zeile + 1, 17)).Formula = .Cells(r_zeile, 17).Formula
.Range(.Cells(r_zeile, 18), Cells(r_zeile + 1, 18)).Formula = .Cells(r_zeile, 18).Formula
.Range(.Cells(r_zeile, 19), Cells(r_zeile + 1, 19)).Formula = .Cells(r_zeile, 19).Formula
End With
Ich Danke euch schon mal im Voraus und Gruß
Nico