Office: Datenbank/Makro/Autofilter

Hallo,
habe ein kleines Problem. Ich möchte eine Datenbank in Excel erstellen, wobei die Steuerung zu einezelnen Blättern über Makros läuft. Habe ein Datenblatt mit allen Einträgen und filtere dieses mit Autofilter in der ersten Zeile. Diese Daten übertrage ich mit Makro (pasteSpezial) in ein neues geschütztes Arbeitsblatt. Probleme mit dem Blattschutz konnte ich selbst beheben und es sah so aus als ob es klappt, aber wenn ich neue Daten hinzufüge werden diese nicht in das zweite Arbeitsblatt übernommen. Mir steht nur Excel zur Verfügung.
Hoffe man kann mir noch helfen! Langsam habe ich von Excel die Schn.. voll.
Danke im Voraus
Ferdi
MS Office XP
Excel 2003

 

Hallo Ferdi,

Kopf hoch, Excel macht auch Spass. :-D

Gib mir deine Datei inklusive Code und versuche dir zu helfen.

 

Hallo nochmal,
ich habe die Datei bis auf das Nötige verkleinert. Jetzt fehlen zwar etliche Blätter, ist aber für das Problem nicht wichtig.

Code:
Sheets("Datenbank").Select
Selection.AutoFilter Field:=1, Criteria1:="6"
Range("B2:I1008").Select
Selection.Copy
Sheets("Daten_L6").Select
Range("A2:H1008").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("I1").Select
Sheets("Datenbank").Select
Range("J25").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Sheets("Daten_L6").Select
Das ganze würde ich gerne auf weitere 15 Arbeitsblätter anwenden, aber es klappt ja schon beim ersten nicht.
Vielen Dank im voraus
Gruss Ferdi