unbemerkt kopieren
05.11.2020 10:55:06
Samy
ich habe da ein Problem wo ich nicht weiter komme.
Dieser Code sucht in einer anderen Datei ein bestimmter Wert und kopiert einen Bereich der Spalte wo der Wert gefunden wurde. Soweit klappt alles, ein Danke nochmals an Werner!
Jedoch nach dem einfügen habe ich das Problem, dass Wenn ich z.B. in der Tabelle2 bin, den Code laufen lasse, springt das Sheet Tabelle1 auf, wo die Daten hin kopiert werden und die Spalte ist aktiv.
Ziel ist das die Daten unbemerkt kopiert und eingefügt werden.
Lasse ich das PasteSpecial Paste:= xlPasteValues weg, funktioniert es so wie es sollte aber dann kopiert es mir nicht mehr nur den Wert.
Unten habe ich die Dateien mal hochgeladen.
Sub Werte_Holen()
Dim Dateiname As String, ws As Workbook, Treffer As Range
Application.ScreenUpdating = False
Dateiname = Sheets("load_data").Range("H8")
Set ws = Workbooks.Open(Filename:=Dateiname)
With ws.Worksheets("transferPROD")
Set Treffer = .Rows(19).Find(what:="MVR", LookIn:=xlValues, lookat:=xlWhole)
If Not Treffer Is Nothing Then
.Range(.Cells(20, Treffer.Column), .Cells(1000, Treffer.Column)).Copy
ThisWorkbook.Worksheets("Messprotokoll QC").Range("MVR").PasteSpecial Paste:= _
xlPasteValues
Else
MsgBox "Fehler: Der Suchbegriff wurde nicht gefunden."
End If
End With
Call ZWLeeren
ws.Close savechanges:=False
Set Treffer = Nothing
Application.CutCopyMode = False
End Sub
Hier werden die Werte hin kopiert:
https://www.herber.de/bbs/user/141043.xlsm
Von dieser Datei werden die Werte gelesen:
https://www.herber.de/bbs/user/141044.xlsm
Vielen Dank!!!