Hallo liebes Forum,
ich habe ein kleines Problem und komme leider nicht weiter.
Ich habe eine Tabelle vor mir, welche in Spalte8=H TEILWEISE negative Werte enthält (zb: -2,04 ) oder leer Zellen.
- Nun soll immer, wenn ein negativer Wert in Spalte8=H vorhanden ist, eine neue Zeile darunter erzeugt werden.
- Dann soll die originale Zeile von drüber kopiert werden und in der neuen Zeile eingefügt werden.
- Und zum Schluss müsste noch in der neuen Zeile der negative Wert aus Spalte8=H ausgeschnitten werden und in Spalte6=F eingefügt werden
Bisher sieht meine Lsg so aus, aber es tut sich nichts. Wie würdet ihr es lösen?
Dim letzteZeile
letzteZeile = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = letzteZeile To 1 Step -1
If Cells(i, 8).Value = "-" Then
Cells(i + 1, 8).EntireRow.Insert
Rows("i:i").EntireRow.Copy
Rows("i-1:i-1").Select
ActiveSheet.Paste
Cells(i - 1, 8).Cut
Cells(i - 1, 6).Select
ActiveSheet.Paste
End If
Next
Beste Grüße und vielen lieben Dank im Voraus für die Hilfe :)