Schleife mit For; Range.Copy nicht möglich.

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Schleife mit For; Range.Copy nicht möglich.

    Ich habe folgendes Problem;

    ich möchte innerhalb einer Schleife nur einen ganz bestimmten Bereich der Zeile kopieren, in deren Spalte A sich der Suchwert befindet. Und zwar den zu kopierenden Bereich i,2 bis i,7 (wobei I =Zeile), oder anders: Spalten B:G

    Der Code funktioniert insofern, als dass er mir entweder die gesammte Zeille .Rows (i) kopiert, oder aber eine einzige zelle .Cells(i,2). Allerdings bekomme ich verschiedene Range-Methoden exakt für diesen Bereich innerhalb des Kopiervorgang nicht ans Laufen.Vielleicht könnt ihr mir helfen. : )

    i habe ich auch schon als long oder variante gesetzt gehabt.

    hier mein code.

    Visual Basic-Quellcode

    1. Option Explicit
    2. Sub CommandButton1_Click()
    3. Dim WkSh_1 As Worksheet
    4. Dim WkSh_2 As Worksheet
    5. Dim rngTreffer As Range
    6. Dim strSuchbegriff As String
    7. Dim i As Integer
    8. Set WkSh_1 = ThisWorkbook.Sheets("IST")
    9. Set WkSh_2 = Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand")
    11. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    12. strSuchbegriff = WkSh_1.Cells(i, 1).Value
    13. If Cells(i, 7).Value = 1 Or Cells(i, 7).Value = 2 Then
    14. Set rngTreffer = Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Columns(1).Find(strSuchbegriff, LookIn:=xlValues, Lookat:=xlWhole)
    15. If Not rngTreffer Is Nothing Then
    16. Workbooks("SollStand_Mehrwegschütten_LK_20200526_TEST1").Sheets("IST").Rows(i).Copy
    17. Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Rows(i).PasteSpecial Paste:=xlPasteValues
    18. Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Rows(i).PasteSpecial Paste:=xlPasteFormats
    19. End If
    20. End If
    21. Next i
    22. End Sub

Facebook
Telefonspende