Wenn der Wert in Spalte I Ungleich 0 ist soll daunter eine Leerzeile hinzugefügt werden und nochmal die Zeile mit den ungleich 0 Wert dort eingefügt werden.
Habe folgendes Makro so halbwegs angepasst. Blos das Alles in ein anderes Tabellenblatt kopiert wird. Außerdem werden Werte von -0,50 bis 0,50 nicht beachtet.
Versteh ich nicht ganz da ich ja 0 angebe.
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim intWert As Integer, intSpalte As Integer, intZeile As Integer, intAnz As Integer
ActiveWorkbook.Worksheets("Tabelle2").Range("a1:I60000").ClearContents
intSpalte = 9
intZeile = 2
intAnz = WorksheetFunction.CountA(ActiveWorkbook.Worksheets("Tabelle1").Range("A2:A60000"))
Zae2 = 0
For Zae1 = 1 To intAnz
intWert = ActiveWorkbook.Worksheets("Tabelle1").Cells(intZeile + Zae1, intSpalte)
If intWert 0 Then
ActiveWorkbook.Worksheets("Tabelle1").Range(Cells(intZeile + Zae1, 1), Cells(intZeile + _
Zae1, 8)).Copy
ActiveWorkbook.Worksheets("Tabelle2").Cells(intZeile + Zae2, 1).PasteSpecial
Application.CutCopyMode = False
Zae2 = Zae2 + 1
End If
Next Zae1
Application.ScreenUpdating = True
End Sub