Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren mit mehrere umbrüche
14.11.2023 09:36:04 Elisa
Solved
14.11.2023 19:36:27 Elisa
NotSolved
14.11.2023 22:02:16 Gast24164
NotSolved

Ansicht des Beitrags:
Von:
Elisa
Datum:
14.11.2023 09:36:04
Views:
522
Rating: Antwort:
 Nein
Thema:
Kopieren mit mehrere umbrüche

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot Kopieren mit mehrere umbrüche
14.11.2023 09:36:04 Elisa
Solved
14.11.2023 19:36:27 Elisa
NotSolved
14.11.2023 22:02:16 Gast24164
NotSolved