Kopieren einer bestimmten Anzahl von Zeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kay,
Versuch es mit dem Macro-Recorder.
Einfach unter Extras-Macro-Aufzeichnen den Rekorder aufrufen, dem Kind einen Namen geben
und wenn Du es öfter verwenden willst eine Tastenkombi hinzufügen, unter der es dann aufgerufen wird. Wenn Du hier Dein OK gibst, zeichnet er alles auf, was Du tust.
geh also in Dein Arbeitsblatt und markiere ein paar Zeilen. Dann stoppe den Rekorder.
Rufe dann unter Extras-Macro den VB Editor auf.
Klicke dann im Projektfenster Deine Arbeitsmappe an. Unter Module müsstest Du Deine Aufzeichnung finden. Der Code sieht dann ungefähr so aus (hinter dem ' steht nur ein Kommentar):


Sub ZeilenKopieren()
'Makroname
Sheets("Tabelle1").Select
'    Das Blatt Tabelle1 wird ausgewählt
Rows("1:3").Select
'    Zeilen 1 bis 3 markiert (hier kannst Du es Deinen Wünschen anpassen)
Selection.Copy
'    Auswahl wird in Zwischenablage kopiert
End Sub

Wenn Du es dann ausführen willst, einfach aus Deiner Arbeitsmappe heraus Deine Tastenkombi drücken. Aus dem Editor heraus: Dein Macro markieren und F5 drücken. Es wird dann auf das aktuell geöffnete Arbeitsblatt ausgeführt.
Gruß
Andreas

Hallo Andreas,
Hallo UN1,
das klappt in XL gut - Danke !
Wie kann ich aber eine .txt-Datei entsprechend bearbeiten ?
(siehe u.A. Auszug von 20 Zeilen aus .txt-Datei). Diese .txt-Datei ist vollständig mit ca. 120-130.000 Zeilen zu groß für ein XL-Tabellenblatt und muss daher geteilt werden.
1 ; 0139956; 93182567;BATTERIE ; 2,160;1; 10,00;
2 ; 0139957; 93182568;BATTERIE ; 2,160;1; 0,00;
3 ; 0169118; 90588847;S RUECKEN ; 95,780;0; 0,00;
4 ; 0196540; 9138142;EINSATZ ; 206,150;0; 0,00;
5 ; 0560118; 91158669;GELENKSTK ; 19,950;0; 0,00;
6 ; 0606000; 9162448;BLOCK ; 3.007,620;0; 0,00;
7 ; 0624022; 9162444;S. KOLBEN ; 943,800;0; 0,00;
8 ; 0624023; 9162446;S. KOLBEN ; 718,250;0; 0,00;
9 ; 0630567; 9162445;SATZ RINGE ; 30,360;1; 0,00;
10 ; 0630568; 9162447;SATZ RINGE ; 32,110;0; 0,00;
11 ; 0648702; 9192964;REP.SATZ ; 37,050;1; 0,00;
12 ; 0700167; 91166883;GETRIEBE ; 3.862,320;0; 0,00;
13 ; 0700168; 91166884;GETRIEBE ; 2.340,240;1; 0,00;
14 ; 0705027; 24210708;WANDLER ; 786,800;0; 0,00;
15 ; 0784253; 9198579;BLENDE ; 19,600;0; 0,00;
16 ; 0852984; 9108302;SCHRAUBE ; 0,680;0; 0,00;
17 ; 0860077; 93184040;TURBOLADER ; 494,030;0; 0,00;
18 ; 0913128; 24459617;LENKRAD ; 286,740;0; 0,00;
19 ; 1008512; 91167122;SCHRAUBE ; 0,469;1; 0,00;
20 ; 1201308; 93182214;BATTERIE ; 93,380;2; 0,00;

Gruß
Kay.

Beliebteste Forumthreads (12 Monate)

Kopieren einer bestimmten Anzahl von Zeilen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren einer bestimmten Anzahl von Zeilen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread