Zellengruppen Definieren
27.07.2003 13:19:29
Jonathan
Sub Makro1()
Sheets("j").Select
Rows("1:4").Select
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Sheets("j").Select
Rows("5:13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Sheets("j").Select
Rows("14:24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets.Add
ActiveSheet.Paste
Sheets("j").Select
Application.CutCopyMode = False
End Sub
Sheet1
654654 Peter
654654 Lucas
654654 Juan
654654 Johannes
Sheet2
12235 Gustav
12235 Marco
12235 Stephan
12235 Martha
12235 Sandra
12235 Yvonne
12235 Selma
12235 Marge
12235 Cesar
Sheet3
5568999 Alexander
5568999 Matthias
5568999 Anja
5568999 Anke
5568999 Thosrten
5568999 Julia
5568999 Sarah
5568999 Stephanie
5568999 Laura
5568999 Andrea
5568999 Libia
Da die Zahlen in der ersten Spalte sich ständig ändern, möchte ich das diese als variable definiert werden. In diesem Beispiel gubt es drei Gruppen 654654,12235,5568999 Ich möchte Das aller Zellen jeder Gruppe in ein neues Sheet kopiert werden.
Wer kann mir helfen ?