VBA bestimmte Zeilen in neue Tabellenblätter kopieren

[Sindy88]

Hallo Zusammen,

ich habe eine Tabelle mit verschiedenen Messwerten. Um eine bessere Übersicht zu erhalten, möchte ich die Daten in neuen Tabellenblättern kopieren.
Beginnend von Zeile 2-288 und dann mit einer Schleife immer so weiter, sodass in jedem Tabellenblatt 287 Einträge vorhanden sind. Dabei muss keine Bedingung erfüllt sein. Einfach immer die kompletten Spalten und Zeilen kopieren und nacheinander in einem neu-erstellten Tabellenblatt einfügen.

Am Ende müssen dann 36 Tabellenblätter mit 287 Zeilen entstanden sein.

Kann mir jemand helfen?
Ich setze mich gerade zum ersten mal mit VBA auseinander

 

[BadBigBen]

Vielleicht hilft dir dies weiter: http://stackoverflow.com/questions/...le-to-a-table-on-a-different-sheet-with-condi
letzter Post (mit Code) von SkyMaster und adaptiere dies für deine Zwecke...
oder hier: http://analysistabs.com/excel-vba/copy-data-from-one-worksheet-to-another/

ein wenig Google und voila all die Antworten die man braucht... ist es nicht schön wenn man die altertümliche asiatische Kampfkunst des Google-Fu beherrscht. </sarcasm>


PS: hier ist eine sehr hilfreiche Webseite, was Excel betrifft.... http://www.rondebruin.nl/index.htm

 

[simpsonsfan]

Quick and dirty:

Application.ScreenUpdating = False 'Falls du kein Flackern haben willst
For i = 0 To 35
Sheets(1).Activate
Rows(2 + i * 287 & ":" & 288 + i * 287).Select
Selection.Copy
Sheets.Add After:=Sheets(i + 1)
Sheets(i + 2).Activate
Rows("1:287").Select
ActiveSheet.Paste
Next i
Application.ScreenUpdating = True 'Screenupdating einschalten
End Sub

Es sollte vor der Ausführung nur ein Blatt vorhanden sein, das Makro legt dann weitere Blätter an.

Grundsätzlich empfehle ich für den Einstieg in VBA: Einlesen, Makrorekorder verwenden, Code anpassen, Testen und Probieren!