sieht wie folgt aus
i = 2
while not isempty(cells(i,1))
if cells(i,8) > 1 then
rows(i).copy
sheets(2).cells(65000,1).end(xlup).offset(1,0).entirerow.pastespecial
end if
i = i + 1
wend
gruß andi_h
Vielen Dank für die Antwort, aber gedacht war, das nicht nur die Zeile kopiert wird in der in Spalte G ein Betrag steht,sondern dass dann alle Zeilen kopiert werden, die in der Spalte A dieselbe Nr. haben und darüber stehen.
kannst Du da weiterhelfen.
Gruß Regina
hab nochmal was für dich, aber mach erst ne kopie der Datei, ich konnte das Makro nicht ausprobieren, sollte aber gehen falls ich nichts übersehen habe.
Sub test()
Dim i As Integer, ccount As Integer, x As Integer, v As Integer, l As Integer, max2 As Integer
Dim nr As String
max2 = Sheets(2).Cells(65000, 1).End(xlUp).Row
i = 2
While Not IsEmpty(Sheets(1).Cells(i, 1))
nr = ""
If Sheets(1).Cells(i, 8) <= 0 Then GoTo skip:
nr = Cells(i, 1)
For v = max2 To Sheets(2).Cells(65000, 1).End(xlUp).Row
If Sheets(2).Cells(v, 1) = nr Then GoTo skip:
Next v
For x = 2 To Sheets(1).Cells(65000, 1).End(xlUp).Row
If Sheets(1).Cells(x, 1) = nr Then
Rows(x).Copy
Sheets(2).Cells(65000, 1).End(xlUp).Offset(1, 0).EntireRow.PasteSpecial
End If
Next x
skip:
i = i + 1
Wend
End Sub
gruß
Andi
läuft prima hab vielen dank,
If Sheets(1).Cells(i, 8) <= 0 Then GoTo skip:
könnte man die Zeile auch so verändern, dass nicht nur positive Beträge sondern auch negative also kleiner 0 gesucht bzw. berücksichtigt werden.
Danke Regina
natürlich geht des, du mußt nur das < weglassen.
dann kopiert der Code alle reihen welche in Spalte H einen postiven oder negativen wert, sprich ungleich 0, hat.
gruß
Andi
Klasse!!!!!!!!!!!!!!