zeilen kopieren, wenn in der spalte 17 ein "x" ste

Bild

Betrifft: zeilen kopieren, wenn in der spalte 17 ein "x" ste
von: Abdi
Geschrieben am: 03.11.2003 09:06:18

Hallo,

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
Bild


Betrifft: AW: zeilen kopieren, wenn in der spalte 17 ein "x" ste
von: WernerB.
Geschrieben am: 03.11.2003 09:29:32

Hallo Abdi,

versuche es mal so (die "zweite" Tabelle habe ich mal "Neue Tabelle" genannt):


Option Explicit

Sub ZeilenKopieren()
Dim ZeileL As Long, ZeileN As Long, iRow As Long, iRowL As Long
    iRowL = Cells(Rows.Count, 1).End(xlUp).Row
    For iRow = iRowL To 1 Step -1
      If Worksheets("Kunden").Cells(iRow, 17) = "x" And Worksheets("Kunden").Cells(iRow, 18) = "" Then
        ZeileL = ZeileL + 1
        Rows(iRow).Copy Worksheets("Lieferanten").Cells(ZeileL, 1)
      End If
      If Worksheets("Kunden").Cells(iRow, 18) = "x" And Worksheets("Kunden").Cells(iRow, 17) = "" Then
        ZeileN = ZeileN + 1
        Rows(iRow).Copy Worksheets("Neue Tabelle").Cells(ZeileN, 1)
      End If
    Next iRow
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: zeilen kopieren, wenn in der spalte 17 ein "x" ste
von: Danke Werner, hat geklappt.
Geschrieben am: 03.11.2003 09:44:10




Bild

Beiträge aus den Excel-Beispielen zum Thema " zeilen kopieren, wenn in der spalte 17 ein "x" st"