Kopieren nach Suche
05.05.2008 18:57:00
helena
kann bitte jemand helfen das MAcro anzupassen, ich benötige es für mehrere Funktionen
das Problem ist ich sollte es einfach anpassen können.
Startzeile such sollte Variabel sein
Suchspalte Variabel
und der Copybereich zB. Spalte A-F, C-AG
schön wären noch zwei kleinigkeiten denke ich
im Ziel die erste Copyzeile wählbar zB. Zeile 8 als oberste (fix) auf der Zielseite
und wenn zB. bis Zeile 13 bereits gefüllt dann bei Zeile 14 weiterfahren mit einfügen
bei nächsten Durchgang Spalte A hat immer Inhalt in Zelle
Sub suche_kopiere_to_page()
Dim n As Long
Dim i As Long
Dim wert As String
Sheets("1_Semester").Activate
wert = Application.InputBox("Was soll gesucht werden?", "Suche", "P")
n = 1
For i = 6 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 1).Value = wert Then
n = n + 1
Rows(i).Copy Destination:=Sheets("JOB").Cells(n, 1)
End If
Next
End Sub
Ich danke Euch jetzt schon für Eure Hilfe
gruss helena