Zeilen in andere Tabelle kopieren
27.08.2018 09:58:25
Perka
folgendes Problem:
Ich will Produkte aus einem bestimmten Standort in eine extra Tabelle kopieren, momentan realisiere ich das so:
Sub Basel()
Dim q As Integer
Dim cell As Range
q = 2
For Each cell In Tabelle1.Range("T:T")
If Not cell Is Nothing Then
If cell.Value = "Basel" Then
cell.EntireRow.Copy Destination:=Tabelle2.Rows(q)
q = q + 1
End If
End If
Next cell
End Sub
Funktioniert einwandfrei, das Problem ist nur, dass es viel zu lange dauert bis alles rüberkopiert ist, da er ja jede Zeile einzeln kopiert durch das q.
Ist es möglich mit einem Befehl alle Zeilen vom Standort Basel gleichzeitig zu markieren und rüberzukopieren? Er rechnet dann bestimmt auch lang aber nicht so lang wie wenn er jede Zeile einzeln kopiert.
Wenn nicht, kann ich ihm wenigtens irgendwie sagen, dass er bereits kopierte Zeilen ignorieren soll, damit er nicht jedes mal von vorne anfängt?
Vielen Dank!