ich nutze folgendes Makro zum kopieren:
Private Sub Zeilen_kopieren_wenn_bestimmter_inhalt()
Dim i As Integer
Dim r As Range
j = 2 'Zeile, mit der der Eintrag in der neuen Tabelle beginnen soll
x = Range("a65536").End(xlUp).Row 'letze benutze zeile
For i = 2 To x
If Worksheets("aktiv").Cells(i, 14).Value = "Fehler" Then 'Cells(i,1) bedeutet suche in Spalte _
A
Worksheets("Fehlerbearbeitung").Rows(j).Columns("A:Z").Value = Worksheets("aktiv").Rows(i). _
Columns("A:Z").Value 'alle Zeilen mit Spalten a bis F
j = j + 1
End If
Next i
End Sub
Folgende Änderungen hätte ich gerne, habe aber leider aufgrund meiner VBA-Kennntnisse nicht die Chance (der Makrorekorder hilft halt hier leider nicht).
1.
Kopiert werden soll immer aus dem aktiven Tabellenblatt, so dass die Abfrage nach dem ersten Tabellenblatt (der Einfachheit halber hier aktiv genannt) schon einmal wegfallen könnte.
2.
Der zu suchende Begriff soll sich aus der Eingabe in eine Inputbox ergeben. Toll wäre es, wenn beim Start der Wert der aktiven Zelle in der Inputbox vorbelegt werden könnte . Das würde mir in vielen Fällen die Eingabe ersparen.
3.
In welches Blatt kopiert werden soll, soll ebenfalls per Inputbox festgelegt werden. Hier mit der Besonderheit, wenn das Blatt noch nicht existiert, dass es angelegt wird. Andernfalls wird in das bestehende Blatt kopiert.
4. In das Blatt in das kopiert wird, sollen die zu kopierenden Zeilen ab der ersten leeren Zeile eingefügt werden. Derzeit ist das fest vorgegeben. Was unschön ist, wenn da bereits schon Zeilen belegt sind.
5. Die Möglichkeit einer leichten Änderung
- die Zeile kopieren und im alten Blatt stehen lassen
oder
- die Zeile kopieren und im alten Blatt auch dann löschen.
Ich weiß, dass ich unverschämt von mir. Aber ohne Eure Hilfe bekomme ich es nicht geschafft.
Vielen vielen Dank!
Liebe Grüße
Claudia