Zeile in anderes Sheet übertragen
05.03.2007 17:41:00
snoopyine
habe ein kleines Problem doch leider finde ich den Fehler nicht. Auch hier im Forum finde ich nichts.
In dem 1. tabelnblatt werden alle zeilen gesucht die in der 12.Spalte Werte haben die mit einem Minus beginnen. Dann werden die Zeilen gesucht die zusätzlich in der 7.Spalte die gleiche Nr haben, das kann nur die Spalte davor oder danach sein. das funktioniert die werden erkannt. Habe das mit Hilfe interior.colorindex überprüft.
Nun möchte ich das diese Zeilen auch im ´2.Tabellenblatt erscheinen, aber nicht per select.copy / paste.
Finde den Befehl zu anfällig.
Hier mein Code:
Sub stornos()
Dim y, i As Integer
Dim zielblatt, quellblatt As Worksheet
Dim zieldatei, quelldatei As Workbook
Set quelldatei = ActiveWorkbook
Set quellblatt = quelldatei.Worksheets(1)
Set zieldatei = ActiveWorkbook
Set zielblatt = zieldatei.Worksheets(2)
'sortieren der Tabelle nach Nr
Range("A7:O65000").Select
Selection.Sort Key1:=Range("G7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
i = 8
y = 1
Do Until quellblatt.Cells(i, 1) = ""
If Mid(quellblatt.Cells(i, 12), 1, 1) = "-" Then
If quellblatt.Cells(i, 7) = quellblatt.Cells(i - 1, 7) Then
zielblatt.Rows(y) = quellblatt.Rows(i)
zielblatt.Rows(y + 1) = quellblatt.Rows(i - 1)
y = y + 2
ElseIf quellblatt.Cells(i, 7) = quellblatt.Cells(i + 1, 7) Then
zielblatt.Rows(y) = quellblatt.Rows(i + 1)
zielblatt.Rows(y + 1) = quellblatt.Rows(i)
y = y + 2
End If
End If
i = i + 1
Loop
End Sub
Für Hilfe bin ich wie immer sehr dankbar.
grüße