VBA Macro Hilfe benötigt
Ich habe eine Frage zu einem Macro.
Und zwar habe ich in einer Excel Datei folgende Spalten
A Incident
B Closed
C Routed
D Gesamtzeit
E - Z Einzelzeiten
Das Macro soll beginnend von unten nach oben dopellte Werte finden
und bei gefundenen doppelten Incident (A) die Einzelzeiten des letzten
Eintrages hinter die Einzelzeiten des vorhergehendes Eintrages schreiben
Sowie die die Werte aus B und C bei nicht vorhandensein setzen.
Dafür habe ich bis jetzt folgendes Macro
Jedoch komme ich nicht weiter denn irgendwie bekomme ich es nicht hin das immer
die erste freie Stelle für den Paste der bereits vorhandenen Werte benutzt wird.
Durch die Verwndung des Insert habe ich irgendwie nur Probleme das sich auch die
Formel ändert.
Mein Ergebnis sieht momentan wie folgt aus
Ich danke Euch schonmal vorab.
Und zwar habe ich in einer Excel Datei folgende Spalten
A Incident
B Closed
C Routed
D Gesamtzeit
E - Z Einzelzeiten
Das Macro soll beginnend von unten nach oben dopellte Werte finden
und bei gefundenen doppelten Incident (A) die Einzelzeiten des letzten
Eintrages hinter die Einzelzeiten des vorhergehendes Eintrages schreiben
Sowie die die Werte aus B und C bei nicht vorhandensein setzen.
Dafür habe ich bis jetzt folgendes Macro
Option Explicit
Sub Dup_del()
Dim wert1 As Integer, wert As Integer, wert_Duplikat As Integer, _
iCol As Integer
Application.ScreenUpdating = False
wert1 = 2
For wert = 2 To Range("A500").End(xlUp).Row
wert1 = wert1 + 1
For wert_Duplikat = wert1 To Range("A500").End(xlUp).Row
If Cells(wert, 1) = Cells(wert_Duplikat, 1) Then
iCol = Range("IV" & wert).End(xlToLeft).Column
Cells(wert_Duplikat, 5).Copy
Cells(wert, iCol).Insert Shift:=xlToRight
Rows(wert_Duplikat).Delete
End If
Next
Next
End Sub
Jedoch komme ich nicht weiter denn irgendwie bekomme ich es nicht hin das immer
die erste freie Stelle für den Paste der bereits vorhandenen Werte benutzt wird.
Durch die Verwndung des Insert habe ich irgendwie nur Probleme das sich auch die
Formel ändert.
Mein Ergebnis sieht momentan wie folgt aus
Ich danke Euch schonmal vorab.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 333939
Url: https://administrator.de/contentid/333939
Ausgedruckt am: 22.11.2024 um 17:11 Uhr
6 Kommentare
Neuester Kommentar
Schau doch einfach mal in den Code, da findest du genau das was du brauchst und wo du oben hängst!
Btw. wäre das mit einer Pivottabelle eine Sache von Sekunden...ganz ohne Makro!
Btw. wäre das mit einer Pivottabelle eine Sache von Sekunden...ganz ohne Makro!
Servus,
ich antworte dir jetzt mal direkt hier, da deine Anfrage über PN leider zu wenig Informationen enthalten hat.
duplicate_row_merge_333939.xlsm
Grüße Uwe
p.s. Vielleicht überlegst du dir für den Titel des Threads etwas vernünftigeres, so dass andere User die ein ähnliches Problem haben diesen Thread auch finden, das ist hier ja ein Community von der möglichst viele User profitieren sollten und nicht nur ein Einzelner. Den Titel kannst du auch nachträglich bearbeiten. Danke!
ich antworte dir jetzt mal direkt hier, da deine Anfrage über PN leider zu wenig Informationen enthalten hat.
duplicate_row_merge_333939.xlsm
Grüße Uwe
p.s. Vielleicht überlegst du dir für den Titel des Threads etwas vernünftigeres, so dass andere User die ein ähnliches Problem haben diesen Thread auch finden, das ist hier ja ein Community von der möglichst viele User profitieren sollten und nicht nur ein Einzelner. Den Titel kannst du auch nachträglich bearbeiten. Danke!