Excel VBA - Aufteilen einer Tabelle auf mehrere Blätter

Eine Tabelle enthält die Daten von verschiedenen Filialen. Sie befinden sich untereinander. Pro Filiale gibt es fünf Zeilen Daten. Für die Berechungen sollte jedoch jede Filiale eine eigene Tabelle erhalten.
Mit einer VBA Makro kann diese Aufteilung automatisiert werden.


Makro
Die Zelle A1 ist selektiert.
Der Loop läuft so lange, bis die nächste erste Zelle der nächsten Zeile leer ist.

Sub SplitTable()
'
' SplitTable Makro
'
Do While Not IsEmpty(ActiveCell.Offset(1, 0))
Rows("1:5").Select
Selection.Cut
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Sheets("Umsatz").Select
Rows("1:5").Delete
Loop
End Sub

Nach der Makro sehen die neu erstellten Tabellen folgendermassen aus:

yearbookyourself

Erstelle dein eigenes Schulalbum. Foto hochladen und schon kannst du dich mit den Frisuren und Kleider aus dem 70er, 80er und 90er Jahren betrachten.
http://www.yearbookyourself.com/

Medien Konverter

Mit dem kostenlosen Programm SUPER "Simplified Universal Player Encoder & Renderer" kannst du sehr viele Audio- und Videoformate in alle wichtigen Formate konvertieren.
Unterstützt werden:
Video: 3GP/3G2, AMV, ADF, AVI (DivX, H263, H263+, H264, XviD, MPEG4, MSMPEG4), DAT, FLI, FLC, FLV, M2T, MKV, MPG (MPEG-I, MPEG-II, VCD, SVCD), MOV (H263, H264, MPEG4, SVQ), MP4 (H263, H264, MPEG4), NSV, OGG, QT, RM, RAM, RMVB, STR, SWF, TS (HDTV),M2TS (Blu-ray),HD TS, VIV, VOB, WMV
Audio: AAC, AC3, AMR, MP2, MP3, MP4, MMF, MPC, OGG, RA, WAV, WMA
SUPER Download bei chip.de

Mac Kaufberatung

Warten oder Kaufen?
Wann soll das Apple Gerät gekauft werden? Kommen bald neue Mac Modelle auf den Markt?
Der Mac Buyer's Guide führt eine Übersicht über alle aktuellen Mac Geräte mit einer Empfehlung für den Kauf-Zeitpunkt.