Hallo,
bisher habe ich aus Tabelle 1 in Tabelle 2 ab Zeile 19 nach gewissen Kriterien mittels (2 Bsp.):
1.
… Rows("1:15").Copy Worksheets("Tabelle2").Range("A1")
Sheets("Tabelle1").Select
Dim I As Integer
Dim cell As Range
I = 19
For Each cell In Tabelle1.Range("BI19:BI11992")
If Not cell Is Nothing Then
If cell.Value = 1 Then
cell.EntireRow.Copy Destination:=Tabelle2.Rows(I)
I = I + 1
End If
End If
Next cell…
Oder auch
2.
… Rows("1:15").Copy Worksheets("Tabelle2").Range("A1")
Sheets("Tabelle1").Select
Dim arr() As Variant
Dim L As Long
Dim I As Integer
arr = Tabelle1.Range("B19:AP11992")
I = 19
For L = 19 To 11992
If arr(L - 18, 1) = "EF" And arr(L - 18, 41) = 1 Then
Tabelle1.Rows(L).Copy Tabelle2.Rows(I)
I = I + 1
End If
If arr(L - 18, 1) = "MeF" And arr(L - 18, 41) = 1 Then
Tabelle1.Rows(L).Copy Tabelle2.Rows(I)
I = I + 1
End If
Next …
Datensätze (Zeilen) kopiert, Reihe 19 und die Folgereihen in Tabelle 2 sind immer leer. Nun möchte ich, dass er ab Zeile 19 wie bisher kopiert, jedoch, wenn Zeile 19 (Zelle A19 soll geprüft werden) belegt ist, er alles erst ab Zeile 20 einfügt, wenn A19-A23 belegt sein sollten, erst ab Zeile 24 usw.
Wie kann ich das bewerkstelligen?
Der Sinn ist, dass ich so mehrere Suchen in einer zusammenfassen kann und somit beliebig variieren kann.
Danke!
Viele Grüsse
Friedel