Zeilen einfügen ab aktueller Zeile
03.03.2004 11:10:25
Anita
mit folgendem Code werden Zeilen aus der Tabelle Datenbank in eine andere Tabelle kopiert, wenn das Suchkriterium in beiden Tabellen in Spalte R übereinstimmt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS2 As Worksheet
Set WS2 = ThisWorkbook.Worksheets("Datenbank")
If Target.Column <> 18 Then Exit Sub
With WS2
a = 0
For i = 1 To .Cells(65536, 18).End(xlUp).Row
If .Cells(i, 18) = Target Then
s = .Cells(i, 255).End(xlToLeft).Column
r = Cells(65536, 18).End(xlUp).Row + a
.Range(.Cells(i, 1), .Cells(i, s)).Copy Destination:=Cells(r, 1)
a = 1
End If
Next i
End With
End Sub
Die so eingefügten Zeilen werden alle untereinander gesetzt. Problem ist, das zwischendurch leere Zeilen vorkommen können. Wenn hier nun das Suchkriterium eingefügt wird, werden die entsprechenden Zeilen am Ende der gesamten Liste angefügt, und nicht ab dem Ort der Eingabe!!
Also Zeile 1-10 sind ausgefüllt, Zeile 11-13 sind leer, Zeile 14 - 20 wieder ausgefüllt. Bei Eingabe des Suchkriteriums in Zeile 11 werden die Ergebnisse ab Zeile 21 aufgelistet, sollen aber ab Zeile 11 aufgeführt werden.
Ich hoffe, das war verständlich!
Vielen Dank für jeden Hinweis,
Anita