|
Hallo zusammen,
ich bastele grad an einer vereinfachung. Komme aber nicht weiter und weiß nicht wo mein Fehler liegt. Eventuell kann mir hier jemand helfen?
Ich bin neu hier im Forum, falls man Dateien einfügen kann/soll : sagt mir wie und ich mache es :-) lieben Dank schon mal. Nun zu der Frage:
In Spalte A stehen Werte. Die erste Zeile Soll ignoriert werden da hier nichts zu kopieren ist. Dann gibt es einen ersten Eintrag. Dieser soll solange kopiert und eingefügt werden, bis man auf den nächsten trifft. Trifft man auf dem nächsten soll dieser gefunden werden und kopiert werden bis man den nächsten findet usw.
Mein Versuch:
Da die größe der Tabelle variieren kann, dachte ich mir, ich beginne indem ich den letzten Eintrag Suche (mit End(xlUp).Row).
Sub KopiereEinträge()
Dim letzteZeile As Long
Dim aktuelleZeile As Long
Dim aktuellerEintrag As String
Dim zielZeile As Long
'Finde letzte Zeile in Spalte A/ aktuelleZeil =2
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
aktuelleZeile = 2
Do While aktuelleZeile <= letzteZeile ' solange maximum nicht erreicht Merke den Eintrag und kopiere diesen (funkt. aber nicht...)
aktuellerEintrag = Cells(aktuelleZeile, 1).Value
zielZeile = aktuelleZeile
Do While Cells(aktuelleZeile, 1).Value = aktuellerEintrag
Rows(aktuelleZeile).Copy Destination:=Rows(zielZeile)
aktuelleZeile = aktuelleZeile + 1
zielZeile = zielZeile + 1
Loop
Loop
End Sub
|