Doppelte Zellen cutten
30.07.2020 07:52:33
MisterX
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 und die doppelte Zeile soll am Ende der Schleife gelöscht 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 die FOR-NEXT-SCHLEIFE _
läuft das erste mal gut durch, danach passiert nichts mehr. 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)
Range("x:x").Delete
End If
Next n
Next x
End
Sub
Anzeige