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.
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
- Option Explicit
- Sub CommandButton1_Click()
- Dim WkSh_1 As Worksheet
- Dim WkSh_2 As Worksheet
- Dim rngTreffer As Range
- Dim strSuchbegriff As String
- Dim i As Integer
- Set WkSh_1 = ThisWorkbook.Sheets("IST")
- Set WkSh_2 = Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand")
- For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
- strSuchbegriff = WkSh_1.Cells(i, 1).Value
- If Cells(i, 7).Value = 1 Or Cells(i, 7).Value = 2 Then
- Set rngTreffer = Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Columns(1).Find(strSuchbegriff, LookIn:=xlValues, Lookat:=xlWhole)
- If Not rngTreffer Is Nothing Then
- Workbooks("SollStand_Mehrwegschütten_LK_20200526_TEST1").Sheets("IST").Rows(i).Copy
- Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Rows(i).PasteSpecial Paste:=xlPasteValues
- Workbooks("IST_StandTest_22.05.2020.xlsx").Sheets("IST_Stand").Rows(i).PasteSpecial Paste:=xlPasteFormats
- End If
- End If
- Next i
- End Sub