|
Hallo liebe Excelexperten, ich hab folgenden Code geschrieben. dieser funktioniert soweit auch ganz gut bis auf den letzten entscheidenden Befehl:
ThisWorkbook.Sheets("Ladeliste").Range("A1").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Sub Ladeliste()
Dim i As Integer
Dim x As Integer
Dim y As Integer
For i = 1 To 500
Cells(i, 1).Select
If Cells(i, 1).Value = "BODEN" Then
For x = 1 To 500
Cells(x, 2).Select
If Cells(x, 2).Value = "MESSEBAUSYSTEM | OCTANORM MAXIMA" Then
Worksheets("Ladeliste").Activate
For y = 1 To 500
Cells(y, 1).Select
If Cells(y, 1).Value = "BODENBELAG | MIETMOBILIAR" Then
Sheets("Positionen").Select
Range(Cells(i, 1), Cells(x - 3, 4)).Select
Selection.Copy
ThisWorkbook.Sheets("Ladeliste").Range("A1").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next y
End If
Next x
End If
Next i
End Sub
Könnt ihr mir weiterhelfen was genau falsch ist bzw was ich ändern muss und vorallem wie ich es ändern muss :)
|