ich bin Anfänger und stehe vor folgendem Problem. Ich möchte gerne aus Tabelle 1 alle Zeilen in Tabelle 2 kopieren, bei denen in Spalte A das Wort "xy" steht.
Könnt ihr mir weiterhelfen?
DANKE!
Schöne Grüße,
Viktor
Sub sbCopyXY
Dim lloRow As Long, lloNext As Long
With Sheets(1)
For lloRow = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Range("A" & lloRow).Value = "xy" Then
lloNext = IIf(Sheets(2).Range("A" & Sheets(2).Cells(Sheets(2).Rows.Count, 1).End(xlUp).Row).Value = "", 1, Sheets(2).Cells(Sheets(2).Rows.Count, 1).End(xlUp).Row + 1)
Sheets(2).Range("A" & lloNext).Value = .Range("A" & lloRow).Value
End If
Next
Next
End Sub
Diesen Code musst du in ein allgemeines Modul einfügen.