|
Hi Leute,
ich habe ein Problem. Meini Code soll so funktionieren:
Die B-Spalte kann Daten enthalten, die identisch sind (wenn sie identisch sind, dann folgt die Doppelung direkt in der nächsten Zeile).
In den Spalten C, D & E sind relevante Informationen enthalten. In den Spalten F, G, H, I & J sind die informationen irrelevant.
Wenn nun z.B Zelle B2 & B3 identisch sind, will ich die relevanten Daten von C3, D3, E3 an die relvanten Daten von B2 anhängen. Sprich C3 --> F2, D3 --> G2, E2 --> H2.
Der Inhalt der Spalten I&J soll sowieso entfernt werden.
Das Makro soll dann genau nach dem Schema mehrere Hundert Zeilen durchlaufen.
Ich nutze VBA seit 3 Tagen, also ist das ganze amateurhaft gestaltet und es bricht AB DER IF-FUNKTION ab. Kann mir jmd helfen?
Sub CuttingMakro()
'Spalteninhalte werden in unnützlichen Spalten gelöscht
Range("F1:J5000").Clear
Range("J:J").Delete
Range("I:I").Delete
'Spalten werden nach rechts erweitertt
Range("F1").Value = "Mat Nr"
Range("G1").Value = "Material"
Range("H1").Value = "ANSATZ"
'FOR_NEXT CUTTTEN
Dim x As Integer
For x = 3 To 1000
'FOR_NEXT DELETEN
Dim n As Integer
For n = 2 To 1000
'CUT & PASTE
If Cells(x, 2).Value = Cells(n, 2).Value Then
Cells(x, 3).Cut Cells(n, 6)
Cells(x, 4).Cut Cells(n, 7)
Cells(x, 5).Cut Cells(n, 8)
Cells(x).Delete
End If
Next n
Next x
End Sub
|