Makro zum Suchen im aktuellen block-copy und paste
David
ich habe da ein kleine Problem.
Ich habe eine Excelliste, in der Werte in mehrere Spalten eingetragen werden. Die Zuordnung bezieht sich immer auf den Wert, der in der zweiten Spalte ("B") steht.
Es werden nun permanent neue Datensätze eingetragen. (Zeilenweise)
Wenn ein neuer Tag anfängt, wird vom ersten, der etwas einträgt 2 leerzeilen eingefügt.
Meine Frage ist nun, ich bräuchte ein Makro, was diesen Bereich (ab den 2 leerzeilen bis zur letzten beschrifteten Zeile) durchsucht und nach einem festgeschriebenem Kriterium z.B. "abc" in der Spalte B sucht und mir diese Zeilen in denen der Wert "abc" in Spalte B ist, auf ein 2. Tabellenblatt kopiert aber nicht im Ursprünglichen Tabellenblatt löscht.
Ich hab auch beim Durchstöbern des Archivs nen tolles Makro gefunden, nur weiss ich nicht, wie ich das einfüge, das er ab nur der markierten Zelle, bzw. in dem zusammenhängenden Block der markierten Zelle sucht.
Hier das Makro:
Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim iRow As Integer, iRowL As Integer, iRowT As Integer
Set wks = Worksheets("Tabelle2")
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If InStr(Cells(iRow, 2).Value, "abc") Then
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(iRow).copy wks.Rows(iRowT)
End If
Next iRow
wks.Columns.AutoFit
Application.CutCopyMode = False
End Sub
Wie gesagt, an sich ist es das, was ich brauch, nur kopiert der mir alle Datensätze (Zeilen) wo in Spalte "B" der Wert "abc" auftaucht von Zelle "A1" bis zur letzten beschriebenen. Ich hätte aber gerne, das er bei der vorhandenen Leerzelle anfängt und dann den Bereich ab da nach "abc" in Spalte B durchsucht.
Wenn ich schon dabei bin, gibt es auch eine Möglichkeit, nach dem es kopiert wurde, die Leerzeilen gleich rauszulöschen?
Ich danke schon mal herzlich im Voraus für Vorschläge und hoffe, dass ich es verständlich beschrieben hab. :) Was VBA angeht bin ich ein wenig unbedarft. :)
Danke
David