Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren/ einfügen
 01.07.2019 12:12:10 Alex
Solved
01.07.2019 14:47:02 Gast38539
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
01.07.2019 12:12:10		 Views:
1016		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen kopieren/ einfügen		 
Hallo, 

folgendes Problem ich möchte unten die Anweisungen wiederholen (zeile kopieren + Wert einfügen)
Die Werte sollen immer in Zeile 2 eingefügt werden.
Und es sind 17000 Zeilen die kopiert werden müssen.
Nach jedem einfügen der Werte muss eine Speicherung des Beipiels gemacht werden.
Das Beispiel darf nicht überschrieben werden sonder eine Zahl dranbekommen

Hoffe ich hab es einigermaßen Verständlich erklärt

Mit freundlichen Grüßen

Alex


Sub AutoFomular()
'Tabelle öffnen
Workbooks.Open "C:\Users\Windows 10\Desktop\Beispiel_bearbeitet.xlsx"
'Fomular öffnen
Workbooks.Open "C:\Users\Windows 10\Desktop\Probe überarbeitet.xlsx"

'Anweisung wiederholen
 Dim i As Integer
 i = 0
 While i <> 3
    MsgBox "While-Schleife: " & i
    i = i + 1
'Zeile kopieren
    Rows("3").Select
    Selection.Copy
'Werte einfügen
    Rows("2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


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 Zeilen kopieren/ einfügen
 01.07.2019 12:12:10 Alex
Solved
01.07.2019 14:47:02 Gast38539
NotSolved