Nummerierung darf sich nicht verändern

25/04/2008 - 12:12 von Hans-Werner | Report spam
Hallo,

habe eine Datei mit einigen Filter Makros. Jetzt ist es so das ich in der
Spalte B eine Positionsnummer einfügen möchte also von 1 bis x soviele
Positionen (Zeilen in der Datei) sind.

Das Problem was ich nun habe ist, sobald ich mit dem Makro meine Spalten
Filter veràndert sich auch die Positionsnummer und diese werden dann ganz
durcheinander statt immer in der reihe zu bleiben mit 1 beim ersten Eintrag
etc.

Hier mal das Makro

Private Sub filter_offene_ein_Click()
Range("C5:W250").Select
Selection.AutoFilter Field:, Criteria1:="="
Range("A1:A1").Select
End Sub

Private Sub filter_offene_aus_Click()
Range("C5:W250").Select
Selection.AutoFilter Field:, Criteria1:=""
Rows("5:5").Select
Selection.EntireRow.Hidden = True
Range("A1:A1").Select
End Sub


Könnte mir jemand helfen und erklàren wie ich es hinbekomme die Nummerierung
in der Spalte B immer gleich aussehen zu lassen auch wenn ich diverse
Spalten Filter?

Vielen Dank
 

Lesen sie die antworten

#1 Claus Busch
25/04/2008 - 12:41 | Warnen spam
Hallo Werner,

Am Fri, 25 Apr 2008 12:12:56 +0200 schrieb Hans-Werner:

Das Problem was ich nun habe ist, sobald ich mit dem Makro meine Spalten
Filter veràndert sich auch die Positionsnummer und diese werden dann ganz
durcheinander statt immer in der reihe zu bleiben mit 1 beim ersten Eintrag
etc.

Könnte mir jemand helfen und erklàren wie ich es hinbekomme die Nummerierung
in der Spalte B immer gleich aussehen zu lassen auch wenn ich diverse
Spalten Filter?



deine Tabelle fàngt also in Zeile 5 mit den Überschriften an?
Entferne alle Filter und schreibe dann in B6:
=--TEILERGEBNIS(3;$C$6:$C6)
und ziehe die Formel bis zum Ende deiner Tabelle. Jetzt sollte deine
Nummerierung immer mit 1 beginnen und fortlaufend sein.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen