Selection.Autofilter
30.09.2008 11:29:00
Mario
ich habe eine Übersicht und mehrere Datenblätter mit Konten. Mit einem Button kann ich dann die Ausgaben mit folgenden MAKRO den Konten zuordnen:
Sheets("Konto1").Select
ActiveSheet.Unprotect
Range("A10").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Jetzt will ich zwei neue Spalten mit zusätzlichen Kriterien einfügen.
Wenn ich dann auf aktualisieren gehe wird in die beiden neuen Spalten leider nichts hineingeschreiben und in die darauffolgende Spalte steht dann das neue Kriterium aus der Übersicht, wo vorher der Name des Bestellers war.
Auf der ersten Spalte im Arbeitsblatt des Kontos steht die Laufende Nummer und dort ist ein Filter gesetzt.
Wie muss ich das Makro ändern, damit auch die zwei neuen Spalten in das Konto-Datenblatt geschrieben wird?
Vielen Dank im voraus,
Mario