Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügebereich ungleich kopierbereich
 14.01.2020 14:08:26 Lisa
NotSolved

Ansicht des Beitrags:
Von:
Lisa		 Datum:
14.01.2020 14:08:26		 Views:
1066		 Rating:
     
Antwort:
  Ja
Thema:
Einfügebereich ungleich kopierbereich

Hallo zusammen, 

ich habe ein Problem.

Ich bin gerade dabei ein Makro zu basteln, dass Zeilen aus einer Datei in eine andere Datei übernimmt. Da ich nicht allzu bewandert im Programmieren bin, mache ich das hauptsächlich über die Makro-aufzeichnen-Funktion. Ich möchte dabei eine beliebige Anzahl von Zeilen in einem anderen Dokument einfügen. Die beliebige Anzahl kommt daher, dass sich die Zeilenanzahl vor jeder neuen Benutzung des Makros ändert. Deswegen habe ich in der anderen Datei auch nur eine Leerzeile, in der die  Zielen eingefügt werden sollen.

Im besten Fall fügt er die Zeilen ein und verschiebt alles andere (die Zellen nach der leeren Zeile) die entsprechende Zeilenzahl nach unten. Gibt es eine Möglichkeit das so zu programmieren, sodass das Makro auch bei einer wechselnden Anzahl von kopierten Zellen immer funktioniert (d.h. dass genau die Zeilenanzahl eingefügt wird, die auch kopiert wurde ohne dass diese Größe genau definiert wird)?

Der Code bis jetzt:

Columns("A:B").Select
    Range("A5").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("K:K").Select
    Range("K5").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("E:E").Select
    Range("E5").Activate
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("leere Vorlage MAKRO.xlsx").Activate
    Rows("17:17").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False

 

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 Einfügebereich ungleich kopierbereich
 14.01.2020 14:08:26 Lisa
NotSolved