Suchen - Kopieren - Einfuegen - Schleife
Hendrik
Ich habe folgendes Problem und bekomme es auch nach tagelanger Suche nicht geloest...
Ich habe ein Input Sheet ("Sheet1") in das ich eine .txt File importiert habe. Nun moechte, die Spalte A dieses Sheets nach allen Eintraegen absuchen lassen, die ein "C1" am Ende beinhalten. Bei jeder Fundstelle soll die betreffende Zelle sowie die darunter liegende Zelle kopiert werden. Erschwerend kommt hinzu, dass zusaetzlich noch fweitere Zellen kopiert werden:
Beispiel: erstes Ergebniss (Zahlenfolge mit C10) befindet sich in A6, dann sollen die ebenfalls Zellen A7,H6,J6,J7,J8,J9 und J9 kopiert werden. Ausgegeben soll das ganze dann einem neuen Sheet ("Sheet2") und zwar in dieser Reihenfolge und in einer Reihe...
Ich hatte die Loesung schonmal hinbekommen, nur hab ich Dussel beim Speichern einen Fehler gemacht. Jetzt probier ich schon seid Tagen erfolglos rum.
Mein bester Ansatz den ich aktuell finden/bearbeiten konnte:
Sub FindAndCopy()
' Select the Sheet1
Sheets("Sheet1").Select
' Save the File
ActiveWorkbook.Save
' Find the *C1 Projection Line
Cells.Find(What:="*C1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
' Select and Copy the Survey and Bit line
Range(ActiveCell, ActiveCell.Offset(1, 1)).Copy
Range(ActiveCell, ActiveCell.Offset(0, 9)).Copy
' Select the "Sheet2" Sheet
Sheets("Sheet2").Select
' Select the A1 cell to place the values in
Range("A1").Select
' Paste values from Survey Sheet to Email Data Sheet
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
bekomme zum einen die Schleife noch nicht ordentlich hin (hier weggelassen), aber insbesondere frustiert mich das selektive Kopieren und Einfuegen in eine Reihe.
Waere euch fuer eure Hilfe sehr dankbar!
Hendrik