Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Zellen cutten
29.07.2020 16:00:57 MisterX
Solved

Ansicht des Beitrags:
Von:
MisterX
Datum:
29.07.2020 16:00:57
Views:
49
Rating: Antwort:
 Nein
Thema:
Doppelte Zellen cutten

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  

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Zellen cutten
29.07.2020 16:00:57 MisterX
Solved