Thema Datum  Von Nutzer Rating
Antwort
Rot Copy und Insert
16.03.2022 16:37:07 Kolie
NotSolved
16.03.2022 18:21:39 Yal
*****
Solved
17.03.2022 11:07:45 KoLie
NotSolved
23.03.2022 17:21:21 Kolie
NotSolved

Ansicht des Beitrags:
Von:
Kolie
Datum:
16.03.2022 16:37:07
Views:
76
Rating: Antwort:
  Ja
Thema:
Copy und Insert

 

Hallo Zusammen,

habe paar Probleme mit dem unteren Code, diese äußern sich bei größenren Datenmengen darin:

  • langsam (womit ich noch leben könnte)
  • "Keine Rückmeldung" von Excel, d.h. es hängt sich auf
  • in worst case, Excel wird geschlossen

Interessant ist aber, mit F8 läuft es manuell super durch und bei kleinen Datenmengen auch.

Was macht der Code

  • Es Kopiert eine Zeile
  • Es fügt die Kopie unterhalb der korpierten Zeile x Mal ein (gemäß der Anzahl in einem Feld) 

Ideen?
Danke

 

 

   Dim zeilenanzahl&

   For i = startZeile To Wert
        If Cells(i, 1) = "" Then Exit For ' führt aus der Schleife raus, wenn Ax Leer

        zeilenanzahl = Cells(i, 9)

        If (zeilenanzahl - 1) < 0 Then GoTo Weiter2 ' Sollte das Ergebnis kleiner 0 sein, dann springt man raus

        Rows(i).EntireRow.Copy '                                                                                                          
        Range(Cells(i, 1).Offset(1, 0), Cells(i, 1).Offset(zeilenanzahl, 0)).EntireRow.Insert Shift:=xlDown
        Application.CutCopyMode = False
        Range(Cells(i + 1, 19), Cells(i + zeilenanzahl, 19)).ClearContents 'Bereinigung der Doppelten Hauptanlagen Bezeichnungen

Weiter2:
        i = i + zeilenanzahl
   Next i

 


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 Copy und Insert
16.03.2022 16:37:07 Kolie
NotSolved
16.03.2022 18:21:39 Yal
*****
Solved
17.03.2022 11:07:45 KoLie
NotSolved
23.03.2022 17:21:21 Kolie
NotSolved