zeilen kopieren, wenn in der spalte 17 ein "x" ste
03.11.2003 09:06:18
Abdi
habe folgende Problem
HAbe eine Tabelle mit zig Zeilen. Die soll aufgeteilt werden in 2 Tabellen, jenach in welcher in der Spalte (17 oder 18) zu der dazugehörigen zeile ein "x" steht.
Sub zeilenkopieren()
Dim wks As Worksheet
Dim zeile As Integer
Dim irow As Integer, irowL As Integer
irowL = Cells(Rows.Count, 1).End(xlUp).Row
zeile = zeile + 1
For irow = irowL To 1 Step -1
If Worksheets("Kunden").Cells(irow, 17) = "x" And Worksheets("Kunden").Cells(irow, 18) = "" Then
Rows(irow).Copy Worksheets("Lieferanten").Range(zeile + 1, 1)
End If
Next irow
End Sub
Die Abfrage über Spalte 18 ist noch gar nicht drin, aber...irgendwie schaff´ ich es nicht, die Zeile zu kopieren.
Kann mir da jemand Helfen?
Gruß Abdi