Text in Spalte suchen und Spalte kopiere
23.10.2020 12:05:29
Samy
Dieses Forum hat mir bisher sehr viel geholfen bei meinen Problemstellungen, dazu mal vielen Dank.
Leider kommen ich nun ohne zu fragen nicht mehr weiter und bräuchte hierbei einen Rat.
Mit dem untenstehenden VBA suche ich in einer externen Datei einen Text in einer Spalte. In diesem Beispiel das Wort "MVR". Wird der Text gefunden kopiert er mit die ganze Spalte in meine aktuelle Mappe, das klappt eigentlich alles.
Nur leider bekomme ich es nicht hin das nur die Werte ohne Formate einfügt werden, auch das nur ein Bereich dieser Spalte z.B. aus dieser Spalte den Bereich 10:1000 ausgelesen bzw. kopiert werden.
Wäre super wenn mir da jemand und die Arme greifen könnte :-)
Sub Werte_Holen()
Application.ScreenUpdating = False
Dim Dateiname As String
Dim ws As Workbook
Dim Treffer As Range
Dateiname = Sheets("load_data").Range("H8")
Set ws = Workbooks.Open(Filename:=Dateiname)
Set Treffer = ws.Worksheets("transferPROD").Rows(19).Find(what:="MVR", lookat:=xlWhole)
Worksheets("transferPROD").Columns(Treffer.Column).Copy Destination:=ThisWorkbook.Worksheets(" _
Messprotokoll QC").Range("MVR")
ws.Close savechanges:=False
Application.ScreenUpdating = True
End
Vielen Dank, gruss Samy