Office: (Office 2007) Neue Zeile einfügen und Werte bis Spalte..

Hallo Forum,
ich habe ein Problem. Ich habe eine Exceltabelle mit 9 Spalten und etwa 2000 Zeilen und das etwa 50x mit Daten s.h. Tabelle_Test. Da ich aber wegen einem Migrationsprogram diese anpassen muss, wollte ich noch die notwendigen Schritte mit VBA automatisieren.
Folgendes: ich muss vor der Zeile der Spalte BGR_ID (derer Wert sich ändert) eine Leere einfügen und die Werte der Spalten 1-4 reinkopieren. Die Werte der Spalte 4 ändern sich. Zum besseren Verständnis lege ich ein Bild bei, in der 2 und 3 Zeile ist es dargestellt, wie sich es abbilden soll. D.h. ich muss vor dem nächsten Wert der Spalte 4 (10800538) wieder eine Zeile einfügen und die Werte der Spalten 1-4 reinkopieren. Kann mir da jemand helfen, wie man es lösen kann?

Vielen Dank für eure Hilfe

Moravenka *frown.gif*

:)

 

Moin, moravenka,

letzte genutzte Zeile der Tabelle feststellen (lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row), eine Schleife mit negativer Schrittweise von unten bis zur Zeile 3 verwenden (For lngCounter = lngLastRow to 3 Step - 1) und als Bedingung prüfen, ob der Zellwert der Spalte D der Zeile des Zähler mit der der Vorzeile übereinstimmt. Trifft dies nicht zu, dann Zeile einfügen und Werte kopieren. Beispiel bitte an einer Kopie der Mappe prüfen:

Code:

 

Hallo jinx,
danke für deine schnelle Antwort, ich werde es heute Abend erst probieren können, und melde mich wieder,

*Smilie

Gruss
Moravenka

 

Hallo Jinx,
dein Programm funktioniert perfekt, einen Haken hat er noch, ich weiss nicht, wo ich es ev. korrigieren könnte, in die eingefügte leere Zeile bringt er mir aber immer die gleichen Daten des ersten Vorgangs aber es müsste eigentlich immer die nächste sein, ich habe ein kleines Beispiel beigelegt, kannst du dir es nochmal bitte anschauen?

Vielen Dank für deine Hilfe,

Gruss

moravenka *Smilie

 

Moin, moravenka,

es würde sich besser machen, eine Mappe anzuhängen als Bilder/Grafiken. Beim ersten Bild ist befinden sich in der ersten gezeigten Zeile Überschriften, beim zweiten stehen dort offensichtlich Daten. Da aber die Werte aus der ersten Zeile der Tabelle wiederholt werden, können die im zweiten Fall nicht erscheinen.

Code:

 

Hallo Jinx,
ja du hast Recht, ich lege dir eine Datei bei, die als Original für meine Migration dient, von denen habe ich etwa 50 St und Mengenmässig bis 4000 Zeilen, diese Originaldatei hat eine Überschrift.

Ich danke dir sehr, dass du mir dabei hilfst,

das von dir vorgeschlagene Procedere werde ich abends ausprobieren können,

vielen Dank,

Gruss

Moravenka

 

Moin, moravenka,

in der Beispielmappe solltest Du mit dem ersten Makro zu einem brauchbaren Ergebnis gelangen....

 

Hallo Jinx,

tut mir Leid, dass ich mich so spät melde, bin voll im Stress, wir sind bei unserer Migration Vorbereitung auf Prod ziehmlich unter Druck,
ja ich habe dein Makro nochmals ausprobiert und es funktioniert einwandfrei, ich danke dir für deine Hilfe, da macht das Arbeiten richtig Spass *Smilie

schönen Gruss und nochmals Danke,

moravenka

*mrcool

 

Hallo Jinx,
ich habe immer noch ein kleines Problemchen, dein Code

Private Sub moravenka()
Dim lngCounter As Long
Dim lngLastRow As Long

Application.ScreenUpdating = False
lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For lngCounter = lngLastRow To 3 Step -1
If Cells(lngCounter, "D").Value Cells(lngCounter - 1, "D").Value Then
Rows(lngCounter).Insert
Cells(lngCounter, "A").Resize(1, 4).Value = Range("A2*biggrin.gif*2").Value
End If
Next lngCounter
Application.ScreenUpdating = True
End Sub

liefert mir in der leeren Zeile nicht die Ergebnisse der nachfolgender Zeile sondern immer die Werte der Zeile A2*biggrin.gif*2, was nicht richtig ist, ich brauche die nachfolgende Zeile An*biggrin.gif*n kopiert.
Ich habe versucht es zu korrigieren aber komme nicht weiter, kannst du dir es bitte nochmal anschauen?

Vielen Dank,

moravenka *frown.gif*

 

Moin, moravenka,

das kann entweder am Missverständnis der Aufgabenstellung bei mir (mir ist immer noch nicht klar, ob nun die Überschriften von oben her eingefügt oder andere Werte kopiert werden sollen) oder an einer sich ändernden Aufgabenstellung liegen, die aber nicht deutlich herausgearbeitet wird...

 

Danke jinx,
dass du dich so schnell meldest, es kann sein, dass ich mich nicht verständlich genug ausgedrückt habe.
Ich soll in die leere Zeile, die nach dem unterschiedlichem Wert in der Spalte D nicht die Überschrift sondern den Wert der unter der leeren Zeile liegt einfügen. Dein Programm funktioniert einwandfrei nur es soll nicht der Wert A1:d1 eingefügt werden sondern der Wert an:dn (hier direkt unter der leeren Zeile liegend) und zwar nur die Werte aus der Spalte A bis D in der darunter liegenden Zeile.
Hmmm habe ich es vielleicht richtig erklärt?
ich lege dir noch eine Zeichnung bei, es in Gelb angedeutet, was ich meine,

vielen Dank :-)

Moravenka

 

Moin, moravenko,

dann wäre der Zeilenindex für die zu importierende Zeile lngCounter - 1 (ungetestet):

Code:

 

Jinx,
es funktioniert sehr gut, du hast mich gerettet, vielen Dank, du hast bei mir was gut, wie wäre es mit Kaffee und Kuchen?

Danke nochmal und einen schönen Tag noch,

liebe Grüsse

Moravenka *mrcool