Office: neue tabellenblatt mit Spaltenabfrage

Hallo zusammen, habe ein problem

möchte aus einer tabelle alle Zeilen die in Spalte 2 die gleiche nummer haben in ein neues tabellenblatt kopieren welches den namen der bezeichnung aus Spalte 2 trägt kopieren, sind ca 60 Stück, also immer gesamte zeilen mit der jeweils gleichen Nummer in ein neues Tabellenblatt

weiß da wer ne lösung

es handelt sich um das Tabellenblatt "lista completa"

ist nur ein teil der liste, sind an die 18.000 Artikel drinnen in der kompletten

danke inzwischen und Grüße

Pappalagi

http://www.file-upload.net/download-1501384/testexcel-1-.xls.html

 

Hallo!

Automatisch Blätter erstellen kannst du nur per VBA.
Wenn deine Liste nach Spalte B sortiert ist (auf- oder absteigend) und noch keine Blätter mit derartigen Namen existieren, dann läuft dieser Code (quick'n'dirty allerdings...).

Code:

Sub test()
Dim Bereich As Range, Zelle As Range, Blatt As Worksheet
With Sheets("lista completa")
  Set Bereich = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
  For Each Zelle In Bereich
    If Zelle <> Zelle.Offset(-1, 0) Then
      Set Blatt = Worksheets.Add
      Blatt.Name = Zelle
    End If
    .Rows(Zelle.Row).Copy Blatt.Rows(Blatt.Cells(Rows.Count, 2).End(xlUp).Row + 1)
  Next Zelle
End With
End Sub

 

Hallo

danke erstmal

das klappt nicht bei mir, habe Office 2003 VBA 6.0


er meint da sei ein fehler in der Zeile mit dem Set Bereich zu Beginn.

komisch ist auch, daß die Zeile mit dem Dim Bereich zu Beginn nicht blau wird.

was könnte da fehlen?

Grüße

Pappalagi